vba简单循环详解

最新推荐文章于 2025-02-11 01:33:10 发布

gxiyv

最新推荐文章于 2025-02-11 01:33:10 发布

阅读量8.5k

点赞数 1

CC 4.0 BY-SA版权

文章标签： vba

本文链接：https://blog.youkuaiyun.com/gxiyv/article/details/1569735

本文详细介绍了VBA中的For循环，通过四个不同的实例展示了如何使用不同条件和步长进行循环，并展示了每次循环中变量的变化，帮助理解VBA循环机制。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Private Sub CommandButton1_Click()
x = 0 '自定义初值为0的x
For i = 1 To 5 '因为没有用step指定步长，默认为1，循环计数器的数值变量i将循环5次
x = x + 1 '每循环一次x就增加数值1
Next
MsgBox x '把算出来的x，也就是5,值用跳出窗口的方法显示出来
End Sub

Private Sub CommandButton2_Click()
x = 0 '自定义初值为0的x
For i = 1 To 6 '因为没有用step指定步长，默认为1，循环计数器的数值变量i将循环六次
x = x + i '每循环一次x就增加数值i
'第一次循环 x = 0 + 1 = 1
'第二次循环 x = 1 + 2 = 3
'第三次循环 x = 3 + 3 = 6
'第四次循环 x = 6 + 4 = 10
'第五次循环 x = 10 + 5 = 15
'第六次循环 x = 15 + 6 = 21
Next
MsgBox x '把算出来的x，也就是21,值用跳出窗口的方法显示出来
End Sub

Private Sub CommandButton3_Click()
x = 2 '自定义初值为2的x
For i = 1 To 6 Step 2 '用step指定步长为2，循环计数器的数值变量i将循环3次,在1-6六个数字里取1，3，5
x = x + i '每循环一次x就增加数值i
'第一次循环 x = 2 + 1 = 3
'第二次循环 x = 3 + 3 = 6
'第三次循环 x = 6 + 5 = 11
Next
MsgBox x '把算出来的x，也就是11,值用跳出窗口的方法显示出来
End Sub

Private Sub CommandButton4_Click()
x = 5 '自定义初值为5的x
For i = 1 To 6 Step 2 '用step指定步长为2，循环计数器的数值变量i将循环3次,在1-6六个数字里取1，3，5
x = x + 2 '每循环一次x就增加数值2
'第一次循环 x = 5 + 2 = 7
'第二次循环 x = 7 + 2 = 9
'第三次循环 x = 9 + 2 = 11
Next
MsgBox x '把算出来的x，也就是11,值用跳出窗口的方法显示出来
End Sub

Private Sub CommandButton5_Click()
x = 5 '自定义初值为5的x
For i = 1 To 6 Step 2 '用step指定步长为2，循环计数器的数值变量i将循环3次,在1-6六个数字里取1，3，5
x = x + i '每循环一次x就增加数值i
'第一次循环 x = 5 + 1 = 6
'第二次循环 x = 6 + 3 = 9
'第三次循环 x = 9 + 5 = 14
Next
MsgBox x '把算出来的x，也就是14,值用跳出窗口的方法显示出来
End Sub