我正在设计一个用户界面,只需单击"运行"按钮。
它必须进行大量计算,并且越来越重。有什么办法可以在
下定义sub" Private Sub Run_Click()" ?
我想让程序更快运行。我有错误#34;运行时错误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
答案 0 :(得分:0)
End_date_Calendar在哪里设置? 。 。 。
我不相信有足够的代码或细节来确定可能重载的内容。调试监视表达式在错误点处说了什么?