VBA基础六:遍历、循环的实例DO....WHILE/UNTILL/LOOP

Do While...Loop 语句是条件为True时循环

Do until...Loop 语句是直到条件变成True时才停止循环

如果事先知道循环次数,应该使用For循环,据说它比Do循环速度快

不知道起点和终点,需要在循环内计算结果出来以后才能判断是否该终止循环的,用Do Loop循环。反之,如果很明确需要循环计算的次数,则用For……Next……计量循环。

For 循环有两种:
1. For Each a In C

    遍历集合C中所有a元素。当然毫无疑问也可以使用If Then Exit For随时提前退出。
好处是不用设置循环计数变量。因此在很多确实需要遍历全部元素的情况下,是效率最高的循环遍历方式。

2. For i = a To b [Step c]
Next

和For Each 循环相比,因为有了计数器、计数变量i的使用,可以非常灵活和实用。实用之处在于: 【计数变量本身可以用来参与计算】这个在数组循环中尤其重要。
[Step c] 为缺省参数,正常默认设置为 Step 1 即按步长=1进行正向递增循环。

如 For i = 1 To 100
相当于 For i = 1 To 100 Step 1
即从1 循环直到 100为止,共计循环 100-1+1=100次。

而c可以设置为任意正负数(不可设置=0……将陷入死循环。)
注意,如果设置c为负数,即进行逆向负循环时,则要求 a >= b 否则如果a < b则无法启动循环。 

例:把>=90分的人打上勾。

 

Private Sub CommandButton1_Click()
Dim rs%
rs = 1
Do
rs = rs + 1
If rs > 10 Then
Exit Sub
Else
If Cells(rs, 2) >= 90 Then Cells(rs, 3) = "√"
End If
Loop
End Sub

缺点:不能清理。如把51分改为510分,打勾后再改回到51分,再点筛选键,不能清除这个51分的勾。

  Range("B7:AG26").Select
  Selection.ClearContents
  Range("D28:AG29").Select
  Selection.ClearContents

指定块清除

 

从右取字符串截取的笨办法

 

从左第n个字符:=MID(A1,n,1)
从右第n个字符:=LEFT(RIGHT(A1,n))

=LEFT(RIGHT(A2,2),1)  '从A2行第2列开始,右边数第二个汉字或字母/数字长度为1个字。

如果(A2,2)的内容是“张平之子”,右数第二个字为之,长度为1,结果是“子”。长度为2结果是“之子”

"在不清楚总字符的前提下,只说从右边第几个字符开始提取N个字符,这就不好直接用MID函数指定位置,可以变通用:
(假设对单元格A1从右边第M个字符开始提取N个字符)
=MID(A1,LEN(A1)-(M+N-2),N)"

 

Private Sub CommandButton1_Click()
Dim rs As Integer
rs = 2
Do While Cells(rs, 1) <> "" '当单元格不等于空时,则循环
If Cells(rs, 1) <> "" Then Cells(rs, 3) = Mid(Cells(rs, 1), 2, 1) '如果第1列长度为4,在该行第3列中取,从第2字取长度为1字符。
rs = rs + 1
Loop '循环
End Sub

 

一直循环到没有内容为止

Private Sub CommandButton1_Click()
Dim rs As Integer
rs = 2
Do Until Cells(rs, 2) = "" '直到单元格为空为止,才结束
If Cells(rs, 2) >= 90 Then Cells(rs, 3) = "√"
rs = rs + 1
Loop '循环
End Sub

'实例-隔行填色

Sub 隔行填色()
Dim rs As Integer
rs = 2
Do Until Sheet2.Range("a" & rs) = ""
Sheet2.Range("a" & rs & ":g" & rs).Interior.ColorIndex = 7
rs = rs + 2
Loop
End Sub

输入密码验证,3次不正确退出,正确为123

Private Sub CommandButton1_Click()
Dim pss$, i!
Do
i = i + 1
If i > 3 Then Exit Do
pss = InputBox("请输入密码")
Loop While pss <> "123"
End Sub

'FOR...NEXT也是循环语句,与之前的DO...LOOP不同之处在于,for next有一个内置计数器


Sub for next循环2()
Dim i!, j!
For i = 100 To 1 Step -2
j = j + i
Next
MsgBox j
End Sub


