Как ускорить работу макроса vba excel

Ускоряем работу VBA в Excel

Перед тем, как перейти прямо к сути, я хотел бы обратить внимание на пост: Несколько советов по работе с VBA в Excel. В частности, в блоке “Ускорение работы макросов” есть полезные примеры кода, которые стоит использовать вместе с моими советами по ускорению работы, для достижения максимального результата.

Ускоряем работу макроса

Итак, к сути… Для того что бы реально ускорить работу VBA в Ecxel нужно понимать, что обращение к ячейке на листе — занимает значительно время. Если Вы хотите записать в ячейку одно значение, то это не займет значительного времени, но если Вам потребуется записать(прочитать, обратиться) к тысячам ячеек, то это потребует гораздо большего времени. Что же делать в таких случаях? На помощь приходят массивы. Массивы хранятся в памяти, а операции в памяти VBA выполняет в сотни, а то и в тысячи раз быстрее. Поэтому, если у Вас в данных тысячи, сотни тысяч значений, то время выполнения макроса может занимать от нескольких минут до нескольких часов, а если эти данные перенести в массив, то выполнение макроса может сократиться до нескольких секунд (минут).

Я наведу пример кода и в комментариях объясню что к чему, так будет яснее. К тому же, могут пригодиться некоторые строки кода, не относящееся прямо к процессу ускорения.

Пример

Предположим, что у нас есть данные на “Лист1” (“Sheet1”). Данные содержаться в 50 колонках (колонки содержат названия) и 10 000 строк. К примеру, нам нужно в последнюю колонку внести значение, которое равно значению во второй колонке, деленное на значение в третьей колонке (начиная со 2-й строки, так как первая содержит заглавие). Потом мы возьмем первые 10 колонок и скопируем их на “Лист2” (“Sheet2”), для дальнейшей обработки (для других потребностей). Пусть пример и банальный, но, как мне кажется, он может отобразить всю суть данного поста.

В данном примере массив заполняется указанным диапазоном. Если у нас будет явно заданный двумерный массив, то скопировать его значение на лист можно таким образом:

Заключение

Большинство операций над данными можно выполнять в массиве, при этом, отображать на лист только результат. Иногда целесообразным бывает показать результат на лист, потом выполнить некоторые действия (например, сортировку) и снова загрузить данные в массив.

Для меня было большой неожиданностью ускорения работы макроса за счет массивов, так как данные на листах, на самом деле, итак представляют собой двумерный массив. Но, оказывается, обращение к памяти происходит гораздо быстрей, чем к ячейкам на листе.

В дальнейшем я планирую написать советы (примеры) по быстрому поиску данных на листе, но это уже будет другой пост. Если будут вопросы, комментарии, пожалуйста, пишите.

Excel VBA Ускорить выполнение кода макроса

Если вы хотите, чтобы ваш код макроса VBA работал быстро, то необходимо отключить некоторые функции VBA Excel в начале кода. После выполнения макроса снова включаем все функции.
Для этого мы можно использовать следующий код:

Использовать эти процедуры можно следующим образом:

Иногда, когда выполняется макрос, процедура не доходит до строки включения функций “TurnOnFunctionality”. Это может произойти из-за ошибки или из принудительной остановки кода в определенный момент. Если это произойдет, вы можете снова включить все функции, выбрав процедуру TurnOnFunctionality в окне радактирования кода и нажав клавишу F5.

Никогда не используем функцию Select

При копировании данных в Excel VBA не используйте метод Select-никогда! Большая ошибка, которую делают новички VBA, – это думают, что им нужно выбрать ячейку или диапазон, прежде чем ее скопируют.
Например:

Помните об этих двух важных вещах, прежде чем используется VBA для копирования данных:

• Вам не нужно выбирать ячейку или диапазон ячеек.
• Вам не нужно выбирать или активировать рабочий лист.

Часто можно увидеть, что Select используется во многих примерах в интернете. Но вам не нужно использовать его для копирования ячеек – никогда!

Общие рекомендации

Оптимизация
1) Желательно избегать формул массивов (по возможности)
2) Избегать волатильных формул (по возможности) (условное форматирование, как пример волатильности)
3) Использовать структурированные таблицы и именованные диапазоны
4) Заменять неиспользуемые формулы значениями
5) Хранить все данные для расчета на одном листе (по возможности)
6) Избегать в формулах ссылки на целые столбцы
7) использовать =IFERROR вместо IF + ISERR/ISERROR
8) использовать MAX(A1;0) вместо IF(A1>0;A1;0)
9) использовать INDEX+MATCH вместо VLOOKUP
10) использовать — для конвертации лог.значение в 0/1
11) использовать A1*0.1 чем A1/10
VBA
12) Использовать оператор if else, вместо IIF
13) Использовать Long т.е. Long лучше Вуte, Integer, конечно, variant
14) Применять if else, чем switsh; shoose
15) Лучше проверять строку так len(s)=0, чем s = “”
16) Лучше инициализировать строку так s =vbnullstring, чем s =””
17) Если возможно писать так s = “АВ”, чем s =”А” & “В”
18) Вставлять строку в текст так Мid$(а,3,4)=”like”. чем s = left$(8,2) & “like” & mid(з,7)
19) Сравнивать строки так if strcomp(s1,s2,vbtextcompare) =0, чем if ucase(s1)=ucase(s2)
20) Лучше использовать $-функцию, т.е. left$ лучше left.
21) Цикл for …next. работает быстрее do…lоор
22) Точнее объявлять объекты: as commandbutton лучше as control, еще лучше as object
23) Цикл for Еасh..next лучше, чем цикл for…next семейств объектов
24) Цикл for …next лучше, чем цикл fог Еасh…next: для массивов.
25) Использовать оператор With при обращении к элементам сходной иерархической модели
Для общих (расшаренных) книг
26) Удалять пользовательские представления Вид-Представления-Удалить
27) Снять пометки с Параметров печати и Фильтров , так Рецензирование-Доступ к книге-Параметры печати и Фильтры
28) Периодически отключать общий доступ, сохранять книгу, отключать общий доступ и снова сохранять
29) Удостовериться, что книга открывается в режиме просмотра Вид-Обычный (для того, чтобы избежать обращения к сетевому принтеру с соответствующими временными последствиями)
30) Перелить одну книгу в другую путем копирования не листа, а содержимого в новую книгу со вставкой сначала значения, потом формулы, потом форматы и макросы через импорт экспорт перенести в новую книгу
31 ) Удалить избыточное форматирование

Как ускорить работу макроса vba excel

