Excel VBA解读有限次的循环
发布时间:2022-09-16 21:47:29
这里,简要地谈谈有限次的循环结构,也就是For-Next循环。还是先看一个例子。
我们如果想要在工作表单元格区域A1:A10中依次填写数字1至10,可以使用下面的代码:
Sub ForNextTest1()
Dim i As Integer ‘声明整型变量i
‘使用循环为单元格填充数字
For i = 1 To 10
Cells(i, 1).Value = i
Next i
End Sub
运行后,当前工作表中单元格区域A1:A10会填充数字1至10。上述代码中,Cells(i, 1)代表第i行第1列的单元格,语句Cells(i, 1) = i将i的值放入第i行第1列的单元格中。
For-Next循环的基本语法结构如下:
For 计数变量=开始值 To 结束值 [step 步长]
[语句块]
[Exit For]
[语句块]
Next [计数变量]
说明:
按照惯例,方括号中的内容表示可选项。
步长可以是正值或者负值。正确地设置某个值,以满足特定的需求;若不设置,默认循环计数变量每次增加1,如上面的例子所示。
Exit For语句表示提前退出循环。
For-Next循环从计数变量设置的开始值开始,按步长增加计数变量值,直至达到结束值时终止循环。
将前面示例中的循环用框图表示如下:
下面的代码求1至100的和,并显示结果。
Sub ForNextTest2()
Dim sum As Integer ‘声明存储结果值的变量
Dim i As Integer ‘声明计数变量
sum = 0 ‘赋初值
For i = 1 To 100
sum = sum + i
Next i
MsgBox “1至100的和为:”& sum
End Sub
下面的代码求1至100之间的偶数和并显示结果。
Sub ForNextTest3()
Dim sum As Integer ‘声明存储结果值的变量
Dim i As Integer ‘声明计数变量
sum = 0 ‘赋初值
For i = 0 To 100 Step 2
sum = sum + i
Next i
MsgBox “1至100之间的偶数和为:”& sum
End Sub
其中,计数变量i的值从0开始,依次为2、4、6、8等,最后达到100。但是,在循环结束时,i的值为102。有兴趣的朋友可以添加一个语句,打印出循环结束后i的值。
我们使计数变量从100开始,让步长为负值递减,也可以得到同样的效果:
Sub ForNextTest4()
Dim sum As Integer ‘声明存储结果值的变量
Dim i As Integer ‘声明计数变量
sum = 0 ‘赋初值
For i = 100 To 0 Step -2
sum = sum + i
Next i
MsgBox “1至100之间的偶数和为:”& sum
End Sub
For-Next循环可以嵌套其他的For-Next循环。如下例所示,将当前工作表中的单元格区域A1:J10中的内容都填充为数字1。
Sub ForNextTest5()
Dim i As Integer ‘声明计数变量
Dim j As Integer ‘声明计数变量
For i = 1 To 10
For j = 1 To 10
Cells(i, j).Value = 1 ‘填充单元格
Next j
Next i
End Sub
下面的例子说明使用Exit For语句退出循环:
Sub ForNextTest6()
Dim i As Integer ‘声明计数变量
For i = 1 To 10
If Cells(i, 1).Value = 0 Then ‘判断单元格中的值为0
Exit For
End If
Next i
MsgBox “单元格A” & i& “中的值为0.”
End Sub
在单元格区域A1:A10中,如果某个单元格的值为0,则退出循环,并继续执行Next后面的语句,本例中是MsgBox函数。
![](https://www.aspxhome.com/images/zang.png)
![](https://www.aspxhome.com/images/jiucuo.png)
猜你喜欢
- 你会不会因为剪切过来的文字有阴影而心烦呢,下面我来告诉你,很简单的哦、1、新建Word文档,把你需要的剪切到文档中。如图2、在“底纹” &n
- win10有一些功能是可以不喜欢不需要时关闭的,也算比较人性化了。win10有个推送安装会给你推送些软件啊游戏啊之类的东东,看你会不会上钩安
- 在Word2007文档中设置单色页面背景颜色的步骤如下所述:第1步,打开Word2007文档窗口,切换到“页面布局”选项卡。第2步,在“页面
- 在日常工作中,有时需要写限定字数的材料,如果一行行的数,那得多慢啊,有没有更快捷的方法知道一篇文档有多少个字,下面小编就为大家介绍在Word
- Excel如何使用Choose从多达29个参数中选择相应的值?很多朋友都不是很清楚从,其实方法很简单的,下面小编就为大家详细介绍一下,一起来
- 很多用户在使用win10系统的过程中都碰上过错误代码,每个错误代码对应的原因都不一样,那0x80004005这个错误代码是什么意思呢?碰上的
- LSP是用来监视网络通讯情况的接口,同时LSP还是一个FEC在MPLS网络中经过的路径称为标签交换路径LSP(Label Switched
- 下图工作表A列中的名称顺序已固定,接下来我们想在工作表B列中批量插入与A列名称相对应的图片,图片的顺序自动与A列中的名称顺序相匹配。这里要注
- 1、首先在电脑中找到“xml文档”。2、右键点击该文档,选择“打开方式”,选择“excel”或者“WPS表格”,点击确定。3、即可在表格文件
- 1、首先点击电脑左下角的开始菜单,找到office软件,我们可以看到“office工具”。2、然后点开office工具,可以看到office
- Excel中怎么将柱形图做成透明的?Excel中数据经常绘制成图标,但是我们只做的矩形图都是不透明的,怎么才能制作透明的柱形图呢?下面我们来
- 这篇教程是向脚本之家的朋友分享在excel表格中使用vba获取窗口的尺寸方法,教程比较基础,适合新手来学习,推荐到脚本之家,一起来学习吧今天
- 从网上下载的word文档,经常包含作者与公司的信息,哪怎样清除呢?方法一步骤:第一步:右键单击word文档第二步:点击【属性】第三步:点击【
- 常量也是可以定义为名称的。当某一个数值(例如营业税率)需要经常使用时,则可以将其定义为名称来使用。以下是将常量定义为名称的操作技巧。在工作表
- 今天小编为大家分享excel利用去除重复项快速整合出每个学生的总成绩方法,对于经常制作表格处理数据的朋友来说,很值得学习,好了,下面我们一起
- 许多用户在使用电脑的经常会更新电脑操作系统,但是不少用户在使用电脑的时候经常会出现一些问题,例如有些用户在更新Win10的时候遇到了错误代码
- 制作公章的软件非常多,常用的有PS、Coreldraw、Ai、Word等,其实制作公章最方便,最快捷的还属Word了。今天所要教给大家的就是
- 下面小编就为大家介绍word2007给文字添加下划线和着重号方法,有需要的朋友可以过来参考一下,一起来看看吧添加下划线,着重号是为了特别突出
- 设置 iCloud 后会自动获得 5GB 的储存空间,我们可以使用这个空间来储存 iCloud 云备份以及进行更多操作。许多人可能不使用 i
- 在对文档进行编辑时会遇到不能添加页码的问题,这时候应该怎么处理设置呢?今天我们一起来学习下如何解决Word 文档无法插入页码的问题