Excel 之 VBA 入门学习（三）语序结构

和其他语言相同，都有顺序、条件(选择)、循环这些基本语句。不同的语言在表达方式上或多或少都有一些差异。顺序语句都没什么好说的，主要就是条件语句和循环语句。

语序结构

a. if 条件语句

    'if 条件语句
        If 判断条件 Then
            所要执行的操作
        Elseif Then
            所要执行的操作
        '……
        '……
        Else
            所要执行的操作
        End if

    '当只有一句判断的时候可以直接写在一行，并且不用加 End if ，加了会报错。例如：
        If Range("a1") >= 60 Then Msgbox "成绩合格！"

b. Select 条件语句

    'Select case 语句
        Select case num
            Case 判别条件 '一般数值范围都用 to 防止使用大于等于出错，例如 59 to 100 。 
                所要执行的操作
            Case 判别条件
                所要执行的操作
            '……
            '……
            Case else
                所要执行的操作
            End Select

c. for 循环语句

    'for 循环语句
        For 变量 = 初值 to 终值 [step 步长] '默认步长为一
            所要执行的操作
            ……
        Next
        '需要跳出循环的情况下，使用 Exit for 语句。

d. Do 循环语句

    'do 循环语句
        Dim i as Interger
        i = 1
        Do
            i = i + 1
            If i>8 Then Exit Do  

            Range("a" & i) = i
        Loop

Do 循环语句之前没有接触过，所以只是找了个例子写了一下，等用到再整理吧！

e. For each 循环语句

    'For Each ... Next 循环语句
    '在 A1-A100 单元格内填入 1-100 。
        Dim i as Interger, c as Range
        'c 为元素变量，可以是 Range 也可以是 Worksheet 等
        i = 1
        For Each c in Rang("A1:A100")
            c.Value = i
            i = i + 1
        Next

            f. With语句

    'With 语句（简化重复）
    '【举例】调整 Sheet1 中 A1 单元格字体。
    '不使用 With
        Worksheets("sheet1").Range("A1").Font.Name = "微软雅黑"
        Worksheets("sheet1").Range("A1").Font.Size = 12
        Worksheets("sheet1").Range("A1").Font.Bold = True
        Worksheets("sheet1").Range("A1").Font.ColorIndex = 3
        
    '使用 With 语句
        With Worksheets("sheet1").Range("A1").Font
            .Name = "微软雅黑"
            .Size = 12
            .Bold = True
            .ColorIndex = 3
        End With

 PS：大多数语句只是都是从网站或者书籍上整理的，主要是为了统一一起方便自己查阅！