​Смотрите также​​ Next i ActiveSheet.Cells(2,​
​.​ во всей книге?»,​Application.CutCopyMode = False​ не факт что​
​ работать средствами VBA​If Колонка2(i, 1)​Вернее, сначала снять​ CurR = CurR​ результат печальный, тк​.SortMethod = xlPinYin​ :​: vikttur, прочитав правила​For i =​ на множество ячеек.​ работает оптимальнее? Насколько​ann_sergeevna​ ncolumn).Resize(UBound(arr2), UBound(arr2, 2))​Цитата​ vbYesNo) = vbNo​Selection.AutoFill Destination:=Range(Cells(1, 2),​ будут повторные значения​ — придется много​ записал бы If​ с листа (листов)​
​ + yes Next​

​ на 10 записях​​.Apply​200?’200px’:»+(this.scrollHeight+5)+’px’);»> x = r.CurrentRegion.Value​ ещё раз, я​ 0 To UBound(Arr)​Но опять же:​ знаю, принцип работы​
​: Всем добрый вечер.​ = arr2’вываливаем на​китин, 28.07.2016 в​
​ Then​ Cells(1, lLastCol)), Type:=xlFillDefault​ в вырезанном диапозоне.​ править (уж много​ v = «»​ данные, проделать необходимые​ j, i End​ уходит 20 сек.​

​End With​​на обращение к​ нашел только о​
​If .Item(Arr(i)) Then​ все всегда зависит​ у них одинаковый.​Вот решила поинтересоваться,как​ лист Application.ScreenUpdating =​ 16:13, в сообщении​If Selection.Count =​ ‘копируем на весь​AlexM​ условий с ссылками​ And Колонка2(i, 1)​ данные и сбросить​ With Полное_Ускорение 1​ Но это из​End With​ большому массиву, но​ том, что желательно​ .Remove Arr(i)​ от конкретной ситуации​ Вопрос может быть​ профи справляются с​ True End SubА​ № 13200?’200px’:»+(this.scrollHeight+5)+’px’);»>могут и​ 1 Then Set​ диапазон​: Фрагмент правил форума​ на таблицы).​ Но это на​ результаты на лист​ ‘Выключаем полное ускорение​ за костылей. А​miver​ тогда есть что​

​ выкладывать пример, но​​Next​ и порой там,​ только в размере​ проблемой очень медленной​ то 2 массива:​ часто.​ r = ActiveSheet.UsedRange​Range(Cells(1, 2), Cells(1,​Рекомендации по составлению примера​​Скажите, а если​ любителя, хотя пару​ (листы).​ End Sub Sub​ знающие люди не​: Добавлю пример без​ еще дописывать​

​ в прилепленном файле​​If .Count Then​ где одно быстрее​ ссылок на массив​ работы макросов?​

​ один 69тыс, второй​​так не договаривались​ Else Set r​
​ lLastCol)).Select​- Обычно, чтобы​

​ сделать так:​​ операторов в цикле​особенно этот эффект​ RWord(Range As Range)​ хотят делиться секретом​ рекурсии​

​ikki​​ и пример и​​Arr = .keys​
​ — другое будет​
​ данных. Но этот​у меня файл​
​ 500тыс сравнивались друг​ . В примере​ = Selection​Selection.Copy ‘ копируем​
​ понять и помочь​Я применю автофильтр,​ убирает.​
​ заметен на больших​ ‘ ‘Случайное слово​
​ красоты, чтоб ускорить​ZamoK​: рекурсивный алгоритм.​ сам макрос. Не​
​If UBound(Arr) <​ медленнее.​ вопрос одинаково справедлив​
​ загружен макросами и​ с другом 6​ такого нет -​
​r.Replace 0, «»,​Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,​
​ — достаточно таблицы​ выделю видимые данные,​
​И еще. Мне​ табюлицах.​ с точкой и​
​ в 2 раза.​: Все отлично, красиво.​
​перебор дерева состава.​
​ понимаю, что сделал​ 63000 Then​e_artem​
​ для обеих функций.Цитатаe_artem​ формулами(это по своей​ часов, что мягко​ давайте пример с​
​ xlWhole​ SkipBlanks _​ на 10-20 строк.​
​ и вставлю их​ проверять лень, что​Попробуйте сравнить время​ цифрой ‘ Dim​
​fever brain​ Спасибо!​имхо, сильно зависит​ не так) Лучше​
​Range(«B1»).Resize(UBound(Arr) + 1)​: В конечном счете​ написал:​ сути автоматизированный калькулятор).Есть​ говоря очень медленно.​
​ такими дублями.​Else​:=False, Transpose:=False ‘вставляем​- Но при​ в отдельный лист​
​ работает быстрее, но​ выполнения:​ i&, j&, s$​, не, это не​
​blackeangel​ от реальных данных.​ было бы сам​
​ = WorksheetFunction.Transpose(Arr)​ получается, что вышеописанное​использовать — для​
​ макрос очистки полей,который​Hugo121​Manyasha​For Each sh​ значения​
​ этом старайтесь сохранить​ (созданный специально для​ почему бы не​Кликните здесь для​
​ s = Space(20)​ про меня. Нет​: Как ускорить работу​откуда я знаю​
​ пример выложить в​Else​ это не инструкции​ конвертации лог.значение в​
​ закреплён за кнопкой​: Привлекайте коллекцию или​
​: потому что меня​ In ActiveWorkbook.Sheets​
​Sheets(«состав»).Range(«B2»).FormulaLocal = «=СУММПРОИЗВ(План!$P$18:$GA$800*(План!$P$16:$GA$16=»»СБ»»)*(План!$P$15:$GA$15=состав!$A2)*(состав!B$31=План!$C$18:$C$800))»​ структуру, расположение таблиц,​ вычислений). Так у​ навесить реальный автофильтр?​ просмотра всего текста​ For i =​
​ времени ходить пить​ скрипта?​ — может, в​ текст сообщения?​ReDim mArr(UBound(Arr), 0)​
​ к действию на​ 0/1тоже не всегда​ очистки,есть макрос печати​ словарь.​ переклинило, я решила,​Set r =​ ‘вставляем формулу в​
​ имена листов -​ меня получится таблица​Range(«A3:E1500»).Select​ Код [VB]Option Explicit​ 1 To 3​ кофе. Есть куча​Sub test() Dim​ реале уровень вложенности​ikki, да, вы​For i =​ случай проблем производительности,​ справедливо. Все зависит​ с заданными параметрами,есть​Больше без собственно​ что это диапазон​ sh.UsedRange​
​ 2 строку​ аналогично оригиналу.​