Sub fornext循环()
Dim rng!
For rng = 2 To 16
Sheet1.Cells(rng, 4) = Sheet1.Cells(rng, 2) * Sheet1.Cells(rng, 3)
Next
End Sub

 

有表格,字段为商品,单价,数量,自动填写总金额公式

Private Sub CommandButton1_Click()
Dim rng!
For rng = 2 To 16 '第2到16行,第一行为标题,共有16行
Sheet1.Cells(rng, 4) = Sheet1.Cells(rng, 2) * Sheet1.Cells(rng, 3) '在第4列写出第2列和第3行相乘的结果
Next '从第2行开始,顺序朝下,直到第16行为止
End Sub

 

Sub 九九乘法表制作()
Dim a!, b!
For a = 1 To 9
For b = 1 To 9
If b > a Then
Sheet2.Cells(a, b) = ""
Else
Sheet2.Cells(a, b) = a & "×" & b & "=" & a * b
End If
Next
Next
End Sub

'exit是退出当前语句
'1.Exit Do
'2.Exit For
'3.Exit Function
'4.Exit Sub
Sub exitfor退出()
Dim i!
For i = 2 To 7
If Sheet1.Cells(i, 1) = "田七" Then
Exit For
End If
Next i
MsgBox "第一个(田七)的位置在" & i & "行"
End Sub

 

'end结束一个过程或块。
'End
'End Function
'End If
'End Select
'End Sub
Sub aa()
i = 1
End
Exit Sub
j = 1
End Sub

Sub onerrorresume()
Dim i!
On Error Resume Next '当错误的时候继续执行下去
For i = 2 To 8
Cells(i, 4) = Cells(i, 3) + Cells(i, 2)
Next i
End Sub

'On Error GoTo当错误的时候去哪儿?
Sub onerrorgoto()
On Error GoTo 100
For i = 2 To 8
k = Sheet1.Cells(i, 2) + Sheet1.Cells(i, 3)
Next i
100:
MsgBox "对不起,错误发生在第" & i & "行"

End Sub

 

循环对每行进行分割填写

 

 Private Sub CommandButton1_Click()

Dim i%, j% '定义循环参数
Dim br '定义系列
i = 6 '从第6行开始
Do While Cells(i, 3) <> "" '非空执行:从第6行第3列开始
br = Split(Cells(i, 3), " ") '从第6行第3行开始,把单元格内容进行拆分
If IsArray(br) Then Cells(i, 4).Resize(, UBound(br) + 1) = br '如果能分成数组,则从第6行4列开始,搂数组+1进行调整得出新数组值
i = i + 1
Loop
End Sub

array("A","B","C","D","E")
UBound(array)返回的是4,因为默认下标是从0开始的。相当于A(0 to 4)。

UBound语法如下:
返回一个 Long 型数据,其值为指定的数组维可用的最大下标。


UBound(arrayname[, dimension])
arrayname
必需的。
数组变量的名称,遵循标准变量命名约定。
dimension
可选的;Variant (Long)。指定返回哪一维的上界。1 表示第一维,2
表示第二维,如此等等。如果省略 dimension,就认为是 1。

对具有下述维数的数组而言,UBound 的返回值见下表:

Dim A(1 To 100, 0 To 3, -3 To 4)

UBound(A, 1) = 100

UBound(A, 2) = 3

UBound(A, 3) = 4
如果没指明下标,下标默认为0。定义一年365天的开支参数,用数组表示如下:
Dim curExpense(364) As Currency
0占一个元素位置+364个元素。

UBound的是数组的上界。
比如一组数组arr(1 to 10),那么ubound(arr)=10
二维数组arr(1 to 10,1 to 100),
ubound(arr,1)=10
表示第一维的上界是10
ubound(arr,2)=100表示第二维的上界是100

 

数组测试

Private Sub Constant_demo_Click()

Dim a,b as Variant

a = array("Red","Blue","Yellow")

b = "12345"


msgbox("数组类型测试结果组 1 : " & IsArray(a))

msgbox("数组类型测试结果组 2 : " & IsArray(b))

End Sub


当执行上面的函数时,它会产生下面的输出。


数组类型测试结果组 1 : True
数组类型测试结果组 2 : False



posted @ 2020-07-14 14:24  袁氏家谱网  阅读(15)  评论(0编辑  收藏