ExcelVBA編程典型實例-九九乘法表

ExcelVBA編程典型實例——九九乘法表九九乘法表是小學(xué)生學(xué)習(xí)數(shù)學(xué)的一項基礎(chǔ)知識，用戶可以使用Excel創(chuàng)建一個九九乘法口決表。其中，在Excel中，用戶除了可以利用公式來創(chuàng)建乘法表外，還可以使用VBA乘法口決表。其中，在Excel中，用戶除了可以利用公式來創(chuàng)建乘法表外，還可以使用VBA編程來制作乘法表。本例將介紹如何使用VBA代碼來創(chuàng)建乘法表。1．練習(xí)要點? 判斷語句? 循環(huán)語句2．操作步驟：（1）選擇【開發(fā)工具】選項卡，單擊VisualBasic按鈕，選擇【ActiveX控件】組中的【命令按鈕（ActiveX控件）】按鈕。然后，在工作表中，繪制該按鈕，如圖7-1所示。圖7-1繪制命令按鈕所示。圖7-1繪制命令按鈕保存工作表名稱為“九九乘法表”；并保存為【Excel啟用宏的工作簿（*.xlsm）】類型。（2）右擊繪制的“命令按鈕”，執(zhí)行【屬性】命令，如圖7-2所示。

圖7-2執(zhí)行【屬性】命令(3)在【屬性】對話框中，選擇圖7-2執(zhí)行【屬性】命令(3)在【屬性】對話框中，選擇Caption選項，在其后的文本框中，輸入“乘法表”文字，如圖7-3所示。14Hr油L,dHWM【=MlXuL-aLi7huloSii+圖7-3更改控件屬性(4)右擊“乘法表”控件按鈕，執(zhí)行【查看代碼】命令，如圖7-4所示。圖7-4執(zhí)行【查看代碼】命令(5)在彈出的代碼編輯窗口中，輸入如圖7-5所示的代碼。圖7-5輸入代碼其中，在代碼編輯窗口中輸入的代碼如下:PrivateSubCommandButton1_Click()DimiAsInteger,mAsInteger,numAsIntegerDimTargetAsRangeFori=1To9Form=1To9num=i*mIfi<=mThenWithWorksheets("Sheet1").Cells(m+1,i).Value=i&"x"&m&"="&num.Columns("a:i").EntireColumn.AutoFitEndWithEndIfNextNextEndSub（6）返回工作表界面窗口中，單擊【控件】組中的【設(shè)計模式】按鈕，取消該模式，如圖7-6所示。圖7-6取消設(shè)計模式若需要對控件進行重新編輯，可以再次單擊【設(shè)計模式】按鈕，即可啟用該模式。提.示（7）單擊工作表中的“乘法表”控件按鈕，即可生成乘法表，如圖7-7所示。圖7-7生成乘法表單擊【乘法表】按鈕后，鼠標(biāo)將變成漏斗形式，表示正在運行該程序代碼。提.示（8）在A1單元格中，輸入“九九乘法表”文字，并合并A1至I1單元格區(qū)域。然后，設(shè)置“九九乘法表”文字的字體格式，如圖7-8所示。

圖7-8圖7-8設(shè)置標(biāo)題文字二根號選擇“九九乘法表”文字所在的單元格，在【字體】組中，設(shè)置【字體】為“方正姚提示體“；【字號】為18。（9）選擇第2行至第10行單元格區(qū)域，并單擊【單元格】組中的【格式】下拉按鈕，執(zhí)行【行高】命令。然后，在彈出的【行高】對話框中，設(shè)置行高為20，如圖7-9所示。圖7-9設(shè)置行高（10）選擇數(shù)據(jù)所在的數(shù)據(jù)，單擊【字體】組中的【邊框】下拉按鈕，執(zhí)行【所有框線】命令，如圖7-10所示。7-9所示。圖7-9設(shè)置行高（10）選擇數(shù)據(jù)所在的數(shù)據(jù)，單擊【字體】組中的【邊框】下拉按鈕，執(zhí)行【所有框線】命令，如圖7-10所示。執(zhí)行【所有框線】命令選擇A2至A10單元格區(qū)域，按住Ctrl鍵的同時，分別選擇其他單元格數(shù)據(jù)即可進行不連續(xù)選擇。圖7-10提示(11)在未取消選擇之前，單擊【字體】組中的【填充顏色】下拉按鈕，選擇“水綠色，強調(diào)文字顏