​ только с нужными​Selection.AutoFilter​ Const M =​ Mid$(s, i, 1)​ параллельных задач. Так​ arr1() Application.ScreenUpdating =​ узлов в разы​ правы, признаю -​ 0 To UBound(Arr)​ а моменты на​ от конкретной формулы​ макрос,который учитывает условия​ задачи и данных​ 2-го листа​
​r.Replace 0, «»,​Range(«B2»).Select​- Если файл​ мне строками (Или​Selection.AutoFilter Field:=1, Criteria1:=»<>»​ 500 Const N​ = Chr(97 +​ что на это​ False ‘range и​ или десятки раз​ я тут немного​mArr(i, 0) =​
​ которые стоит обратить​ и ситуации, это​ и в зависимости​​ не скажу, голову​Ярослав, спасибо за​ xlWhole​Selection.AutoFill Destination:=Range(«B2:B29″), Type:=xlFillDefault​ содержит конфиденциальную информацию​ же я смогу​Selection.AutoFilter Field:=6, Criteria1: B2:B29″).Select​ — просто замените​ скопировать не более​слэн​ X(1 To M,​ Next: Mid$(s, i,​ компа. Но сроки​ ncolumn = Rows(1).Find(What:=»Обозначение»,​кстати, по коду​ макрос я писал​Next​ конкретном файле и​ уверенностью сказать для​ открывает и сковывает​ желания нет.​ вот так:​End If​Selection.AutoFill Destination:=Range(Cells(2, 2),​ Ваши данные на​ 8192 прямоугольных областей​
​: «почему бы не​ 1 To N)​ 1) = «.»​
​ никто не отменял.​ LookIn:=xlValues, LookAt:=xlWhole).Column Columns(ncolumn​ непонятно — зачем​ практически с нуля​
​Range(«B1»).Resize(UBound(mArr) + 1)​
​ посмотреть быстрее или​
​ всех формул, что​
​ строки и столбцы..весит​
​fever brain​200?’200px’:»+(this.scrollHeight+5)+’px’);»>ReDim result(29, lLastCol -​End If​
​ Cells(29, lLastCol)), Type:=xlFillDefault​ нейтральные.​ (у меня ексель​ навесить реальный автофильтр?»​ As Double Sub​ For i =​

​Hugo121​​ + 1).Insert ‘вставляем​ там каждый раз​ ( т.е. этой​ = mArr​

​ медленее или вообще​​ бинарное отрицание будет​
​ около 320 метров​: Никто не будет​ 2)​’Debug.Print Timer -​Range(Cells(2, 2), Cells(29,​- Максимальный размер​ 2003)?​во-во, сразу хотел​ MakeArray() Dim i​ i + 1​: Мой вариант пробовали?​ столбец справа Cells(1,​ в процедуру передается​ мой второй макрос​End If​ всю структуру файла​ быстрее мат.операций с​ ..при нажатии на​ это разбирать,​Цитата​
​ t​ lLastCol)).Select​ файла ограничен размером​В таком случае​ сказать..​

​ As Long, j​​ To i +​ Мне собственно эксперементировать​ ncolumn + 1).Value​ ссылка на словарь?​
​ на vba после​End If​ переделать прийдется. ​ данными.Цитатаe_artem написал:​ кнопку очистки макрос​Hugo121​SLAVICK, 28.07.2016 в​End Sub​Selection.Copy​ в 100 Кб.​ в макросе мне​хорошо, что дочитал​ As Long For​ 3 + Fix(Rnd​ не на чем,​ = «Карточки» ‘вставляем​конечно, это не​ школьного pascal) и​End With​KL​as commandbutton лучше​ очень медленно очищает​, меня опередил высказыванием​ 16:15, в сообщении​китин​Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,​Дмитрий87​ надо поменять только​ до конца :)​ i = 1​ * 3) Mid$(s,​ т.к. так и​ заголовок столбца m​ создание локальной копии​ он занял порядка​
​Debug.Print Timer -​: Разница в скорости​ as control, еще​ каждую ячейку,каждую..а их​мой текст был​ № 14200?’200px’:»+(this.scrollHeight+5)+’px’);»>парочки словарей​: файл виснет напрочь.​ SkipBlanks _​: Вот пример, урезанный,​ вот это Set​не надо делать​ To M For​ i, 1) =​ не известны условия​ = ActiveSheet.Cells(Rows.Count, ncolumn).End(xlUp).Row​ объекта, но и​ трех дней, а​ t​ между ИНДЕКС/ПОИСКПОЗ и​ лучше as object​ добрых 50 заполненных​ побольше но смысл​ не хватаеткак раз​
​ серый экран и​:=False, Transpose:=False ‘вставляем​​ но чтобы понять​ ShU = Sheets(«Услуги»)​ циклов там, где​ j = 1​ Fix(Rnd * 10)​ задачи, и нет​ Set rn =​ ссылку передать -​ по срокам мне​End Sub​ ВПР нематериальна даже​Когда это глобальный​ штук..​ тот-же​ начала переделывать на​ моргает гад​ значения​ его работоспособность или​
​ на, скажем Set​ за вас это​ To N X(i,​ Next Range.Value =​ собственно файлов (вроде​ ActiveSheet.Cells(2, ncolumn).Resize(m, 2)​ тоже время надо,​ эту задачу закончить​Serge_007​ на очень больших​ тип object стал​что может помочь?​Hugo121​ словарики, а ты​SGerman​Sheets(«состав»).Range(«B30»).FormulaLocal = «=СУММПРОИЗВ(План!$GB$19:$GB$1000*(План!$C$19:$C$1000=состав!B$31))»​ нет, в любом​ ShU = Sheets(«Услуги_для_макроса»)​

​ может сделать иксель!​​ j) = 2​ RTrim$(s) End Sub​ речь шла о​ arr2 = rn.Value​ да и стек​ надо чем раньше,​: Трудно назвать Николая​ диапазонах. Тем не​ работать быстрее, чем​

​vikttur​​: Да, базу давать​ меня уже опередил)​: Сейчас найти бесплатный​ ‘вставляем формулу в​ случает придётся переделывать​слэн​ZVI​ * i +​ Private Sub CommandButton1_Click()​ csv когда-то. )​ Set conn =​
​ вызовов быстрее переполнится.​ тем лучше, поэтому​ «человеком с другого​ менее гибкость -​ прямой указатель на​: Нужно уходить от​ не нужно, дайте​Manyasha​ SQL Server не​
​ 30 строку​ у себя под​: можно использовать расширенный​: —​ 3 * j​ ‘ ‘Создание двух​blackeangel​

​ New ADODB.Connection ‘Создание​​я бы сделал​ и понадеялся, что​ форума»​ главное и важное​ тип? Ведь в​ таких размеров. Excel​ уже готовых два​: Изменила немного макрос​ проблема​Range(«B30»).Select​ оригинал.​ фильтр для копирования​Комментарий по замене​

​ Next j Next​​ таблиц со случайными​:​ соединения conn.ConnectionString =​ этот объект глобальным​ кто-то поможет уже​Он вообще-то вторым​ преимущество ИНДЕКС/ПОИСКПОЗ.​ этом случае VBA​
​ не любит большого​ массива (можно два​SLAVICK​китин​Application.CutCopyMode = False​Формуляр​ нужных данных на​ фрагмента кода:​ i End Sub​ значениями ‘ Dim​MU-GK​ «Provider=SQLOLEDB.1;Password=132132;Persist Security Info=True;User​ — как массив​ с готовым решением,​ (после меня) зарегистрировался​Серьезная оптимизация скорости​

​ должен будет на​​ веса, от ожирения​ диапазона листа строк​а, учитываются повторы в​: Марина спасибо. немного​Selection.AutoFill Destination:=Range(Cells(30, 2),​: 1. Не использовать​ отдельный лист..​If a =​​ Sub FillCells() Dim​ i&, j& Randomize​, Value в принципе​ Catalog=dbScanKD;Data Source=SQL05″​ rez()​ в котором бы​ на ЭТОМ форуме​ возникает при замене​ ходу определять тип,​ у него начинаются​ по 50) и​ столбце С на​ быстрее. Но один​ Cells(30, lLastCol)), Type:=xlFillDefault​ операции с Variant​но макросом перебратьв​ «» Then​ i As Long,​

​ With Sheets(«лист2») .Cells.ClearContents​​ и используется.​ ‘Строка подключения conn.Open​но, скорее всего,​ потом разбирался.​ на следующий день​

​ точного поиска на​​ исходя из строки​

​ всяческие приступы​​ опишите задачу (покажите​ листе План.​ маленький недостаток:В твоем​ ‘копируем на весь​2. Загнать диапазон​ массиве будет побыстрее​If b ‘. ​ j As Long​ For i =​fever brain​ ‘Открытие соединения Set​ основную часть времени​Сами примеры смотрел​ после его открытия​

​ неточный по совету​​ присвоения, что приводит​​Цитата очищает каждую​​ нужный результат) -​китин​ коде с моим​ диапазон​ поиска в целочисленный​Казанский​
​End If​ Dim wb As​ 1 To 100:​: То что предложил​ rst = New​ занимает, действительно, поиск​ на «программерсфоруме». Ну​gling​ Чарльза Уильямса (если​ к дополнительной трате​ ячейкуЗапомнить адреса и​ и кто-нибудь перепишет​: Ну наконец то​ багажом(весьма скудным​Range(Cells(30, 2), Cells(30,​ массив​: i.s.o​

​End If​​ Workbook, ws As​ For j =​MU-GK​ ADODB.Recordset ‘ Создание​ на листе и,​ честно говоря, там​: Есть вопрос по​ данные можно отсортировать)​

​ времени. Скорее тут​​ почистить одним движением.​

​ строки ниже 20-й.​​ добрался до тестирования.​) знаний я​ lLastCol)).Select​3. Не искать​> Или же​

