Границы ячейкам как объединённым

https://youtu.be/u7m6-SDR2xc ' Скачать Границы ячеек Option Explicit   ' https://www.youtube.com/channel/UCQMbRhaPEFD1NoZLhRzQzSA/videos?view=0&shelf_id=0&sort=dd ' https://inexsu.wordpress.com   Public Ws As Worksheet Public RTable As Range     Public Sub Squadra_Unita(Optional ByVal msg As Variant) _ 'Тестом НЕ покрыта   ' http://www.excelworld.ru/forum/10-40106-1   Граница_Сверху_для_Непустых _ Диап_как_Объединённые( _ Границы_Все( _ Диап_для_Границы_Все( _ Границы_Боковые( _ Границы_Внешние( _ Диап_Весь( _ Settings)))))) End Sub … Читать далее Границы ячейкам как объединённым

Реклама

Excel тормоза

Обнаружено при удалении столбца: строк 7000, формул нет, а столбец пустой удаляется больше минуты. Проблема в переносе по строкам. Если он включен для тыщ ячеек, всё будет медленно.

Надстройка = фильтр Павлова

https://www.youtube.com/watch?v=uJd-IVutQbI&list=PL7eUwE8AAHJb2w3z3cmJw1oFccAN8NB3T Добавляет расширенный фильтр к таблицам на выделенных листах. Предусмотрено убирание расширенного фильтра. Таблица должна начинаться с первой верхней левой ячейки листа. Фильтр_Павлова = скачайте и смените расширение файла на XLAM

Фильтр ИнтеллиСенсе = найдётся ВСЁ Excel Макрос VBA

https://www.youtube.com/watch?v=86U3eh-wQT4 Option Explicit ' в код листа   ' Дальнейшее развитие расширенного фильта: ' - АвтоПодстановка звёздочек * ' - АвтоПодстановка второй ячейки (ниже) с переставленными словами - обход фильтра, учитывающего порядок слов в ячейке.   Private Диапазон_Критерии As Range Private Критерии_Строк As Long Private targ_Old As Variant ' ===   Private Sub Worksheet_SelectionChange(ByVal Target … Читать далее Фильтр ИнтеллиСенсе = найдётся ВСЁ Excel Макрос VBA

Цикл по всей книге

VERSION 1.0 CLASS BEGIN MultiUse = -1 'True END Attribute VB_Name = "wBook" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = False Attribute VB_Exposed = False Option Explicit   ' Для организации цикла по всей книге ' чтобы не делать цикл по всем листам, по всем ячейкам ... ' для случаев, когда … Читать далее Цикл по всей книге

Хорошему коду — автоматические юнит-тесты

https://youtu.be/PG1DLrXj_mU Скачайте  InExSu VBE надСтройка ПереИменуй расширение в XLAM Option Explicit   ' ' https://www.youtube.com/channel/UCQMbRhaPEFD1NoZLhRzQzSA/videos?view=0&shelf_id=0&sort=dd ' https://inexsu.wordpress.com   Public Const VAR_PREF As String = "var_"   'Test generation from code   Public Type String_Cut ' для вырезки парных символов str As String symb As String Position_01 As Long Position_02 As Long End Type   Public Module_Test_code_Global … Читать далее Хорошему коду — автоматические юнит-тесты

Столбцы добавить вниз, нарастить

https://youtu.be/8-Un0tXwR98 Скачать Столбцы блуждающие, строки с признаками, из таблицы в таблицу olkuzn Option Explicit ' https://www.youtube.com/channel/UCQMbRhaPEFD1NoZLhRzQzSA/videos?view=0&shelf_id=0&sort=dd ' https://inexsu.wordpress.com   Public WsSour As Worksheet Public WsDest As Worksheet   Public RDest As Range Public RSour As Range   Public RColSour As Range ' массив заголовков столбцов Public Назна_Строка_Добавления As Long 'добавлять даннрые ' с этой строки … Читать далее Столбцы добавить вниз, нарастить

Запросить список слов и удалить строки с этими словами

https://youtu.be/sE6CMwO5Qm8 Скачать Rows Delete by words Option Explicit   Private D1 As Variant Private RSel As Range Private R2Del As Range   Public Sub Squadra_Unita(Optional ByVal msg As Variant) _ ' https://stackoverflow.com/questions/53547813/excel-vba-macro-to-delete-row-if-a-column-matches-certain-words   Rows_Delete _ Range_Walk( _ List_Ask( _ Selection_Check)) End Sub   Public Function Rows_Delete(Optional ByVal msg As Variant) _ As Variant   If … Читать далее Запросить список слов и удалить строки с этими словами

Значения уникальные сортировать фильтр расширенный Excel Макрос VBA

https://youtu.be/hb8PSVivD-E Скачать Диапазоны уникальные сортировка Option Explicit   ' https://www.youtube.com/channel/UCQMbRhaPEFD1NoZLhRzQzSA/videos?view=0&shelf_id=0&sort=dd ' https://inexsu.wordpress.com   Public ws As Worksheet Public rSour As Range Public Col_dest As Long   Public bDebug As Boolean   Public Sub Squadra_Unita(Optional ByVal msg As Variant) _ 'Тестом НЕ покрыта   ' http://www.programmersforum.ru/showthread.php?t=324584   Проход_Исход _ Столб_Назна( _ Диап_Исток( _ Настройка)) End Sub … Читать далее Значения уникальные сортировать фильтр расширенный Excel Макрос VBA