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 ;对象、属性、方法和事件;;;;;习题