​на:​​ Worksheet Set wb​

​ 1 To 10​​, это решение номер​ объекта Recordset. rst.ActiveConnection​
​ возможно, многократная обработка​ много чего непонятного​ этой же теме.​ или при выносе​

Как ускорить работу макроса или по другому решить проблему? (Как ускорить работу макроса или по другому решить проблему?)

​ просто неверно написано​​Общие рекомендации: отключать​P.S. там ещё​ последний вариант отработал​ вряд ли разберусь,​Selection.Copy’ копируем​ в пустых ячейках​

​ я смогу скопировать​​If a =​ = ThisWorkbook Set​
​ RWord .Cells(i, j)​ 100​ = conn ‘​ одних и тех​ мне, и побоялся,​
​Документ прилагаю. На​ ПОИСКПОЗ в доп.​
​ и должно быть​
​ автопересчет листа, обновление​
​ какой-то massoboz. Давайте​ на УРА. мои​
​ что бы подправить​Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,​
​ (конец массива определяется​ не более 8192​
​ «» And b​ ws = wb.Worksheets(«A»)​ Next j, i​
​кроме того можно​
​ Подключение этого объекта​ же узлов.​
​ что закопаюсь, пока​ листе материал запустить​
​ столбец (если нужно​
​ так: объявлять as​ экрана, события листа. ​
​ 3 массива, или​ объемы просчитал за​
​ его​ SkipBlanks _​ по 1ой пустой​ прямоугольных областей (у​ ‘. ​
​ Call MakeArray For​
​ End With With​
​ отключить реакцию листа​ к ранее открытому​это надо проверять​ разберусь с самого​ макрос.​
​ получить результат из​ commandbutton лучше чем​
​ Обращение к ячейкам,​

​ сколько их там. ​​ 1,5 минуты. файл​хотя бы в​:=False, Transpose:=False ‘вставляем​ ячейке)​
​ меня ексель 2003)?​End If​ i = 1​ Sheets(«лист3») .Cells.ClearContents For​ и прочие фитчи​ каналу связи. Ask​ — собирать статистику,​ начала.​Всё лишнее убрано.​ множества столбцов базы).​ as control и​ листу — медленный​blackeangel​ упал на 0,5​ количестве столбцов: их​
​ значения​
​shanemac51​Не знаю как​Второй вариант конечно​
​ To M For​
​ i = 1​ сделать​
​ data:image/gif;base64,R0lGODdhAQABAIAAAP///wAAACwAAAAAAQABAAACAkQBADs=» data-src=»//img.my-excel.ru/excel-vybor-unikalnyh-znachenij-iz-spiska_4_1.gif» alt=»wink»>

​ листе от 300​​ — использование массива​Используй Long т.е.​
​Roman Shaleyko​Hugo121​ помощь и терпение​
​ сделал поиск по​
​If ActiveWindow.SelectedSheets.Count >​ от 100.000 до​ диапазон с наложенным​ раза дольше, чем​ j) Next j​
​ .Cells(i, j) Next​ коду с коллекциями​ Like ‘%ТУ’ or​ — оптимизировать​Slad​ д о 500​
​ в 3-ем параметре.​ Long лучше ВуteСпорный​: Вначале работы макросов​,​ . ​
​ последнему столбцу​ 1 Then ‘убираем​ 999.999 (а 850.000​

Как ускорить работу макроса VBA

​ фильтром, если в​​ первый.​ Next i End​
​ j, i End​мне как и​
​ [Oboznach] Like ‘%ИМ’​почти​: Блин, не залогинился,​При полной версии​The_Prist​ момент. Long лучше,​ код:​суть проста: берём​китин​200?’200px’:»+(this.scrollHeight+5)+’px’);»> lLastCol = Cells(31,​ нули после спецвставка(​ значений),​

​ нем более 8192​Совет применить автофильтр​ Sub Sub FillValue()​ With End Sub​Hugo121​ or [Oboznach] Like​нечего. имхо.​
​ ответ выше -мой)​ документа макрос работает​: позвольте засомневаться. Ведь опять​ чем Integer для​’Больше не обновляем​ 1 элемент из​: не. все таки​ Columns.Count).End(xlToLeft).Column​ код от Ярослава)​2) столбец в​ отфильтрованных областей -​ совершено правильный.​ Dim i As​ Private Sub CommandButton3_Click()​, экспериментировать не на​ ‘%ДИ’ or [Oboznach]​и еще одно​Hugo​ не менее 5​ все зависит от​ 32-битных систем. Но​ страницы после каждого​ arr2( с листа​ вопрос вдогонку: а​
​Саня​For Each sh​ нём диапозон от​ ошибка «Невозможно создать​Это если к​ Long, j As​ Dim i&, j&​ чем​ Like ‘%РР’ or​ имхо: думаю, что​: Да, с firststeps.ru​ минут, точно не​ ситуации и каждый​ тут надо учитывать​ действия Application.ScreenUpdating =​ экселя) и проверяем​ что прописать в​: узкое место в​ In ActiveWindow.SelectedSheets​ 100.000 до 999.999​ или использовать ссылку​
​ вопросу подходить творчески.​ Long Dim wb​ With Sheets(«лист1») .Rows(«14:»​более того я​ [Oboznach] Like ‘%РИ’​ такая работа -​ я чуть ошибся,​ считал, но иногда​ совет не может​ еще и кол-во​ False ‘Расчёты переводим​ входит ли он​ код, что бы​ расчете, остальное не​Set r =​ ( 80.000)​ на диапазон данных. «.​

​Но, с другой​ As Workbook, ws​

​ & .Cells(Rows.Count, 1).End(xlUp).Row).ClearContents​​ сам сгенерировал данные​ or [Oboznach] Like​ хорошая кандидатура для​ правильный адрес примерно​ комп виснет.​

​ быть истиной в​​ памяти на ПК.​ в ручной режим​
​ в какой либо​ он срабатывал при​

​ значимо​​ sh.UsedRange​нужно вывести повторяющиеся​слэн​ стороны, мы не​ As Worksheet, iR​ .Rows(«12:12»).Interior.ColorIndex = 15​ на двух листах​ ‘%УД’ or [Oboznach]​

​ одноименной ветки форума.​ такой:​

​Можно ли ускорить​​ последней инстанции, здесь​ Т.к. доступ к​

​ Application.Calculation = xlCalculationManual​​ элемент массива arr1(взятого​ любом изменении на​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub СУММПР_1()​r.Replace 0, «»,​ значения в столбец​
​В 2007 и​ знаем, что там​ As Range Set​

​ .Rows(«13:13»).Font.Bold = True​
​ чтоб хоть както​ Like ‘%ЛУ’ or​»протянуть» . дерево. ​Ну и много​ работу макроса. Может​

​ мы солидарны, я​​ Long происходит хоть​ ‘Отключаем события Application.EnableEvents​ из sql таблицы).​ листе » План»?​Dim t As​ xlWhole​ B​ ранее расширенный фильтр​
​ за данные.​ wb = ThisWorkbook​ For i =​ это показать​

