наличие пары сабвуферов под одной командной кнопкой VBA

Я разрабатываю пользовательский интерфейс, который должен делать все, просто нажав кнопку «Выполнить».

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

"Частный Sub Run_Click()"?

Я хочу, чтобы программа работала быстрее. У меня ошибка "ошибка выполнения 6 переполнение vba"

Также это код, который включает в себя тяжелый цикл:

Dim NewDate As Long
Dim i As Long
For i = 3 To End_date_Calendar
NewDate = DateAdd("d", i - 3, strDate)
Worksheets("Calcul").Cells(i, "AB").Value = NewDate

Next i

vba runtime subroutine
person Zapata    schedule 06.06.2016    source источник

Ответы (1)


arrow_upward
0
arrow_downward

Где устанавливается End_date_Calendar? . . .

Я не верю, что там достаточно кода или деталей, чтобы определить, что может быть перегружено. Что говорят выражения отладки в точке ошибки?

person Hathawulf    schedule 06.06.2016
comment
Это результат другого расчета. Это максимум одного из столбцов. - person Zapata; 06.06.2016