03 VBA的代码结构.pptx
文本预览下载声明
第三章 VBA的代码结构;3.1 VBA流程控制;;3.1.2 循环结构;;;;（3）Do…Loop语句
① Do[{While|Until}条件]
[过程语句]
[Exit Do]
[过程语句]
Loop
② Do
[过程语句]
[Exit Do]
[过程语句]
Loop [{While|Until}条件]
;上面格式中，While和Until的作用正好相反。使用While，则当条件为真继续循环。使用Until，则当条件为真时，结束循环。
把While或Until放在Do子句中，则先判断后执行。把一个While或Until放在Loop子句中，则先执行后判断。
;;Sub 循环3()
Dim Check, Counter
Check = True: Counter = 0 设置变量初始值。
Do 外层循环。
Do While Counter 20 内层循环。
Counter = Counter + 1 计数器加一。
If Counter = 10 Then 如果条件成立。
Check = False 将标志值设成 False。
Exit Do 退出内层循环。
End If
Loop
Loop Until Check = False ‘ 退出外层循环。
End Sub
;3.1.3 选择结构;Sub 选择1()
Dim number, digits, mystring
number = 53
If number 10 Then
digits = 1
Else
digits = 2
End If
If digits=1 Then mystring= one “ Else mystring= “more than one
Debug.Print mystring
End Sub
;Sub 选择2()
Dim number, digits, mystring
number = 53
If number 10 Then
digits = 1
Else
If number 100 Then
digits = 2
Else
digits = 3
End If
End If
Debug.Print digits
End Sub
;(2)Select Case语句(多分支选择）
Select Case 判断对象 Case 条件1 语句1
Case 条件2 语句2 Case Else 其他语句
End Select
;Sub 选择3()
number = 8
Select Case number
Case 1
Debug.Print A
Case 2, 3
Debug.Print B
Case 4 To 6
Debug.Print C
Case Is 8
Debug.Print D
Case Else
Debug.Print E
End Select
End Sub
;;;;过程与函数;子程序;自定义函数;;函数调用，参数传递;;;;VBA内置函数使用;调用工作表函数;With语句 ;例：设置单元格A1的字体为宋体、14号字、粗体，且字体颜色为红色。
未使用With语句
Sub 字???格式1()
Range(A1).Font.Name = 宋体
Range(A1).Font.Size = 14
Range(A1).Font.ColorIndex = 3
Range(A1).Font.Bold = True
End Sub;使用With语句
Sub 字体格式()
With Range(A1).Font
.Name = 宋体
.Size = 14
.ColorIndex = 3
.Bold = True
End With
End Sub
;对象、属性、方法和事件;;;;;习题
显示全部