​ [Oboznach] Like ‘%ТБ’​​ без комментариев.​
​ полезного тут можно​ через массив пробовать.​
​ полагаю​ и быстрее -​ = False ‘Не​
​ Если есть совпадение​_Boroda_​ Single: t =​Next​а в примере​

​ может копировать отобранные​И если, например,​ Set ws =​ 1 To 20​blackeangel​ or [Oboznach] Like​SLAVICK​ найти:​ Макрос писал не​На 32-битных системах​

​ памяти на этот​ отображаем границы ячеек​
​ то «закидывает» в​: Игорь, ты точно​

​ Timer​​Else​ а=96.000 зап​ данные только на​ 1 и 2​ wb.Worksheets(«B») Call MakeArray​ Step 5: For​:​ ‘%Э3’ or [Oboznach]​:​А по вопросу​ сам.​
​ нельзя использовать более​ тип выделяется больше.​ If Workbooks.Count Then​ массив arr2 в​ уверен в том,​Dim lLastRow As​If MsgBox(«Заменить 0​

​с=803.000 зап​​ этот лист. Интересно​ строки пустые, а​ Set iR =​ j = 1​Hugo121​ Like ‘%ПЭ3’ or​ikki​ — на первый​Если есть предложения​ 4Гб. Докупай, не​ Поэтому если есть​ ActiveWorkbook.ActiveSheet.DisplayPageBreaks = False​ соседний столбец массива.​

​ что ты именно​ Long​ во всей книге?»,​не могу понять​ — в 2010​ с 3-й строки​ ws.Range(ws.Cells(1, 1), ws.Cells(M,​ To 4 .Cells(13,​, нет ещё. Как​ [Oboznach] Like ‘%Д7’​, на сколько я​ взгляд довольно путанно,​ намекните. Или вашу​ докупай. А Excel-ю отводится​ подозрения на слабую​ End If ‘Отключаем​Все остальное это​ этого хочешь?​Dim lLastCol As​ vbYesNo) = vbNo​ —где что искать​
​ сняли это ограничение?​ начинаются данные, то​ N)) iR.Value =​ j + i​ только с запросами​ or [Oboznach] Like​ понял — это​ нужно вникать, работать. ​

​ версию решения.​ и того в​ машину — надо​ статусную строку Application.DisplayStatusBar​

​ доп надстройки-проверки.​​Если таки да,​ Long​

​ Then​​Дмитрий87​i.s.o​ автофильтр станет в​ X End Sub​

​ — 1) =​ домучаюсь займусь вашими​ ‘%К3’ or [Oboznach]​

​ продолжение темы​ Вероятно всем лениво. ​Slad​ два раза меньше.​ все же исходить​ = False ‘Отключаем​Hugo121​ то ПКМ на​
​lLastCol = Cells(31,​If Selection.Count =​

​: shanemac51, искать нужно​​: Ну, по теории,​ 3-ю строку данных​ Sub Main() Dim​ Choose(j, «код», «искомое»,​
​ предложениями. Экспериментировать есть​ Like ‘%Д4’ or​Там действительно вложенность​

​ Мне лениво, врать​​: День добрый, уважаемые​ И если файл​
​ не только из​ сообщения Excel Application.DisplayAlerts​: — частично? Если​

​ ярлык листа План​ Columns.Count).End(xlToLeft).Column​ 1 Then Set​ повторы в столбцах​

​ у меня не​​ и ее саму​
​ T0 As Double,​ «в таблице», «адрес»)​ на чем. Создать​ [Oboznach] Like ‘%ДП’​ может быть бОльшой.​
​ не буду. Есть​ форумчане,​ большой — то​ понятий более быстрой​ = FalseВ конце​ частично — боюсь​ — Исходный код​
​Sheets(«состав»).Range(«B1»).FormulaLocal = «=СУММПРОИЗВ(План!$G$18:$I$1000*(План!$C$18:$C$1000=состав!B$31))»‘вставляем​ r = ActiveSheet.UsedRange​ A и С​ будет много областей,​ уже не отфильтрует.​ TK As Double,​ Next j, i​ 500к записей циклом​

​ or [Oboznach] Like​​ikki​ занятия поинтереснее.​Вопрос следующий: требуется​

​ он может приличный​ инициализации.​ работы макросов код:​ что коллекция/словарь не​ и туда вот​ формулу в 1​

Ускорение работы макроса (Макросы/Sub)

​ Else Set r​​ , (по поводу​ посколько данные вносятся​Полагаю, что у​ dT As Double​ End With End​ с 12 рандомами​ ‘%РИ’ or [Oboznach]​: там еще отдельный​Спросите что-нибудь попроще​ ускорить работу макроса.​
​ объем доступной памяти​P.S. Хотя сам​ ‘Включаем обновление экрана​ помогут.​ это​ строку​ = Selection​

​ кол-ва -, в​​ ежедневно, и при​ Силыча теперь достаточно​
​ Call MakeArray T0​ Sub​
​ не сложно. Принцип​ Like ‘%ПГ3’ or​ вопрос по алгоритму​ :)​Как я думаю​
​ скушать, что оставит​ в большинстве случаев​
​ после каждого события​blackeangel​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Private Sub Worksheet_Change(ByVal Target​
​Range(«B1»).Select​r.Replace 0, «»,​ примере можно поменять​ фильтре попадут в​ информации для размышления.​ = Timer Call​Работает намного быстрее,​ я описывал, где​ [Oboznach] Like ‘%ПГ4’​ — а так​
​vikttur​ сам: надо как-то​ для VBA значительно​ Long использую​ Application.ScreenUpdating = True​
​:​ As Range)​Application.CutCopyMode = False​

​ xlWhole​​ местами столбцы A​ одну область. И​—​ FillCells TK =​ но лист во​ мои косяки тоже​​ or [Oboznach] Like​​ ли уж нужна​: >>Зачастую, чтобы понять​ избавиться от вложенных​ меньший кусок от​От себя добавлю,​ ‘Расчёты формул -​
​Hugo121​Sheets(«состав»).СУММПР_3​Selection.AutoFill Destination:=Range(Cells(1, 2),​Else​ и С (или​ если же будут​ZVI​ Timer dT =​ время выполнения ни​
​ рассказал.​ ‘%Г4’ or [Oboznach]​ рекурсия?​ и помочь -​ циклов и, наверное,​ пирога памяти. А​
​ что еще можно​ снова в автоматическом​, именно частично, в​End Sub​ Cells(1, lLastCol)), Type:=xlFillDefault’копируем​For Each sh​ в описаниии вопроса​ внесены изменения в​Guest​ TK — T0​ на что не​
​MU-GK​ Like ‘%Э4’ or​ZamoK​ достаточно таблицы на​ перейти на обратку​
​ еще же и​ ускорить код, объявляя​ режиме Application.Calculation =​ противном случае можно​китин​ на весь диапазон​
​ In ActiveWorkbook.Sheets​ , но суть​ таблицу, то не​: для этого можно​ Debug.Print «Fill Cells»,​ реагирует и приходящих​: Так Вы, всё-таки,​

​ [Oboznach] Like ‘%ТЭ4’​​: Логика работы:​​ 10-20 строк.​​ массивами, но покопавшись​ другие приложения в​ массивы явно:​ xlCalculationAutomatic ‘Включаем события​ было бы тупо​: Саша спасибо. пока​Range(Cells(1, 2), Cells(1,​
​Set r =​​ вопроса не поменяется​ думаю, что аж​ в диапазон одну​

​ dT T0 =​​ записей не видно​ сделайте техническое ускорение​
​ or [Oboznach] Like​
​С листа «Перечень»​Вот это и​ в форуме как​ ОС могут быть​Dim arr()​
​ Application.EnableEvents = True​
​ запросом все сделать.​ не знаю. Появилась​ lLastCol)).Select​ sh.UsedRange​

​Дмитрий87​​ 8 тыщ. :)​
​ пустую строчку специально​
​ Timer Call FillValue​только в конце​
​ — принципиально откажитесь​ ‘%ПИ’ or [Oboznach]​ В3-В60 номера изделий,​ пытаюсь довести до​ именно сделать пока​ открыты.​
​вместо​ ‘Показываем границы ячеек​Мне кто то​ такая мысль, благо​Selection.Copy’ копируем​
​r.Replace 0, «»,​: Формуляр, может я​Споткнулся здесь:​ добавить, чтоб уж​ TK = Timer​ выполнения все отображается​ от записи/чтения в​
​ Like ‘%И2’)» rst.Open​ которые нужно разузловать​ Вас. На будущее.​ не разобрался. Буду​
​vikttur​Dim arr​ If Workbooks.Count Then​ когда то говорил​ лист План чисто​Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,​ xlWhole​
​ что-то не догоняю,​Dim d1 As​ совсем..​ dT = TK​ на листе​
​ ячейки, пользуйтесь только​ Ask, conn, adOpenStatic,​​ подетально, ссумировать повторяищеся​​Slad​
​ рад любому совету.​: Интересная информация. Т.е.​Еще лучше будет​ ActiveWorkbook.ActiveSheet.DisplayPageBreaks = True​ что это можно​
​ мой и я​ SkipBlanks _​

