하나의 명령 단추 아래 VBA의 커플을 가지고

Question

"실행"버튼을 클릭하여 모든 것을하기로되어있는 사용자 인터페이스를 설계하고 있습니다.

계산이 많이 필요하고 무겁고 무거워지고 있습니다. 어떤 방법으로 서브를 정의 할 수 있습니까?

"Private Sub Run_Click()"?

프로그램을 더 빠르게 실행하고 싶습니다.

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이다 : 나는 "런타임 오류 6 오버플로 VBA"

또한이 무거운 루프를 포함하는 코드가의 오류가? . . .

과부하 일 수있는 충분한 코드 또는 세부 정보가 있다고 생각하지 않습니다. 디버그 워치 표현식은 오류 지점에서 무엇이라고 말합니까?