几种VBA语句结构[带举例子].docx

Office 2010 的 VBA，是一种可用于扩展 Office 2010 应用程序的简单且强大的编程语言，用来执行许多任务。 Office 2010 中 VBA 编程的强大功能是：几乎所有可以使用鼠标、键盘或对话框执行的操作都可以使用 VBA 来执行。另外，如果可以使用 VBA 执行一次操作，则可以轻松执行一百次这样的操作。事实上，自动执行重复任务是 Office 中 VBA 的最常见用法之一。  使用Range属性 VBA中可以使用Range属性返回单元格或单元格区域，如下面的代码所示。 Sub 选择1() Sheet1.Range(A1:D9, D1:D9).Select End Sub 代码解析：第二行单元格A1:D9和单元格D1:D9同时选中。 “选择1”过程使用Select方法选中A1:A9，D1:D9单元格区域。  If Then 判断语句(单行结构) Sub 按钮1_单击() If Range(a1).Value = 60 Then Range(b1) = 及格 End If End Sub 代码解析：第2行代码判断，如果A1单元格的值大于等于60，那么；第3行代码在单元格B1输入“及格”。  For Next语句 Sub macro1() Dim I As Byte, C As Integer For I = 1 To 100 C = C + I Next I MsgBox C End Sub 代码解析： 第2行定义变量I为字节型，C为整型；第3行代码到第5行用了一个循环语句For Next ，给I赋值，赋值范围从1到100；第4行代码累加；第6行代码用输出函数MsgBox显示最后累加的C。  Select Case 语句 Sub aa() Dim I As Integer For I = 2 To 7 m = Sheet1.Range(a I) Select Case m Case Is = 80 Sheet1.Range(b I) = 优秀 Case Is = 70 Sheet1.Range(b I) = 良好 Case Is = 60 Sheet1.Range(b I) = 及格 Case Else Sheet1.Range(b I) = 不及格 End Select Next I End Sub 代码解析： 第2行定义变量I为整型；从第3行到15行用了一个循环语句For Next，给I赋值从2到7；第4行代码把工作表1从A2开始到A7的值赋给m；从第5行代码到14行代码用了Select Case End Select语句。  Sheet3.Activate For I = 2 To 12 If Range(b I) = 数学部 Then Select Case Range(e I) Case 教授 Range(D15) = Range(D15) + Range(G I) Case 助教 Range(D16) = Range(D16) + Range(G I) Case 讲师 Range(D17) = Range(D17) + Range(G I) Case 副教授 Range(D18) = Range(D18) + Range(G I) End Select End If Next I For I = 2 To 5 If Range(a I) = 技能竞赛 Then Select Case Range(c I) Case 张三 Range(d12) = Range(d12) + 1 Case 王五 Range(D13) = Range(D13) + 1 End Sel