​Next​​ но вылазит ошибка​​ Date, d2 As​​слэн​ — T0 Debug.Print​Проверка массива 10×100​
​ образами, пичем обращами​ adLockBatchOptimistic ‘ выполняем​

​ входящие в состав​​: Hugo, ага, на​ А идеально и​ отсортировав список и​Dim arr() as​ End If ‘Возвращаем​

​ при помощи словаря​​ могу тупо его​
​:=False, Transpose:=False’вставляем значения​End If​ «400» при запуске​ Date​: т.е. не использовать​ «Fill Value», dT​ по массиву 20×200​ стра н ицы​
​ запрос. arr1 =​
​ детали. Результат в​ firststeps нашел. Спасибо!​ примеру кода)​
​ применив ПОИСКПОЗ с​ string, arr2() as​ статусную строку Application.DisplayStatusBar​ сделать. Но не​ сильно скрыть. а​Debug.Print «1): «​End If​ макроса​
​d1 = ShR.Cells(3,​ запись макрорекордера с​ End Sub[/VB]​ по времени заняло​ в целом, ну​ rst.GetRows ‘закидываем в​ виде списка на​
​Лень так лень,​Предыстория: На лист​ неточным поиском, получим​ long​ = True ‘Разрешаем​ помню кто это​ какие камни могут​
​ & Timer -​End Sub​Формуляр​ 1)’ Начальная дата​ ее selection.autofilter, а​Книга с двумя​ пол секунды.​
​ и, как тут​ массив conn.Close ‘закрываем​ лист «Итог».​ тут же все​ Input sheet каждую​
​ ускорение вычислений?​но это только​ сообщения Excel Application.DisplayAlerts​ был.​ быть?​
​ t: t =​вполне рабочий, но​: Ещё проще задача​
​ — беру с​ указать диапазон по-мужски​

​ пустыми листами A​​MU-GK​ советуют, отключите реакции​ соединение arr1 =​Подробно:​ добровольно :)​ неделю, заменяя предыдущие​

​KL​​ если есть уверенность​ ​ = True​fever brain​

​под​​ Timer​​ на моих объемах​​ решается через SQL-запрос​ другого листа, он​ прямо, и добавить​

​ и И, на​​: Вы используете​ листов.​ TransposeDim(arr1) ‘переворачиваем массив​1) Берём номер​vikttur, так в​

​ данные, будет копироваться​​: гигантское​ в том, что​
​KL​
​: Тебе надо организовать​Цитата​’Sheets(«состав»).Range(«B2»).FormulaLocal = _​

​ очень медленный. Можно​​200?’200px’:»+(this.scrollHeight+5)+’px’);»>SELECT `Дмитрий87$`.A​ определен ShR​ в начало пустую​ ​ которые записываем созданный​Value​Прогоните тот алгоритм,​ из строк в​ из ячейки В3​
​ приложении и есть​ порядка 20-30к строк​The_Prist​ в массив будут​: Плюс избавляемся от​

​ быстрый поиск​​китин, 03.08.2016 в​
​»=СУММПРОИЗВ(План!$P$18:$GA$800*(План!$P$16:$GA$16=»»СБ»»)*(План!$P$15:$GA$15=состав!$A2)*(состав!B$31=План!$C$18:$C$800))»‘вставляем формулу в​ его как то​FROM `Дмитрий87$` `Дмитрий87$`,​d2 = ShR.Cells(5,​
​ строку(или непустую)​ массив M*N.​поячеечно, рекомендую использовать​ что есть сейчас,​
​ столбец через функцию​
​ лист «Перечень»​ файл на 20​ с данными и​: Вить, так это​ заноситься строго указанные​
​ использования метода .Select​но для этого​
​ 12:49, в сообщении​
​ 2 строку​ ускорить?​
​ `Дмитрий87$` `Дмитрий87$_1`​ 1)’ Конечная дата​
​Igor67​
​Одна функция записывает​ это свойство для​ посмотрите, как там​ TransposeDim с сайта​
​2) Ищем соответствие​
​ строк​ потом запускается макрос.​ же логично. ПОИСКПОЗ​
​ типы данных.​ и, по мере​
​ используемый для этого​ № 18200?’200px’:»+(this.scrollHeight+5)+’px’);»> любом​
​’Range(«B2»).Select​SGerman​
​WHERE `Дмитрий87$`.A =​ — беру с​: А не скроет​
​ по ячейкам, другая​
​ ранга, чтобы сбрасывать​ записывается.​ майкрософт For i​ на листе «Состав​
​vikttur​Как работает макрос:​ просматривает отсортированный массив​
​e_artem​
​ возможности, от прямых​
​ массив должен быть​

​ изменении на листе​​’Selection.AutoFill Destination:=Range(«B2:B29»), Type:=xlFillDefault​​: Попробуйте так :​ `Дмитрий87$_1`.C AND ((`Дмитрий87$`.A​ другого листа, он​ ли автофильтр все​

​ массивом.​​ не по одному​
​Или Вы уже​
​ = LBound(arr1) To​
​ узлов» в столбце​
​: Как еще объяснить?​
​ Берет значение UID,​
​ и в зависимости​
​: имелось в виду​
​ манипуляций с диапазонами​
​ упорядочен, улавливаешь?​ » План»​’Range(«B2:B29»).Select​
​1.​ Is Not Null))​
​ определен ShR​
​ и пустые и​
​При M =​
​ значению, а сразу​
​ делали тайминг?​
​ UBound(arr1) For j​
​ А, копирует перечисленный​

​У Вас в​​ смотрит есть ли​ от типа соответствия​

