Excel VBA 基础语法

2.  
   Is 比较两个对象的引用变量|| 对象1 Is 对象2 || 当对象1和对象2引用相同的对象时返回True，否则返回False
3.  
   Like 比较两个字符串是否匹配 || 字符串1 Like 字符串2 || 当字符串1与字符串2匹配时返回True，否则返回False
4.  
    
5.  
   Range("A1") >= 500
6.  
    
7.  
   Range("B2") Like "陈*"
8.  
    
9.  
   "*"是通配符，代替任意多个字符
10.  
    "?" 代替任意的单个字符
11.  
    "#" 代替任意单个数字
12.  
    [A-Z] 代替位于charlist中的任意一个字符
13.  
    [!H-J] 代替不在charlist中的任意一个字符
14.  
     
15.  
    3.8.4 逻辑运算符
16.  
    And 逻辑"与"
17.  
    Or 逻辑"或"
18.  
    Not 逻辑"非"
19.  
    Xor 逻辑"异或"
20.  
    Eqv 逻辑"等价"
21.  
    Imp 逻辑"蕴含"
22.  
     
23.  
    3.10.3 使用Select Case语句解决“多选一”的问题
24.  
    Sub Test()
25.  
        Select Case Range("B2").Value
26.  
            Case Is >= 90
27.  
                Range("C2").Value = "优秀"
28.  
            Case Is >= 80
29.  
                Range("C2").Value = "良好"
30.  
            Case Is >= 60
31.  
                Range("C2").Value = "及格"
32.  
            Case Else
33.  
                Range("C2").Value = "不及格"
34.  
        End Select
35.  
    End Sub
36.  
     
37.  
    3.10.4 用For...Next语句循环执行同一段代码
38.  
    Sub ShtAdd()
39.  
        '在活动工作表前插入一张新工作表,新插入的工作表即为活动工作表
40.  
        Worksheets.Add
41.  
    End Sub
42.  
     
43.  
    Sub ShtAdd()
44.  
        '定义一个Byte类型的变量,名称为i
45.  
        Dim i As Byte
46.  
        For i = 1 To 5 Step 1
47.  
            '在活动工作表前插入一张新工作表
48.  
            Worksheets.Add
49.  
        Next i
50.  
    End Sub
51.  
     
52.  
    使用Exit For终止For循环
53.  
     
54.  
    Sub Test()
55.  
        Dim i As Byte                  '定义一个Byte类型的变量，名称为i
56.  
        For i = 2 To 11 Step 1                         '用For语句定义循环次数
57.  
            Select Case Range("B" & i).Value      'B列第i行的成绩是要评定等次的成绩
58.  
                Case Is >= 90
59.  
                    Range("C" & i).Value = "优秀"        '成绩达到90时要执行的代码
60.  
                Case Is >= 80
61.  
                    Range("C" & i).Value = "良好"        '成绩达到80时要执行的代码
62.  
                Case Is >= 60
63.  
                    Range("C" & i).Value = "及格"        '成绩达到60时要执行的代码
64.  
                Case Else
65.  
                    Range("C" & i).Value = "不及格"      '成绩是其他情况时要执行的代码
66.  
            End Select             'Select语句到此结束
67.  
        Next i                      'For语句到此结束
68.  
    End Sub
69.  
     
70.  
    3.10.5 用For Each...Next语句循环处理集合或数组中的成员
71.  
    Sub ShtName()
72.  
        Dim sht As Worksheet, i As Integer    '定义两个变量，其中sht是Worksheet（工作表）类型
73.  
        i = 1                                 '第1次写入工作表名称的是A1单元格，所以变量值定义为1
74.  
        For Each sht In Worksheets            '循环语句开始
75.  
            Range("A" & i) = sht.Name         '将工作表名称写入A列第i行的单元格
76.  
            i = i + 1                         '让变量i的值增加1，以便下次能将工作表名写入其他单元格中
77.  
        Next sht '循环语句结束
78.  
    End Sub
79.  
     
80.  
    问题：将1-100写入A1-A100中
81.  
    Sub RN()
82.  
        Dim c As Range, i As Integer
83.  
        i = 1
84.  
        For Each c In RANGE("A1:A100")
85.  
            c.Value = i
86.  
            i = i + 1
87.  
        Next c
88.  
    End Sub
89.  
     
90.  
    3.10.6 用Do语句按条件控制循环
91.  
    Sub ShtAdd_01()
92.  
        Dim i As Byte           '定义一个Byte类型的变量，名称为i
93.  
        i = 1                   '给变量i赋值
94.  
        Do While i <= 5         '当变量i小于或等于5时执行循环体
95.  
            Worksheets.Add      '在活动工作表前插入一张新工作表
96.  
            i = i + 1           '每执行一次循环体，变量i的值就增加1
97.  
        Loop                    'Do语句结束的标志
98.  
    End Sub
99.  
     
100.  
     Sub ShtAdd_02()
101.  
         Dim i As Byte                '定义一个Byte类型的变量，名称为i
102.  
         i = 1                        '给变量i赋值
103.  
         Do                           'Do语句开始
104.  
             If i > 5 Then Exit Do    '如果变量i的值大于5,那么终止循环
105.  
             Worksheets.Add           '在活动工作表前插入一张新工作表
106.  
             i = i + 1                '每执行一次循环体，变量i的值就增加1
107.  
         Loop                         'Do语句结束的标志
108.  
     End Sub
109.  
      
110.  
     Sub ShtAdd_03()
111.  
         Dim i As Byte           '定义一个Byte类型的变量，名称为i
112.  
         i = 1                   '给变量i赋值
113.  
         Do                      'Do语句开始
114.  
             Worksheets.Add      '在活动工作表前插入一张新工作表
115.  
             i = i + 1           '每执行一次循环体，变量i的值就增加1
116.  
         Loop While i <= 5       '如果变量i小于或等于5,那返回Do语句开始处再执行一次循环体
117.  
     End Sub
118.  
      
119.  
     3.10.7 使用GoTo语句让程序转到另一条语句去执行
120.  
     Sub Sum_Test()
121.  
         Dim mysum As Long, i As Integer         '定义两个变量
122.  
         i = 1 '变量i的初始值为1
123.  
     x:  mysum = mysum + i                       '将变量mysum的值与变量i的值相加，并将结果重新赋给变量mysum
124.  
         i = i + 1                               '变量i的值在原值的基础上增加1
125.  
         If i <= 100 Then GoTo x                 '如果i小于或等于100，跳转到x标签处
126.  
         MsgBox "1到100的自然数和是：" & mysum   '用对话框显示变量mysum的值
127.  
     End Sub
128.  
      
129.  
     3.10.8 With语句简写代码离不开它
130.  
     Sub FontSet_02()
131.  
         With Worksheets("Sheet1").Range("A1").Font    '开始With语句，定义要设置的对象
132.  
             .Name = "仿宋"                            '设置字体仿宁
133.  
             .Size = 12                                '设置字号为12号
134.  
             .Bold = True                              '设置字体为加粗字体
135.  
             .ColorIndex = 3                           '设置字体颜色为红色
136.  
         End With                                      'With语句到这里结束
137.  
     End Sub
138.  
      
139.  
     3.11.2 Sub过程的基本结构
140.  
     Sub hong()
141.  
         RANGE("A1:A8").Select
142.  
         SELECTION.COPY
143.  
         RANGE("C1").Select
144.  
         ACTIVESHEET.PASTE
145.  
     END Sub