[弹指神通]：VBA技术讲座

shiqiang

一、VBA控制结构

　 　 VBA是由Visual Basic语言发展而成的，其语言结构分为两部分：Visual Basic语言结构和其嵌入软件的对象模块（如Excel对象模块）。其中，Visual Basic是一套完全独立的Windows开发系统，是可视化的、面向对象的、采用事件驱动方式的结构化高级程序设计语言。与其它高级程序设计语言的控制结构一样，Visual Basic程序设计语言的控制结构分为三种：顺序结构、分支结构和循环结构。

　 　 顺序结构：表示在每个过程或函数中程序依顺序执行每条语句，无条件判断转移和循环。原始记录宏的结构就属于顺序结构，既不能根据具体情况作出判断执行不同的操作，也不能对同一类问题自动地重复执行同一组操作。因而，要提高宏的灵活性，增加宏的功能，唯一办法就是修改宏，加入选择、判断、循环控制功能。

　 　

1. 分支结构

　 　 VBA的分支结构有：If语句和Select Case语句。

　 　

If 语句

　 　 If语句是根据条件判断控制程序的分支，有三种形式：一是单分支结构，仅当条件为真时执行Then语句块；二是双分支结构，当条件为真时执行Then语句块，条件为假时执行Else语句块；三是多分支结构，格式如下：

　 　

If 〈条件1〉 Then

〈语句块1〉

ElseIf 〈条件2〉 Then

〈语句块2〉

·

·

·

Else

〈语句块n+1〉

End If

　 　 当条件1为真时执行语句块1，否则，若条件2为真，则执行语句块2……如果所有的条件都不成立，则执行Else后面的语句块n+1。

　 　 例如为了更方便地浏览指定的工作表，希望限定活动单元格指针只能在工作表的3～9列内移动；当活动单元格位于3～9列之外时，将单元格指针移至该行的第3列；当活动单元格位于第9列，再右移时，单元格指针自动移至下一行的第3列。为此可以使用If结构的宏实现。相应的VBA程序如下所示：

　 　

Sub Move( )

‘在工作表的3～9列内右移单元指针

‘快捷键 Ctrl+Shift+M

If　 ActiveCell.Column < 3　 Or　 ActiveCell.Column > 9　 Then

Cells(ActiveCell.Row, 3).Select

ElseIf　 ActiveCell.Column = 9　 Then

Cells(ActiveCell.Row + 1, 3).Select

Else

ActiveCell.Offset(0, 1).Select

End If

End　 Sub

Select Case语句

Select Case语句与If...Then...ElseIf语句非常相似，只是当判断控制仅取决于一个测试变量时，使用Select Case结构更有效、更简捷。Select Case语句的格式如下：

Select Case 〈测试变量〉

Case 〈表达式1〉

〈语句块1〉

Case 〈表达式2〉

〈语句块2〉

·

·

·

Case Else

〈语句块n+1〉

End Select

　 　 该语句的功能是：首先将测试变量的值与Case后面表达式的值相比较，哪个表达式与测试变量匹配就转向执行哪段语句块，执行完毕便转向End Select语句之后继续往下执行。如果所有的条件都不成立，则执行Case Else后面的语句块n+1。

　 　 在Select Case语句中，测试变量可以是变量、属性或表达式。Case语句后面的表达式有可以为一般表达式，也可以为Is关系表达式。

　 　 一般表达式可以由多个表达式组成，其间用“，”和“To”分隔，前者表示“或”，只要其中有一个表达式匹配即执行该Case语句对应的语句块。后者表示范围，指定范围时，表达式值须从小到大排列。例如：Case －20 To －15，15 To 20

　 　 Is关系表达式。表示测试变量应该与Is关键字之后的表达式比较，当指定范围为真，则执行该Case下面的语句块，反之转向比较其它表达式。

　 　 注意：测试变量的类型必须与Case后面表达式的类型一致。

　 　 例如现有学生的考试成绩存放在StScore工作表中，需要根据考试成绩，在其右邻单元给出优、良、中、及格、不及格五个等级。这可以方便地利用Select Case语句实现。相应的VBA宏程序如下所示：

Sub Score( )

‘给出优、良、中、及格、不及格五个等级。

‘快捷键 Ctrl+Shift+S

　　 Select Case　 ActiveCell.Value

　　　　 Case　 Is < 60

　　　　　　 Cells(ActiveCell.Row, ActiveCell.Column + 1) = "不及格"

　　　　 Case　 60 To 69.9

　　　　　　 Cells(ActiveCell.Row, ActiveCell.Column + 1) = "及格"

　　　　 Case　 70 To 79.9

　　　　　　 Cells(ActiveCell.Row, ActiveCell.Column + 1) = "中"

　　　　 Case　 80 To 89.9

　　　　　　 Cells(ActiveCell.Row, ActiveCell.Column + 1) = "良"

　　　　 Case　 Else

　　　　　　　 Cells(ActiveCell.Row, ActiveCell.Column + 1) = "优"

　　 End Select

End Sub
*-*a

lyy1725

明经通道上有不少

lhtfh

好

wx352124

小弟刚想VBA，想知道基础教程，不知哪里有相关的电子收下载

enjoycat

最初由 lyy1725 发布
[B]明经通道上有不少 [/B]

2楼的说了 具体地址 http://www.mjtd.com/develop/vba/
那地方 个人认为不错。。因为 我也刚学。。

alicia

谢谢楼上的，那里的VBA教程不错。