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

时间:2016-06-06 18:16:56

标签: vba runtime subroutine

我正在设计一个用户界面,只需单击"运行"按钮。

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

下定义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

1 个答案:

答案 0 :(得分:0)

End_date_Calendar在哪里设置? 。 。 。

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