​ лучше использовать commandbutton,​​ (вместо этого работаем​Hugo121​

Ускорить работу макроса

​я имел ввиду​​’Selection.AutoFill Destination:=Range(Cells(2, 2),​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Application.ScreenUpdating = False​
​Формуляр​Rows(«5:5»).Select​ Т.е вариант пусто​ 500/ N =​ массивами.​fever brain​ = LBound(arr2) To​ состав из столбцов​ приложениЯХ — два​ такое на листе​ может реально и​ чем более глобальные​ с данными в​: Словарём нельзя. Вернее​ замена там либо​ Cells(29, lLastCol)), Type:=xlFillDefault​Application.ScreenUpdating = True​: Возможно, это из-за​Selection.AutoFilter​ больше 0 тоже​ 200 Время работы​blackeangel​: Меня конечно никто​ UBound(arr2) If Len(arr2(j,​ CDE до первой​ файла, общим размером​ “Warnings”, если есть,​ точно сравнить данные​ объекты. коряво написал. ​ памяти через массивы​ можно так же​ цифирок в рабочем​’Range(Cells(2, 2), Cells(29,​2. Убрать ненужные​ того, что макрос​Range(«B5″).Activate​ будет скрыть?!​Fill Cells 2,734375​:​ не просил​ 1)) > 0​ пустой ячейки на​ более 100 Кб.​ то смотрит в​ раньше и позже​e_artem​ или словарь)​ как и с​ диапазоне или полная​ lLastCol)).Select​ Select. Например вместо​ в книжке был.​Selection.AutoFilter Field:=5, Criteria1:=»>=»​Автофильтр работает по​Fill Value 0,09375​fever brain​Так-уж и быть​ Then If InStr(1,​ лист «Итог».​ Удалить?​ колонку “results” на​ с текущим и​: Это ссылки касаемо​При отключении перерисовки​ массивом перебирать ключи​ замена этого диапазона​’Selection.Copy​Код200?’200px’:»+(this.scrollHeight+5)+’px’);»>Range(«B1»).Select​Перенёс в модуль.​ & d1, Operator:=xlAnd​ моему немного быстрее,​При M =​, Да, только надо​ проявлю инициативу​ arr1(i, 0), «СБ»)​3) Затем находим​Обычно финты с​ наличие кода и​ понять — имеет​Нынче время дороже​ экрана и пересчета​ в цикле, но​ путем вставки такой​’Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,​Selection.AutoFill Destination:=Range(Cells(1, 2),​Дмитрий87​ _​ хотя надо проверять​ 1000/ N =​ 2 раза: прочитали​вот эти фичи:​ > 0 Then​ из вновь добавленных​ разделением файла на​ увеличивает соответствующий код​ ли смысл идти​ стоимости оперативной памяти. ЦитатаСпорный​ формул (см #4),​ это шило на​ же таблицы, скопированной​ SkipBlanks _​ Cells(1, lLastCol)), Type:=xlFillDefault​: Формуляр, если есть​, Criteria2:=»​ на машине пользователя.​ 500 Время работы​ в память с​Максимальное ускорение работы​ If InStr(arr2(j, 1),​ позиций номера начинающиеся​ несколько не проходят.​ на 1 (для​ дальше или уже​ момент. Long лучше,​ очистка 50.000 ячеек​ мыло. ​ из другой книги​:=False, Transpose:=False’вставляем значения​Просто​ возможность сделать, autoSQL​Этот код ставит​слэн​ll Cells 13,6171875​ ячеек, записали в​ макросов из под​ «-«) > 0​ на 3 и​ Ну, с этим​ каждого кода на​ достигнут предел максимально​ чем Integer для​ даже по одной​blackeangel​blackeangel​With Range(Cells(2, 2),​Код200?’200px’:»+(this.scrollHeight+5)+’px’);»>Range(«B1»).AutoFill Destination:=Range(Cells(1, 2),​ в xlsx по​ автофильтр, и пременяет​: насколько я понимаю,​Fill Value 0,328125​ ячейки в конце​ EXCEL​ Then m =​ 6 (это узлы​ ладно, у Вас​ листах Warnings и​ точного соответствия.​ 32-битных систем. Но​ должна быть практически​:​: Как ускорить работу​ Cells(29, lLastCol))​ Cells(1, lLastCol)), Type:=xlFillDefault​ 2007, т.к. по​ его. НО все​ сначала показываются все​Обратите внимание, что​ всех операций. А​’Больше не обновляем​ Left(arr2(j, 1), InStr(1,​ и их нужно​

​ как бы не​​ Unique sheet идет​e_artem​
​ тут надо учитывать​ молниеносной​fever brain​ скрипта?​.FormulaR1C1 = _​
​SGerman​ факту мне нужно​ отфильтрованные строки становятся​
​ непустые строки, а​ при увеличении объема​ не в течении​ страницы после каждого​
​ arr2(j, 1), «-«)​ разобрать по деталям)​ разделение.​ своя колонка) если​
​:​ еще и кол-во​ann_sergeevna​, так, а с​Sub test() Dim​»=SUMPRODUCT(План!R18C16:R800C183*(План!R16C16:R16C183=»»СБ»»)*(План!R15C16:R15C183=состав!RC1)*(состав!R31C=План!R18C3:R800C3))»​: Боюсь надоесть всем​ обработать почти 1.000.000​ невидимыми. Почему?​ потом среди этих​ выводимых данных разница​ цикла работать с​
​ действия Application.ScreenUpdating =​ — 1) +​4) Берём найденый​Да, 20 строк. ​
​ кода нет –​The_Prist​ памяти на ПК.​: о, друзья. Я​
​ этого момента по​ arr1() Application.ScreenUpdating =​Debug.Print «2): «​ своими «советами», но​ строк, я пробывал​
​А в ручную​ непустых выбираются меньшие​​ во времени становится​​ листом. Работать в​
​ False ‘Расчёты переводим​
​ «СБ» If InStr(1,​ номер на 3(6)​ Но по 4​ ничего не делает.​, солидарны . Ладно,​ Т.к. доступ к​ сейчас перепишу код​ подробнее?​ False ‘range и​ & Timer -​ !​ переделать под 2007,​

​ все ок.​​ либо равные нулю..​ существенно больше и​ памяти в разы​
​ в ручной режим​ arr2(j, 1) +​

​ далее пункт 2,3,4​​ листа, да в​​ Если в “UID”​​ со списком куда​ Long происходит хоть​ и попробую, сообщу,как​fever brain​ массив рабочей книги​ t: t =​У Вас много​ не получилось​И ещё, а​Igor67​ в абсолютном и​ быстрее чем с​ Application.Calculation = xlCalculationManual​ «СБ», arr1(i, 0),​
​ пока не закончатся​​ двух файлах. Форум​ пусто, то берется​ смотреть/что щупать/где крутить​ и быстрее -​ прошло. спасибо большое!​: если сделать по​ ncolumn = Rows(1).Find(What:=»Обозначение»,​ Timer​ данных и много​

​Формуляр​​ как Деактивировать автофильтр?​: Да, но по​ в относительном выражении​ листом, следовательно с​ ‘Отключаем события Application.EnableEvents​ vbTextCompare) > 0​ в добавленных позициях​ не резиновый, не​ e-mail и процесс​

​ примерно определились. Вопрос теперь,​​ памяти на этот​​ann_sergeevna​​ моим рекомендациям твоя​ LookIn:=xlValues, LookAt:=xlWhole).Column Columns(ncolumn​

​.Value = .Value​​ вычислений. Кардинально (на​​: Что именно не​​i.s.o​ условиям первый столбец​
​fever brain​ листом надо работать​ = False ‘Не​ Then If CInt(arr1(i,​
​ номера на 3​ у всех И-нет​ повторяется (Пользователь может​ в какой последовательности​
​ тип выделяется большеЭто​​: урааааа!все так быстро​​ программа выполнится менее​ + 1).Insert ‘вставляем​
​Debug.Print «2): «​ порядки) скорость можно​ получилось?​: Вот попробовал сделать​ пусто второй меньше​

​: Там у тебя​​ как можно меньше,​​ отображаем границы ячеек​​ 2)) = CInt(arr1(i,​ и 6.​ безлимитный и быстрый.​ иметь uid, а​ подкручивать.​ мои заметки, и​ работает!!​ чем за секунду​ столбец справа Cells(1,​ & Timer -​ увеличить, поместив все​

​Цитата​​ образец. ​ нуля. А если​ другая задача, приблизь​ а не использовать​ If Workbooks.Count Then​ 3)) Then ‘cравниваем​4.1) Если номера​ Это понятно?​ может и не​Вот например ситуация.​ я не применяю​
​всем спасибо!и добрых​blackeangel​ ncolumn + 1).Value​ t: t =​
​ данные в БД​(Дмитрий87)200?’200px’:»+(this.scrollHeight+5)+’px’);»>по факту мне​

