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

[roborrr]

Спасибо Уважаемый Hugo121, за полезные советы , но я не говорил, Что предложенный метод был ненужным и бесполезным, совсем наоборот. просто я подумал что он не до конца решал мою проблему, но автор предложения хорошо объяснил хорошие вещи . И ваши советы пошли на пользу. Спасибп вам обоим.

Сообщение от Hugo121

- тут уже придётся в ячейки лезть, что неускоряется.
Если примечаний мало - можно пару раз и слазить, если так под 60% - то уже мало смысла закладываться в словари/массивы...
И хорошо что об этом сказали сейчас, а не потом, когда кто-то уже поработал над ненужным кодом.

Спасибо Уважаемый Hugo121, за полезные советы , но я не говорил, Что предложенный метод был ненужным и бесполезным, совсем наоборот. просто я подумал что он не до конца решал мою проблему, но автор предложения хорошо объяснил хорошие вещи . И ваши советы пошли на пользу. Спасибп вам обоим.

[SAS888]

Один из множества вариантов решения с использованием массивов и словаря:

Private Sub CommandButton1_Click()
    Dim i As Long, q As String, a(), b(), z: Application.ScreenUpdating = False
    Range("D2:D" & Rows.Count).ClearContents
    Set z = CreateObject("Scripting.Dictionary")
    a = Range("A2:C" & Cells(Rows.Count, 1).End(xlUp).Row).Value
    ReDim b(1 To UBound(a, 1), 1 To 1)
    For i = 1 To UBound(a, 1)
        q = a(i, 1) & a(i, 2): z.Item(q) = z.Item(q) + a(i, 3)
    Next
    For i = 1 To UBound(a, 1): b(i, 1) = z.Item(a(i, 1) & a(i, 2)): Next
    [D2].Resize(UBound(b, 1)).Value = b
End Sub

Пример во вложении. Выигрыш по времени весьма ощутим.

[roborrr]

Сообщение от SAS888

Один из множества вариантов решения с использованием массивов и словаря:

Private Sub CommandButton1_Click()
    Dim i As Long, q As String, a(), b(), z: Application.ScreenUpdating = False
    Range("D2:D" & Rows.Count).ClearContents
    Set z = CreateObject("Scripting.Dictionary")
    a = Range("A2:C" & Cells(Rows.Count, 1).End(xlUp).Row).Value
    ReDim b(1 To UBound(a, 1), 1 To 1)
    For i = 1 To UBound(a, 1)
        q = a(i, 1) & a(i, 2): z.Item(q) = z.Item(q) + a(i, 3)
    Next
    For i = 1 To UBound(a, 1): b(i, 1) = z.Item(a(i, 1) & a(i, 2)): Next
    [D2].Resize(UBound(b, 1)).Value = b
End Sub

Пример во вложении. Выигрыш по времени весьма ощутим.

Спасово огромное уважаемый SAS888. это то что я искал. Работает мгновенно. библиотеки для меня не совсем привычная штука. Более того, я об этом первый раз слышал. Вы не могли, если можно, написать ваш код с комментариями? Мне 100 раз легче будет разобраться что кчему .

[Hugo121]

Я об этом и говорил. Но если Вам нужно ещё много писать комментариев в ячейку - то это уже через массив не сделать, придётся лезть в каждую ячейку индивидуально, что долго.
Но правда хоть значения ячеек и обработку данных примечания можно делать массивами/словарями.

[roborrr]

Сообщение от Hugo121

Я об этом и говорил. Но если Вам нужно ещё много писать комментариев в ячейку - то это уже через массив не сделать, придётся лезть в каждую ячейку индивидуально, что долго.
Но правда хоть значения ячеек и обработку данных примечания можно делать массивами/словарями.

Я понял, спасибо. Хорошая штука эти библиотеки, жаль за бесцельно прожитые годы без них.

[roborrr]

Сообщение от Казанский

Построил сводную таблицу на отдельном листе, использовал функцию

=ПОЛУЧИТЬ.ДАННЫЕ.СВОДНОЙ.ТАБЛИЦЫ("сумма";Лист1!$A$3;"Склад";A2;"Клиент ";B2)

Посчиталось за несколько сек. Можно макросом то же проделать, заменить на значения и удалить лист со сводной.
Файл, сюда не влез: https://yadi.sk/d/mDRWvtc73QbyBy

Видно, это хороший метод для ускорения вычислений без макросов. Но я не понял как построить сводную таблицу, и где записать ваш код "=ПОЛУЧИТЬ.ДАННЫЕ.СВОДНОЙ.ТАБЛИЦЫ.. .".
Уважаемый "Казанский", объясните, пожалуйста подробно как это сделать, или же, если не трудно, продемонстрируйте на моем примере как это сделали вы и выложите файл пожалуйста.

[Казанский]

Сообщение от roborrr

продемонстрируйте на моем примере как это сделали вы и выложите файл пожалуйста

Так вот же ссылка на файл: https://yadi.sk/d/mDRWvtc73QbyBy
Вы уже 3 раза ее процитировали (#7, #8, #16) - не открывается, что ли?
Наверно, с помощью Power Pivot тоже можно это сделать - я эту надстройку еще не освоил.
Функцию ПОЛУЧИТЬ.ДАННЫЕ.СВОДНОЙ.ТАБЛИЦЫ даже прописывать вручную не надо. Достаточно в любой ячейке набрать = и кликнуть по ячейке сводной таблицы. Excel автоматически вставит функцию с соответствующими аргументами. Останется только заменить фиксированные значения полей "Склад", "Клиент" на ссылки на ячейки.

[SAS888]

Во вложении файл из #12 с подробными комментариями в коде.

[roborrr]

Сообщение от Казанский

Так вот же ссылка на файл: https://yadi.sk/d/mDRWvtc73QbyBy
Вы уже 3 раза ее процитировали (#7, #8, #16) - не открывается, что ли?

первый раз я послал пустой архив, вы ответили так:
"Файл, сюда не влез: https://yadi.sk/d/mDRWvtc73QbyBy"
я почему то подумал Что вы предлагаете меня ссылку на скачивания программы создания зип файлов и даже не посмотрел на ссылку ( Здесь хотел вставить смайлик). Извините за недоразумение и спасибо за ответы и за то что не поругали.

[roborrr]

Сообщение от SAS888

Во вложении файл из #12 с подробными комментариями в коде.

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