, имеющий пару sub под одной командной кнопкой VBA

Question

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

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

"Private Sub Run_Click()"?

Я хочу, чтобы программа работала быстрее. У меня есть ошибка «ошибка во время выполнения 6 перелива» УВА

Кроме того, это код, который включает в себя тяжелую петлю:

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 

Answer 1

Где End_date_Calendar установлен? . , ,

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