​И ещё я​​ пусто и больше​ ее к текущей​
​ тормозилки интерфейса​ ActiveWorkbook.ActiveSheet.DisplayPageBreaks = False​
​ числовые значения arr2(j,​
​ на листе «Состав​Slad​ иметь, но учет​
​ Приходит пользователь к​ их влоб как​ снов!​:​ = «Карточки» ‘вставляем​ Timer​ Access и все​ нужно обработать почти​ не знаю, как​ должен отображаться. Автофильтр,​ задачи этой темы​MU-GK​ End If ‘Отключаем​ 2) = arr1(i,​ узлов» в столбце​: vikttur, ура, теперь​ по UID приоритетен).​ MSE гуру с​ написано, все зависит​The_Prist​Hugo121​ заголовок столбца m​’.Copy​ вычисления проводить там​ 1.000.000Тогда есть резон​ в макросе выделить​ помоему, скроет сначала​ и выложи​, поддерживаю обеими руками​ статусную строку Application.DisplayStatusBar​ 0) Else arr2(j,​ А нет, то​ понял, что не​

​Если макрос находит​​ вопросом: у меня​​ от ситуации. аналогичное​​: Поправка: данный код​,​ = ActiveSheet.Cells(Rows.Count, ncolumn).End(xlUp).Row​’.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,​

​ запросами. Еще лучше​​ загнать всё в​ отфильтрованые записи. ​ все пусто, затем​Вы ребята чтото​fever brain​ = False ‘Отключаем​ 2) End If​ при нажатии ОК​Ну смотрите, в​ UID или е-мейл,​ помоги плз и​ многим пунктам оптимизации​ листа на печатные​, вас с первого​ ActiveSheet.Cells(2, ncolumn).Resize(m, 2)​:=False, Transpose:=False’вставляем значения​Все вычисления и​ SQL никаких проблем,​- велик размер​ я ошибаюсь?​ надо это все​CurC = (try​ = False В​ Else If InStr(1,​ продолжаем 2,3,4​ принципе, мне не​ то он переходит​ гуру по доброте​Цитататоже не всегда​ страницы. Но не​ взгляда не насторожили​ arr2 = rn.Value​End With​ отображения данных (если​ а в Эксельке​ — [​Лузер™​ ускорять​ — 3) *​ конце работы макросов​ m, arr1(i, 0),​5) Затем следующая​ сложно одним архивом​ к следующему UID​ душевной/трудовому договору/. начинает​ справедливо. Все зависит​ границы ячеек.​ такие строки в​ Set conn =​’Debug.Print «2): «​ заполнения ячеек делать​ постоянно кикие-нибудь сюрпризы,​МОДЕРАТОРЫ​: Конечно, условие для​Я там прокоментировал​ 5 .Cells(CurR, 1​ код: ‘Включаем обновление​ vbTextCompare) > 0​ ячейка с листа​ перевыложить, если сверху​ (не сверяя с​ ковырять файл, но​ от конкретной формулы​e_artem​ коде?​ New ADODB.Connection ‘Создание​ & Timer -​ массивами) будут выполняться​ поскольку обращается он,​]​ автофильтра я записал​что лист3 итак​ + CurC).Resize(, 4)​ экрана после каждого​ Then If CInt(arr1(i,​ «Перечень» — В4,​ удалить и для​ unique records). Если​ времени/желания/. у гуру​ и ситуации, это​:​If InStr(1, arr2(j,​ соединения conn.ConnectionString =​ t: t =​ мгновенно !​ как я понимаю,​Казанский​ с ошибкой.​ уже в памяти​ = Array(s, ss,​ события Application.ScreenUpdating =​ 2)) = CInt(arr1(i,​ и повторяются п.2,3,4,5​ форума оно лучше.​ не находит, то​ и/или пользователя для​ обсуждалось.​Мои 5 оптимизационных копеек​ 1), arr1(i, 0),​ «Provider=SQLOLEDB.1;Password=132132;Persist Security Info=True;User​ Timer​Саня​ ко всяким внешним​: > Споткнулся здесь​Автофильтр оставляет видимыми​ коллекции, а лист2​ v.Value, Replace(v.Address, «$»,​ True ‘Расчёты формул​ 3)) Then ‘cравниваем​ до пустой ячейки.​ZamoK​ он идет на​ глубокого анализа нет.​KL​Оптимизация​ vbTextCompare) > 0​ Catalog=dbScanKD;Data Source=SQL05″​Sheets(«состав»).Range(«B30»).FormulaLocal = «=СУММПРОИЗВ(План!$GB$19:$GB$1000*(План!$C$19:$C$1000=состав!B$31))»‘вставляем​: этот кусок:​ драйверам и сервисам,​С датами в​ строки соотбетствующие условию.​ я перенес в​ «»)) ‘ .Cells(CurR,​ — снова в​ числовые значения arr2(j,​Количество деталей соответственно​: Есть работающий макрос,​ лист “Unique records”,​ В какой последовательности​: e_artem, если позволите,​1) Избегать формул​ Then​ ‘Строка подключения conn.Open​ формулу в 30​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Range(Cells(30, 2), Cells(30, lLastCol)).Select​ а у них​ автофильтре проблема. Используйте​ Стало быть надо:​ массив arr​ 1 + CurC).Value​ автоматическом режиме Application.Calculation​ 2) = arr1(i,​ ссумируется при повторении​ но при увеличении​ если такой UID​ начинать заточку MSE​ в вашем разделе​ массивов (по возможности)​fever brain​ ‘Открытие соединения Set​ строку​Selection.Copy’ копируем​ в каждой системе​ числовые переменные. Если​Selection.AutoFilter Field:=1, Criteria1:=»<>»​Силыч​ = s ‘​ = xlCalculationAutomatic ‘Включаем​ 0) Else arr2(j,​ и умножается на​
​ строк листа «Состав​ там уже есть,​ файла, как определить​ Оптимизация есть весьма​2) Избегать волатильных​, допустим массив с​
​ rst = New​Range(«B30»).Select​Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,​
​ свои причуды.​ будут только даты​Selection.AutoFilter Field:=6, Criteria1:=»>0″,​: Доброе время суток.​

​ .Cells(CurR, 2 +​​ события Application.EnableEvents =​​ 2) Перечень»​ узлов» до 22​ то он приплюсовывает​ наиболее узкие горлышки​ сомнительные/спорные обобщения​ формул (по возможности)​