1,、錄制宏

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

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

2,、分析宏

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

3、修改宏

按工作要求修改代碼,，增加控制,、邏輯判斷等語句，使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í)行的,，它是寫給自己或者其它程序員看的。目的在于相互交流或者為以后程序的修改提供文本備案,。

賦值語句：

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語句（與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