在一个命令按钮VBA下有几个sub

Question

我正在设计一个用户界面，只需单击＆＃34;运行＆＃34;按钮。

它必须进行大量计算，并且越来越重。有什么办法可以在

下定义sub

＆＃34; Private Sub Run_Click（）＆＃34; ？

我想让程序更快运行。我有错误＃34;运行时错误6溢出vba＆＃34;

这也是包含重循环的代码：

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在哪里设置？ 。 。 。

我不相信有足够的代码或细节来确定可能重载的内容。调试监视表达式在错误点处说了什么？