几种VBA语句结构(带举例子).docx

《几种VBA语句结构(带举例子).docx》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、Office2010的VBA，是一种可用于扩展Office2010应用程序的简单且强大的编程语言，用来执行许多任务。Office2010中VBA编程的强大功能是：几乎所有可以使用鼠标、键盘或对话框执行的操作都可以使用VBA来执行。另外，如果可以使用VBA执行一次操作，则可以轻松执行一百次这样的操作。事实上，自动执行重复任务是Office中VBA的最常见用法之一。使用Range属性VBA中可以使用Range属性返回单元格或单元格区域，如下面的代码所示。Sub选择1()Sheet1.Range("A1:D9,D1:D9").SelectEndSub代码解析：第二行单元格A1

2、:D9和单元格D1:D9同时选中。“选择1”过程使用Select方法选中A1:A9，D1:D9单元格区域。IfThen判断语句(单行结构)Sub按钮1_单击()IfRange("a1").Value>=60ThenRange("b1")="及格"EndIfEndSub代码解析：第2行代码判断，如果A1单元格的值大于等于60，那么；第3行代码在单元格B1输入“及格”。ForNext语句Submacro1()DimIAsByte,CAsIntegerForI=1To100C=C+INextIMsgBoxCEndSub代码解析：第2行定义变量I为字节型，C为整型；第3行代码到

3、第5行用了一个循环语句ForNext，给I赋值，赋值范围从1到100；第4行代码累加；第6行代码用输出函数MsgBox显示最后累加的C。SelectCase语句Subaa()DimIAsIntegerForI=2To7m=Sheet1.Range("a"&I)SelectCasemCaseIs>=80Sheet1.Range("b"&I)="优秀"CaseIs>=70Sheet1.Range("b"&I)="良好"CaseIs>=60Sheet1.Range("b"&I)="及格"CaseElseSheet1.Range("b"&I)="不及格"EndSelectNex

4、tIEndSub代码解析：第2行定义变量I为整型；从第3行到15行用了一个循环语句ForNext，给I赋值从2到7；第4行代码把工作表1从A2开始到A7的值赋给m；从第5行代码到14行代码用了SelectCaseEndSelect语句。Sheet3.ActivateForI=2To12IfRange("b"&I)="数学部"ThenSelectCaseRange("e"&I)Case"教授"Range("D15")=Range("D15")+Range("G"&I)Case"助教"Range("D16")=Range("D16")+Range("G"&I)Case"讲师

5、"Range("D17")=Range("D17")+Range("G"&I)Case"副教授"Range("D18")=Range("D18")+Range("G"&I)EndSelectEndIfNextIForI=2To5IfRange("a"&I)="技能竞赛"ThenSelectCaseRange("c"&I)Case"张三"Range("d12")=Range("d12")+1Case"王五"Range("D13")=Range("D13")+1EndSelectEndIfNextIForI=2To5IfRange("a"&I)="技能竞赛"ThenSele

6、ctCaseRange("d"&I)Case"张三"Range("d12")=Range("d12")+1Case"王五"Range("D13")=Range("D13")+1EndSelectEndIfNextIForI=2To5IfRange("a"&I)="技能竞赛"ThenSelectCaseRange("e"&I)Case"张三"Range("d12")=Range("d12")+1Case"王五"Range("D13")=Range("D13")+1EndSelectEndIfNextI