“vba如何跳出for循环“VBA如何跳出循环

Excel VBA程序进程控制—— for-Next循环语句

Sub mysum()

Dim Lsum As Long、I As Long

For I=1到1000

Lsum=Lsum I

next

MsgBox '1到1000的自然数和' Lsum

End Sub

Sub查找1到10000之间的偶数和()

Dim I、J

For I=0到10000 step 2

J=J I

next

MsgBox '1到10000之间的偶数和' j

End Sub

Sub查找1到10000之间的偶数和2()

Dim I、J

For I=10000 ~步骤1-2

J=J I

next

MsgBox '1到10000之间的偶数和' j

End Sub

Sub求1到10000之间的奇数和()

Dim I、J

For I=1到10000 step 2

J=J I

next

MsgBox '1到10000之间的奇数和' j

End Sub

Sub求1到10000之间的奇数和2()

Dim I、J

For I=9999To 1 Step -2

J=J I

next

MsgBox '1到10000之间的奇数和' j

End Sub

Sub得到1到10，000之间可以除以5的数字总和()

Dim I、J

For I=0到10000 step 5

J=J I

next

从' MsgBox '1到10000，可被5整除的数字总和为' J

End Sub

Sub求1到10，000之间可以被5整除的数的总和2()

Dim I、J

For I=10000到第1步-5

J=J I

next

从' MsgBox '1到10000，可被5整除的数字总和为' J

End Sub

集中注意力，随便找课程excel VBA资料。