【文章內(nèi)容簡介】 巧。例017 九九乘法表（Print方法的應(yīng)用）1．案例說明在早期的Basic版本中，程序運(yùn)行結(jié)果主要依靠Print語句輸出到終端。在VB中，Print作為窗體的一個(gè)方法，用來在窗體中顯示信息。但是在VBA中，用戶窗體已經(jīng)不支持Print方法了。在VBA中，Print方法只能向“立即窗口”中輸出程序的運(yùn)行中間結(jié)果，供開發(fā)人員調(diào)試程序時(shí)使用。本例使用Print方法在立即窗口中輸入九九乘法表。2．關(guān)鍵技術(shù)在VBA中，Print方法只能應(yīng)用于Debug對(duì)象，其語法格式如下： [outputlist]參數(shù)outputlist是要打印的表達(dá)式或表達(dá)式的列表。如果省略，則打印一個(gè)空白行?！?Print首先計(jì)算表達(dá)式的值，然后輸出計(jì)算的結(jié)果。在outputlist參數(shù)中還可以使用分隔符，以格式化輸出的數(shù)據(jù)。格式化分隔符有以下幾種：— Spc(n)：插入n個(gè)空格到輸出數(shù)據(jù)之間；— Tab(n)：移動(dòng)光標(biāo)到適當(dāng)位置，n為移動(dòng)的列數(shù)；— 分號(hào)：表示前后兩個(gè)數(shù)據(jù)項(xiàng)連在一起輸出；— 逗號(hào)：以14個(gè)字符為一個(gè)輸出區(qū)，每個(gè)數(shù)據(jù)輸出到對(duì)應(yīng)的輸出區(qū)。3．編寫代碼（1）在VBE中，單擊菜單“插入/模塊”命令插入一個(gè)模塊。（2）在模塊中輸入以下代碼：Sub multi()For i = 1 To 9For j = 1 To i i。 x。 j。 =。 i * j。 。Next 39。換行NextEnd Sub（3）按功能鍵“F5”運(yùn)行子過程，在“立即窗口”輸出九九乘法表，如圖31所示。圖31 立即窗口例018 輸入個(gè)人信息（Inputbox函數(shù)的應(yīng)用）1．案例說明本例演示Inputbox函數(shù)的使用方法。執(zhí)行程序，將彈出“輸入個(gè)人信息”對(duì)話框，要求用戶輸入“姓名、年齡、地址”信息，然后在“立即窗口”中將這些信息打印輸出。2．關(guān)鍵技術(shù)為了實(shí)現(xiàn)數(shù)據(jù)輸入，VBA提供了InputBox函數(shù)。該函數(shù)將打開一個(gè)對(duì)話框作為輸入數(shù)據(jù)的界面，等待用戶輸入數(shù)據(jù)，并返回所輸入的內(nèi)容。其語法格式如下：InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context])各參數(shù)的含義如下：— Prompt：為對(duì)話框消息出現(xiàn)的字符串表達(dá)式。其最大長度為1024個(gè)字符。如果需要在對(duì)話框中顯示多行數(shù)據(jù)，則可在各行之間用回車符換行符來分隔，一般使用VBA的常數(shù)vbCrLf代表回車換行符?！?Title：為對(duì)話框標(biāo)題欄中的字符串。如果省略該參數(shù)，則把應(yīng)用程序名放入標(biāo)題欄中?！?Default：為顯示在文本框中的字符串。如果省略該參數(shù)，則文本框?yàn)榭?。?Xpos：應(yīng)和Ypos成對(duì)出現(xiàn)，指定對(duì)話框的左邊與屏幕左邊的水平距離。如果省略該參數(shù)，則對(duì)話框會(huì)在水平方向居中。— Ypos：應(yīng)和Xpos成對(duì)出現(xiàn)，指定對(duì)話框的上邊與屏幕上邊的距離。如果省略該參數(shù)，則對(duì)話框被放置在屏幕垂直方向距下邊大約三分之一的位置?！?Helpfile：設(shè)置對(duì)話框的幫助文件，可省略?！?Context：設(shè)置對(duì)話框的幫助主題編號(hào)，可省略。3．編寫代碼（1）在VBE中，單擊菜單“插入/模塊”命令插入一個(gè)模塊。（2）在模塊中輸入以下代碼：Sub inputinfo()Title = 輸入個(gè)人信息name1 = 請(qǐng)輸入姓名：age1 = 請(qǐng)輸入年齡：address1 = 請(qǐng)輸入地址：strName = InputBox(name1, Title)age = InputBox(age1, Title)Address = InputBox(addres1, Title) 姓名：。 strName 年齡：。 age 地址：。 AddressEnd Sub（3）按功能鍵“F5”運(yùn)行子過程，將彈出“輸入個(gè)人信息”窗口，如圖32所示。在對(duì)話框中輸入內(nèi)容后按“回車”，或單擊“確定”按鈕。（4）接著輸入“年齡”和“地址”信息，在“立即窗口”中將輸出這些內(nèi)容，如圖33所示。圖32 輸入個(gè)人信息 圖33 輸出結(jié)果例019 退出確認(rèn)（Msgbox函數(shù)的應(yīng)用）1．案例說明在應(yīng)用程序中，有時(shí)用戶會(huì)由于誤操作關(guān)閉Excel，為了防止這種情況，可在退出Excel之前彈出對(duì)話框，讓用戶確認(rèn)是否真的要關(guān)閉Excel。本例使用Msgbox函數(shù)彈出對(duì)話框，讓用戶選擇是否退出系統(tǒng)。2．關(guān)鍵技術(shù)使用MsgBox函數(shù)可打開一個(gè)對(duì)話框，在對(duì)話框中顯示一個(gè)提示信息，并讓用戶單擊對(duì)話框中的按鈕，使程序繼續(xù)執(zhí)行。MsgBox函數(shù)語法格式如下：Value=MsgBox(prompt[,buttons][,title][ ,helpfile,context])通過函數(shù)返回值可獲得用戶單擊的按鈕，并可根據(jù)按鈕的不同而選擇不同的程序段來執(zhí)行。該函數(shù)共有5個(gè)參數(shù)，除第1個(gè)參數(shù)外，其余參數(shù)都可省略。各參數(shù)的意義與Inputbox函數(shù)參數(shù)的意義基本相同，不同的地方是多了一個(gè)buttons參數(shù)，用來指定顯示按鈕的數(shù)目及形式、使用提示圖標(biāo)樣式、默認(rèn)按鈕以及消息框的強(qiáng)制響應(yīng)等。其常數(shù)值如表31所示。表31 按鈕常數(shù)值常 量值說 明vbOkOnly0只顯示“確定”（Ok）按鈕vbOkCancel1顯示“確定”（Ok）及“取消”（Cancel）按鈕vbAbortRetryIgnore2顯示“異常終止”（Abort）、“重試”（Retry）及“忽略”（Ignore）按鈕vbYesNoCancel3顯示“是”（Yes）、“否”（No）及“取消”（Cancel）按鈕續(xù)表常 量值說 明vbYesNo4顯示“是”（Yes）及“否”（No）按鈕vbRetryCancel5顯示“重試”（Retry）及“取消”（Cancel）按鈕vbCritical16顯示Critical Message圖標(biāo)vbQuestion32顯示W(wǎng)arning Query圖標(biāo)vbExclamation48顯示W(wǎng)arning Message圖標(biāo)vbInformation64顯示Information Message圖標(biāo)vbDefaultButton10以第一個(gè)按鈕為默認(rèn)按鈕vbDefaultButton2256以第二個(gè)按鈕為默認(rèn)按鈕vbDefaultButton3512以第三個(gè)按鈕為默認(rèn)按鈕vbDefaultButton4768以第四個(gè)按鈕為默認(rèn)按鈕vbApplicationModal0進(jìn)入該消息框，當(dāng)前應(yīng)用程序暫停vbSystemModal4096進(jìn)入該消息框，所有應(yīng)用程序暫停表31中的數(shù)值（或常數(shù)）可分為四組，其作用分別為：— 第一組值（0～5）用來決定對(duì)話框中按鈕的類型與數(shù)量?！?第二組值（16，32，48，64）用來決定對(duì)話框中顯示的圖標(biāo)?！?第三組值（0，256，512）設(shè)置對(duì)話框的默認(rèn)活動(dòng)按鈕?；顒?dòng)按鈕中文字的周轉(zhuǎn)有虛線，按回車鍵可執(zhí)行該按鈕的單擊事件代碼?！?第四組值（0，4096）決定消息框的強(qiáng)制響應(yīng)性。buttons參數(shù)可由上面4組數(shù)值組成，其組成原則是：從每一類中選擇一個(gè)值，把這幾個(gè)值累加在一起就是buttons參數(shù)的值（大部分時(shí)間里都只使用前三組數(shù)值的組合），不同的組合可得到不同的結(jié)果。3．編寫代碼（1）在VBE中，雙擊“工程”子窗口中的“ThisWorkbook”打開代碼窗口，如圖34所示。（2）在代碼窗口左上方的對(duì)象列表中選擇“Workbook”，如圖35所示。（3）在代碼窗口右上方的事件列表中選擇“BeforeClose”，如圖36所示。代碼窗口中將自動(dòng)生成事件過程結(jié)構(gòu)如下：圖35 對(duì)象列表 圖36 事件列表Private Sub Workbook_BeforeClose(Cancel As Boolean)End Sub（4）在上面生成的事件過程中輸入以下代碼：Private Sub Workbook_BeforeClose(Cancel As Boolean)Dim intReturn As IntegerintReturn = MsgBox(真的退出系統(tǒng)嗎？, vbYesNo + vbQuestion, 提示)If intReturn vbYes Then Cancel = TrueEnd Sub（5）保存Excel工作簿。（6）關(guān)閉Excel工作簿時(shí)，將彈出如圖37所示的對(duì)話框。單擊“是”按鈕將退出Excel，單擊“否”按鈕將返回Excel工作簿。 分支結(jié)構(gòu)分支結(jié)構(gòu)，又叫選擇結(jié)構(gòu)。這種結(jié)構(gòu)的程序?qū)⒏鶕?jù)給定的條件來決定執(zhí)行哪一部分代碼，而跳過其他代碼。例020 突出顯示不及格學(xué)生1．案例說明本例判斷學(xué)生成績表中的成績，如果成績不及格（低于60分），則將該成績著重顯示出來。如圖38所示（左圖為原成績，右圖突出顯示不及格成績）。圖38 突出顯示不及格學(xué)生2．關(guān)鍵技術(shù)在本例中，需要進(jìn)行一個(gè)判斷（成績是否低于60分），這時(shí)可使用If…Then語句。用If…Then語句可有條件地執(zhí)行一個(gè)或多個(gè)語句。其語法格式如下：If 邏輯表達(dá)式 Then語句1語句1… …語句nEnd If邏輯表達(dá)式也可以是任何計(jì)算數(shù)值的表達(dá)式，VBA將為零（0）的數(shù)值看做False，而任何非零數(shù)值都被看做True。該語句的功能為：若邏輯表達(dá)式的值是True，則執(zhí)行位于Then與End If之間的語句；若邏輯表達(dá)式的值是False，則不執(zhí)行Then與End If之間的語句，而執(zhí)行End If后面的語句。其流程圖如圖39所示。If…Then結(jié)構(gòu)還有一種更簡單的形式：單行結(jié)構(gòu)條件語句。其語法格式如下：If 邏輯表達(dá)式 Then 語句該語句的功能為：若邏輯表達(dá)式的值是True，則執(zhí)行Then后的語句；若邏輯表達(dá)式的值是False，則不執(zhí)行Then后的語句，而執(zhí)行下一條語句。3．編寫代碼（1）打開“學(xué)生成績表”。（2）按快捷鍵“Alt+F11”進(jìn)入VBE環(huán)境。（3）單擊菜單“插入/模塊”命令向工程中插入一個(gè)模塊，并編寫以下代碼：Sub 顯示不及格學(xué)生()Dim i As IntegerFor i = 3 To 11If Sheets(1).Cells(i, 2).Value 60 ThenSheets(1).Cells(i, 2).Select = 加粗 = 3End IfNextEnd Sub（4）關(guān)閉VBE開發(fā)環(huán)境返回Excel。（5）在功能區(qū)“開發(fā)工具”選項(xiàng)卡的“控件”組中，單擊“插入”按鈕彈出“表單控件”面板，如圖310所示。圖310 插入按鈕（6）在“表單控件”面板中單擊“按鈕”，拖動(dòng)鼠標(biāo)在工作表中繪制一個(gè)按鈕。當(dāng)松開鼠標(biāo)時(shí)，將彈出“指定宏”對(duì)話框，如圖311所示。（7）在“指定宏”對(duì)話框中，單擊選中“顯示不及格學(xué)生”宏，單擊“確定”按鈕。（8）右擊工作表中的按鈕，彈出快捷菜單如圖312所示，單擊“編輯文字”菜單，修改按鈕中的提示文字為“顯示不及格學(xué)生”。圖311 指定宏 圖312 編輯文字（9）單擊“顯示不及格學(xué)生”按鈕，執(zhí)行宏代碼，成績表中不及格成績將突出顯示為粗體、紅色，如圖313所示。圖313 執(zhí)行程序例021 從身份證號(hào)碼中提取性別1．案例說明在很多信息系統(tǒng)中都需要使用到身份證號(hào)碼，身份證號(hào)碼中包含有很多信息，如可從其中提取性別。我國現(xiàn)行使用的身份證號(hào)碼有兩種編碼規(guī)則，即15位居民身份證和18位居民身份證。15位的身份證號(hào)的編碼規(guī)則。dddddd yymmdd xx p18位的身份證號(hào)的編碼規(guī)則。dddddd yyyymmdd xx p y其中：— dddddd為地址碼（省地縣三級(jí)）18位中的和15位中的不完全相同?！?yyyymmdd yymmdd 為出生年月日?！?xx序號(hào)類編碼?！?p性別?！?18位中末尾的y為校驗(yàn)碼。2．關(guān)鍵技術(shù)在If…Then語句中，條件不成立時(shí)不執(zhí)行任何語句。在很多時(shí)候需要根據(jù)條件是否成立分別執(zhí)行兩段不同的代碼，這時(shí)可用If…Then…Else語句，其語法格式如下：If 邏輯表達(dá)式 Then語句序列1Else語句序列2End IfVBA判斷“邏輯表達(dá)式”的值，如果它為True，將執(zhí)行“語句序列1”中的各條語句，當(dāng)“邏輯表達(dá)式”的值為False時(shí)，就執(zhí)行“語句序列2”中的各條語句。其流程圖如圖314所示。3．編寫代碼（1）新建Excel工作簿，在VBE中插入一個(gè)模塊。（2）在模塊中編寫以下代碼：Sub 根據(jù)身份證號(hào)碼確定性別()sid = InputBox(請(qǐng)輸入身份證號(hào)碼：)i = Len(sid)If i 15 And i 18 Then 39。判斷身份證號(hào)長度是否正確MsgBox 身份證號(hào)碼只能為15位或18位！Exit SubEnd IfIf i = 15 Then 39。長度為15位s = Right(sid, 1) 39。取最右側(cè)的數(shù)字Else 39。長度為18度s = Mid(sid, 17, 1) 39。取倒數(shù)第2位數(shù)End IfIf Int(s / 2) = s / 2 Then 39。為偶數(shù)sex = 女Elsesex = 男End IfMsgBox 性別： + sexEnd Sub（3）切換到Excel環(huán)境，添加一個(gè)按鈕“從身份證號(hào)碼提取性別”，并指定執(zhí)行上步創(chuàng)建的宏。（4）單擊“從身份證號(hào)碼提取性別”按鈕，彈出如圖315所示對(duì)話框。（5）輸入身份證號(hào)碼后單擊“確定”按鈕，將在如圖316所示對(duì)話框中顯示性別。圖315 輸入身份證號(hào)碼 圖316 顯示性別例022 評(píng)定成績等級(jí)1．案例說明本例將成績表中的百分制成績按一定規(guī)則劃分為A、B、C、D、E五個(gè)等級(jí)，如圖317所示。圖317 評(píng)定成績等級(jí)其中各等級(jí)對(duì)應(yīng)的成績分別為：— A：大于等于90分；— B：大于等于80分，小于90分；— C：大于等于70分，小于80分；— D：大于等于60分，小于70分；— E：小于60分。2．關(guān)鍵技術(shù)本例共有五個(gè)分支，使用If…Then…Else這種二路分支結(jié)構(gòu)也可完成，但需要復(fù)雜的嵌套結(jié)構(gòu)才能解決該問題。其實(shí)VBA中提供了一種If…Then…ElseIf的多分支結(jié)構(gòu)，其語法格式如下：If 邏輯表達(dá)式1 Then語句序列1ElseI