领先接待诸君一又友来到这个平台，共享我方的服从，福不唐捐，总会有所成绩。无论是EXCEL的操作，依然VBA的操作悠悠色，齐会对公共有所匡助。常识的教诲经由中，但愿公共获得哪怕是少许点的成绩，我的时间即是有真义的。
当天给公共讲VBA的轮回，这个黑白常基础的常识，在VBA的关联内容中我也一直在用，也在不休的教诲。当天专门看成一个专题给公共提神地证据，中间也有一些故酷好的小例子，供公共玩耍。
一FOR NEXT语句这种轮回所以指定的次数来重叠推行一组语句
这个结构一般是这么的：
for counter= start to end [ step步长值]
[statements]
[exit for]悠悠色
[statements]
Next counter
具体证明一下，运行值指的是轮回动手的值，适度值指的是轮回适度的值，实践上即是counter值的一个判断，如果counter值在肇始值和适度值之间，那么干预轮回语句，然后counter值每运行到next语句后，会自动加一个步长值，直至counter值超出了运行值到适度值这个限制，轮回才会适度。这里要证据一下，“step步长值”时时是不详掉的，不详掉的话，步长取默许值为1。底下将以一段小实例来具体证据这个结构的用法。
实例：在sheet1责任表中一次输出1到100这些数，表现在第一列中。
技巧：
Sub kk()
Sheets(“sheet1”).select
Dim i As Integer
For i = 1 To 100
Cells(i， 1) = i
Next
End Sub
二for each …NEXT语句这种轮回主邀功能是对一个数组或一个对象进行操作，让所用元素推行一次轮回语句
For each element in group
[statements]
[exit for]
[statements]
Nexr element
具体证明一下，在for next轮回中主如果数值变量，而for each …NEXT这种结构是对象变量。什么酷好呢？each……in指的是在这个对象聚积内部，一次将每一个对象齐遍历一边。相似的酷好，推行到next后对象自动指到下一个。具体咱们来看一下底下的一个实例吧。
实例：给一个数据区域a1:d5内的所有单位格迅速赋值。
分析：昭着数据区域即是一个对象聚积，单位格即是这个聚积内部的对象。
技巧：
Sub JJ()
Sheets("SHeet1").Select
Dim i As Integer
For Each c In Range("a1:d5")
c.Value = Rnd
Next
End Sub
小宝 探花三DO loop语句在条目为true时，重叠推行号令区域
DO WHILE CONDITION
[statements]
[exit do]
[statements]
LOOP
梗概：
DO
[statements]
[exit do]
[statements]
LOOP WHILE CONDITION
备注：上头的while不错用until代替。
VBA中如果预先不知说念将重叠若干次轮回，仅仅知说念判断的条目，那么使用Do...Loop语句。Do...Loop语句重叠推行某段代码直到条目是true或条目酿成true。重叠推行代码直到条目是true使用While关键字来检查Do... Loop语句的条目。
例如：咱们用Do While语句来处分求1—100的当然数的和的问题：
Sub my_sum()
Dim Lsum As Long， i As Long
i = 1
Do While i
Lsum = Lsum + i
i= i + 1
Loop
MsgBox "1到100的当然数和为：" & Lsum
End Sub
好了，到这里把三个轮回体齐作念了教诲，上头也讲到了三个实例，截图如下，我齐作念了测试，不错使用。
当天内容回向：
1 VBA中三种轮回体是什么？
2三种轮回的分裂和关系是什么？
3如果不知将轮回若干次？用哪个轮回体？
4试着把第一个例子改成第三个的形态。
共享服从悠悠色，随喜正能量
本站仅提供存储管事，所有内容均由用户发布，如发现存害或侵权内容，请点击举报。