1、錄制宏

在Word2010中，打開“視圖”-“宏”-“錄制宏”。

不要錄制多余的操作，如不必要的鼠標(biāo)點(diǎn)擊，菜單選擇等。

2、分析宏

錄制好的宏，請(qǐng)分析他們的大概含義?？梢詮挠⑽膯卧~的含義分析其大致功能。

3、修改宏

按工作要求修改代碼，增加控制、邏輯判斷等語(yǔ)句，使VBA代碼控制相應(yīng)的Office環(huán)境，完成工作任務(wù)。

（些操作要求有VBA代碼編寫的能力）

操作視頻如下（復(fù)制第1行文本，復(fù)制到第2-11行）

Sub

子過程Test,作用給變量Sum賦值，其結(jié)果為1+1的結(jié)果，為2，然后通過msgbox輸出。 注意 “&” 是字符連接符號(hào)，其前后加一個(gè)空格。

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

符號(hào)“'”后面的代碼是計(jì)算機(jī)不執(zhí)行的，它是寫給自己或者其它程序員看的。目的在于相互交流或者為以后程序的修改提供文本備案。

賦值語(yǔ)句：

x = 1
InterestRate = 0.075

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

如果你學(xué)過Excel會(huì)有一定的印象，左邊的字串叫做變量，等號(hào)右邊的內(nèi)容給左邊的變量（如果是表達(dá)式的話，要先進(jìn)行計(jì)算）

數(shù)據(jù)類型有很多種，文本，數(shù)字，日期等。

數(shù)據(jù)類型表：

數(shù)據(jù)類型 占用字節(jié) 值的范圍

IF語(yǔ)句（與Excel的If函數(shù)類似）

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

For循環(huán)

下面程序，執(zhí)行結(jié)果： 以當(dāng)前單元格為起點(diǎn)，生成100個(gè)隨機(jī)數(shù)據(jù)，存放于當(dāng)前單元格及下面的99個(gè)單元格。

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

End Sub