excelperfect
要在Excel中編寫(xiě)宏程序，首先需要了解VBA語(yǔ)言，而快速入門(mén)的技巧就是使用宏錄制器。
宏錄制器就像一臺(tái)錄音機(jī)，可以使用VBA監(jiān)聽(tīng)和記錄你在Excel中所做的一切操作。對(duì)于初學(xué)者來(lái)說(shuō)，你可能不了解VBA，這里，我們會(huì)使用宏錄制器來(lái)記錄我們的操作，然后看看記錄的指令（也就是代碼），以了解VBA是什么。
下面我們來(lái)編寫(xiě)第一個(gè)VBA宏程序。其功能非常簡(jiǎn)單，將選擇的單元格中的字體設(shè)置為加粗、斜體并將其顏色設(shè)置為紅色。
第1步：選擇任意單元格，開(kāi)啟宏錄制器
很簡(jiǎn)單。只需選擇任意單元格，然后到功能區(qū)“開(kāi)發(fā)工具”選項(xiàng)卡“代碼”組中，單擊“錄制宏”按鈕，如下圖1所示。（也可以在選擇單元格后，直接單擊Excel界面左下角的“錄制宏”按鈕）
圖1
第2步：給宏命名
在彈出的“錄制宏”對(duì)話(huà)框中，在“宏名”文本框中輸入錄制的宏的名字，本示例將宏命名為“SetFontandColor”，如下圖2所示。單擊“確定”關(guān)閉“錄制宏”對(duì)話(huà)框。注意，如果不指定宏名，Excel會(huì)以宏1、宏2來(lái)自動(dòng)給宏命名。
圖2
第3步：在Excel中執(zhí)行操作
回到Excel工作表界面，單擊功能區(qū)“開(kāi)始”選項(xiàng)卡“字體”組中的“加粗”、“傾斜”按鈕，然后單擊“字體顏色”下拉按鈕設(shè)置為紅色。
第4步：停止錄制
現(xiàn)在，你已經(jīng)在Excel中執(zhí)行完想要的操作?；氐健伴_(kāi)發(fā)工具”選項(xiàng)卡，單擊“代碼”組中的“停止錄制”按鈕，如下圖3所示。（同樣，可直接單擊Excel界面左下角的“停止錄制”按鈕）
圖3
第5步（可選）：將宏指定給按鈕
單擊“插入”選項(xiàng)卡“插圖”組中的“形狀”按鈕，在工作表中繪制一個(gè)矩形并設(shè)置合適的格式。然后，在矩形中輸入文本“選擇單元格后單擊我”。接著，在矩形中單擊右鍵，從快捷菜單中選擇“指定宏”命令。在彈出的“指定宏”對(duì)話(huà)框中選擇剛才錄制的宏“SetFontandColor”，單擊“確定”按鈕，如下圖4所示。
圖4
步驟6：驗(yàn)證錄制的宏的效果
選擇任意單元格，單擊“選擇單元格后單擊我”，可以看到所選單元格中的文字變成紅色加粗斜體。
下面，我們來(lái)看看并試著理解錄制的宏代碼。
單擊功能區(qū)“開(kāi)發(fā)工具”選項(xiàng)卡“代碼”組中的“Visual Basic”按鈕，如下圖5所示。
圖5
或者，選擇任一工作表標(biāo)簽，單擊右鍵，在快捷菜單中選取“查看代碼”命令，如下圖6所示。
圖6
或者，最快速的方法是按Alt+F11鍵。
打開(kāi)VBE編輯器（Visual Basic Editor），如下圖7所示。在VBE中，你可以查看或編輯VBA代碼。
圖7
在VBE的工程資源管理器窗口中，雙擊“模塊1”，可以看到SetFontandColor代碼如下：
Sub SetFontandColor()
'
' SetFontandColor 宏
'
'
Selection.Font.Bold = True
Selection.Font.Italic = True
With Selection.Font
.Color = -16776961
.TintAndShade = 0
End With
End Sub
代碼中：
Sub SetFontandColor()：告訴Excel正在編寫(xiě)一組新的指令。單詞Sub表示VBA的下列行是子過(guò)程（或子程序）。在計(jì)算機(jī)術(shù)語(yǔ)中，這是一組相關(guān)的指令，必須一起執(zhí)行操作才有意義。當(dāng)Excel看到End Sub時(shí)，子過(guò)程結(jié)束。
以單引號(hào)(‘)開(kāi)始的行：表示該行為注釋?zhuān)渥饔檬潜阌诶斫獬绦颉?/span>Excel將忽略單引號(hào)開(kāi)始的行。
Selection.Font.Bold = True：將所選單元格字體設(shè)置為粗體。
Selection.Font.Italic = True：將所選單元格字體設(shè)置為斜體。
With Selection.Font：雖然對(duì)你我來(lái)說(shuō)，設(shè)置紅色字體似乎是一個(gè)步驟，但實(shí)際上對(duì)計(jì)算機(jī)來(lái)說(shuō)可能不只一步。并且，每當(dāng)需要對(duì)同一事物執(zhí)行很多操作（如本例中為選定的單元格）時(shí)，最好將它們?nèi)坷壴谝黄稹＿@是With語(yǔ)句出現(xiàn)的地方。當(dāng)Excel看到WithSelection.Font時(shí)，Excel會(huì)認(rèn)為：“好吧，我將對(duì)“選定單元格”的字體進(jìn)行操作，直到看到EndWith。
With語(yǔ)句塊內(nèi)的行：告訴Excel對(duì)所選單元格的字體進(jìn)行操作。本例中，最關(guān)鍵的是.Color= -16776961，告訴Excel將所選單元格字體設(shè)置為紅色。
End With：結(jié)束With語(yǔ)句塊。
End Sub：結(jié)束名為SetFontandColor的宏過(guò)程。
要理解這段代碼，你可以修改語(yǔ)句，再執(zhí)行SetFontandColor過(guò)程，看修改后的結(jié)果。例如，你可以將：
.Color = -16776961修改為.Color=65。
將.TintAndShade= 0刪除。
甚至按上述所說(shuō)的，將對(duì)Selection.Font的操作全部放在一起：
Sub SetFontandColor1()
'
' SetFontandColor 宏
'
'
With Selection.Font
.Bold = True
.Italic = True
.Color = -16776961
.TintAndShade = 0
End With
End Sub
當(dāng)然，一個(gè)程序中還可能涉及到變量、條件語(yǔ)句、循環(huán)語(yǔ)句等。另外，也會(huì)出現(xiàn)如上面示例程序中的許多其他的對(duì)象名稱(chēng)及其方法和屬性，讓我們?cè)诤罄m(xù)的示例學(xué)習(xí)中慢慢接觸并探索吧。
[預(yù)告]在知識(shí)星球App：完美Excel社群中，即將推出電子書(shū)《100+個(gè)有用的ExcelVBA代碼》，相信對(duì)于學(xué)習(xí)和使用ExcelVBA的朋友來(lái)說(shuō)，特別是對(duì)于初學(xué)者來(lái)說(shuō)，一定會(huì)有很好的幫助。
歡迎在下面留言，完善本文內(nèi)容，讓更多的人學(xué)到更完美的知識(shí)。
歡迎到知識(shí)星球：完美Excel社群，進(jìn)行技術(shù)交流和提問(wèn)，獲取更多電子資料。
完美Excel社群假期動(dòng)態(tài)
#話(huà)題# 祝愿大家中秋國(guó)慶雙節(jié)快樂(lè)！新的電子書(shū)已在路上
#電子書(shū)# 《使用VBA操控Excel界面》下載
#預(yù)告# 假期后半段，計(jì)劃發(fā)布一本關(guān)于Excel VBA代碼的電子書(shū)
#話(huà)題# 白話(huà)Excel VBA的概念
#電子書(shū)# 分享《無(wú)需計(jì)算機(jī)的計(jì)算機(jī)科學(xué)》
聯(lián)系客服
