【VBA】Office软件高级用户的必备利器

VBA编程在Office2010的实操训练

一、从宏说起

1、录制宏

在Word2010中，打开“视图”-“宏”-“录制宏”。

不要录制多余的操作，如不必要的鼠标点击，菜单选择等。

2、分析宏

录制好的宏，请分析他们的大概含义。可以从英文单词的含义分析其大致功能。

3、修改宏

按工作要求修改代码，增加控制、逻辑判断等语句，使VBA代码控制相应的Office环境，完成工作任务。

（些操作要求有VBA代码编写的能力）

操作视频如下（复制第1行文本，复制到第2-11行）

二、简单的VBA代码

Sub

子过程Test,作用给变量Sum赋值，其结果为1+1的结果，为2，然后通过msgbox输出。 注意 “&” 是字符连接符号，其前后加一个空格。

Sub Test()
Sum = 1 + 1
MsgBox “The answer is “ & Sum
End Sub

Comment注释

Sub CommentsDemo()
‘ This procedure does nothing of value
x = 0 ‘x represents nothingness
‘Display the result
MsgBox x
End Sub

符号“'”后面的代码是计算机不执行的，它是写给自己或者其它程序员看的。目的在于相互交流或者为以后程序的修改提供文本备案。

赋值语句：

x = 1
InterestRate = 0.075

LoanPayoffAmount = 243089
DataEntered = False
x = x + 1
UserName = “Bob Johnson”
DateStarted = #3/14/2004#
MyNum = YourNum * 1.25

如果你学过Excel会有一定的印象，左边的字串叫做变量，等号右边的内容给左边的变量（如果是表达式的话，要先进行计算）

数据类型有很多种，文本，数字，日期等。

数据类型表：

数据类型 占用字节 值的范围

二、简单的VBA代码

IF语句（与Excel的If函数类似）

判断Time的值，决定msgbox的输出
Sub GreetMe()
If Time < 0.5="">
MsgBox “Good Morning”
Else
MsgBox “Good Afternoon”
End If
End Sub

For循环

下面程序，执行结果： 以当前单元格为起点，生成100个随机数据，存放于当前单元格及下面的99个单元格。

Sub FillRange()
Dim Count As Integer
For Count = 1 To 100
ActiveCell.Offset(Count - 1, 0) = Rnd
Next

End Sub