ExcelVBA常用技巧使用對(duì)話框

1、目錄第6章使用對(duì)話框2技巧1使用Msgbox函數(shù)2技巧2自動(dòng)關(guān)閉的消息框9技巧3使用InputBox函數(shù)11技巧4使用InputBox方法15技巧5內(nèi)置對(duì)話框18技巧6調(diào)用操作系統(tǒng)“關(guān)于”對(duì)話框25第6章 使用對(duì)話框技巧1 使用Msgbox函數(shù)1-1 顯示簡(jiǎn)單的提示信息在使用Excel的過(guò)程中，如果需要向用戶顯示簡(jiǎn)單的提示信息，可以使用MsgBox函數(shù)顯示一個(gè)消息框，如下面的代碼所示。#001 Sub mymsgbox()#002 MsgBox 歡迎光臨Excel Home!#003 End Sub代碼解析：Mymsgbox過(guò)程使用MsgBox函數(shù)顯示一個(gè)消息框。MsgBox函數(shù)用于顯示提示信

2、息，語(yǔ)法如下：MsgBox(prompt, buttons , title , helpfile, context)參數(shù)prompt是必需的，代表在消息框中作為信息顯示的字符或字符串，最多只能接受約1024個(gè)字符，取決于所使用字符的寬度。參數(shù)buttons是可選的，用于指定消息框中顯示按鈕的數(shù)目及類型、使用的圖標(biāo)樣式、缺省按鈕以及消息框的強(qiáng)制回應(yīng)等。如果省略，則buttons參數(shù)的缺省值為0，消息框只顯示“確定”按鈕。參數(shù)title是可選的，代表在消息框標(biāo)題欄中作為標(biāo)題的字符或字符串。如果省略，則在標(biāo)題欄中顯示“Microsoft Excel”。參數(shù)helpfile和參數(shù)context是可選的

3、，用來(lái)為消息框提供上下文相關(guān)幫助的幫助文件和幫助主題。如果提供了其中一個(gè)參數(shù)，則必須提供另一個(gè)參數(shù)，兩者缺一不可。運(yùn)行Mymsgbox過(guò)程，顯示如圖 731所示的消息框。圖 Error! No text of specified style in document.1簡(jiǎn)單的信息提示1-2 定制個(gè)性化的消息框如果希望MsgBox函數(shù)顯示的消息框具有特定的按鈕、圖標(biāo)和標(biāo)題欄，那么可以使用MsgBox函數(shù)的buttons參數(shù)和title參數(shù)，如下面的代碼所示。#001 Sub Specialmsbox()#002 MsgBox Prompt:=歡迎光臨 Excel Home!, _#003 Butt

4、ons:=vbOKCancel + vbInformation, _#004 Title:=Excel Home#005 End Sub代碼解析：Specialmsbox過(guò)程使用MsgBox函數(shù)顯示一個(gè)具有特定的按鈕、圖標(biāo)和標(biāo)題欄的消息框。第3行代碼設(shè)置消息框的Buttons參數(shù)，使消息框顯示時(shí)具有“確定”、“取消”按鈕和信息消息圖標(biāo)。MsgBox函數(shù)的buttons參數(shù)設(shè)置值如表格 731所示。參數(shù)組常數(shù)值描述第一組設(shè)置消息框按鈕數(shù)目和類型vbOKOnly0只顯示“確定”按鈕（默認(rèn)設(shè)置）VbOKCancel1顯示“確定”和“取消”按鈕VbAbortRetryIgnore2顯示“放棄”、“重試

5、”、和“忽略”按鈕VbYesNoCancel3顯示“是”、“否”和“取消”按鈕VbYesNo4顯示“是”和“否”按鈕VbRetryCancel5顯示“重試”和“取消”按鈕第二組設(shè)置圖標(biāo)的風(fēng)格VbCritical16顯示危險(xiǎn)消息圖標(biāo)VbQuestion32顯示警告詢問(wèn)圖標(biāo)VbExclamation48顯示警告消息圖標(biāo)VbInformation64顯示信息消息圖標(biāo)第三組設(shè)置默認(rèn)按鈕vbDefaultButton10第一個(gè)按鈕為默認(rèn)按鈕vbDefaultButton2256第二個(gè)按鈕為默認(rèn)按鈕vbDefaultButton3512第三個(gè)按鈕為默認(rèn)按鈕vbDefaultButton4768第四個(gè)按鈕為

6、默認(rèn)按鈕第四組設(shè)置消息框特征vbApplicationModal0應(yīng)用程序模式：用戶必須對(duì)消息框作出響應(yīng)才能繼續(xù)使用當(dāng)前的應(yīng)用程序vbSystemModal4096系統(tǒng)模式：應(yīng)用程序都被掛起直至用戶對(duì)消息框作出響應(yīng)第五組附加選項(xiàng)vbMsgBoxHelpButton16384在消息框上添加“幫助”按鈕VbMsgBoxSetForeground65536將消息框設(shè)置為前景窗口vbMsgBoxRight524288顯示右對(duì)齊的消息框vbMsgBoxRtlReading1048576指定在希伯來(lái)和阿拉伯語(yǔ)系統(tǒng)中顯示的文本應(yīng)當(dāng)從右到左閱讀表格 Error! No text of specified st

7、yle in document.1MsgBox函數(shù)的buttons參數(shù)值在設(shè)定buttons參數(shù)值時(shí)，這些值可以相加使用，但每一組中只能選擇一個(gè)值。在程序代碼中也可以使用buttons參數(shù)的常數(shù)名稱，而不必使用實(shí)際數(shù)值。第4行代碼將消息框的Title參數(shù)設(shè)置為“Excel Home”，使消息框的標(biāo)題欄顯示“Excel Home”。運(yùn)行Specialmsbox過(guò)程后，顯示一個(gè)如圖 732所示的消息框，該消息框具有“Excel Home”標(biāo)題、信息消息圖標(biāo)和“確定”、“取消”按鈕并以“確定”按鈕作為默認(rèn)按鈕。圖 Error! No text of specified style in docume

8、nt.2具有特定按鈕、圖標(biāo)和標(biāo)題欄的消息框1-3 獲得消息框的返回值如果希望能根據(jù)用戶對(duì)于消息框的不同選擇，進(jìn)行相應(yīng)的操作，可以對(duì)消息框的返回值進(jìn)行判斷，如下面的代碼所示。#001 Private Sub Workbook_BeforeClose(Cancel As Boolean)#002 Dim iMsg As Integer#003 iMsg = MsgBox(文件即將關(guān)閉,是否保存?, 3 + 32)#004 Select Case iMsg#005 Case 6#007 Case 7#008 Me.Saved = True#009 Case 2#010 Cancel = True#0

9、11 End Select#012 End Sub代碼解析：工作簿的BeforeClose過(guò)程，在關(guān)閉工作簿前使用MsgBox函數(shù)顯示一個(gè)消息框，并根據(jù)用戶的回應(yīng)用進(jìn)行相應(yīng)的操作。第3行代碼，使用MsgBox函數(shù)顯示一個(gè)具有“是”、“否”和“否”按鈕的消息框，并把用戶的回應(yīng)，即消息框的返回值賦給變量iMsg。MsgBox是一個(gè)函數(shù)，這意味著它將返回一個(gè)值，如果希望獲得返回值，可使用和第3行相似的代碼，此時(shí)如果不使用括號(hào)將參數(shù)封閉起來(lái)，則會(huì)提示編譯錯(cuò)誤，如圖 733所示。圖 Error! No text of specified style in document.3提示編譯錯(cuò)誤第4行到第11行

10、代碼，Select Case結(jié)構(gòu)語(yǔ)句，根據(jù)變量iMsg的值判斷用戶的回應(yīng)，如果變量iMsg的值為6，說(shuō)明用戶選擇了“是”按鈕，則使用Save方法保存工作簿；如果變量iMsg的值為7，說(shuō)明用戶選擇了“否”按鈕，則將工作簿的Saved屬性設(shè)置為True，不保存更改而直接關(guān)閉工作簿。關(guān)于Save方法和Saved屬性請(qǐng)參閱技巧Error! Reference source not found.。如果變量iMsg的值為2，說(shuō)明用戶選擇了“取消”按鈕，是將BeforeClose過(guò)程的Cancel 參數(shù)設(shè)置為True，取消關(guān)閉工作簿操作。MsgBox函數(shù)的返回值如表格 732所示，在程序代碼中也可以使用常數(shù)

11、名稱，而不必使用實(shí)際數(shù)值。常數(shù)值描述vbOK1確定vbCancel2取消vbAbort3放棄vbRetry4重試vbIgnore5忽略vbYes6是vbNo7否表格 Error! No text of specified style in document.2MsgBox函數(shù)的返回值在關(guān)閉本工作簿時(shí)將顯示一個(gè)如圖 734所示的消息框，詢問(wèn)用戶是否保存，并根據(jù)用戶的回應(yīng)用進(jìn)行相應(yīng)的操作。圖 Error! No text of specified style in document.4詢問(wèn)消息框1-4 在消息框中排版如果在消息框中顯示的字符串很長(zhǎng)，比如是一段多行的文字內(nèi)容，為了達(dá)到美觀的效果，需要

12、首字縮進(jìn)，并將各行分隔開(kāi)來(lái)，如下面代碼所示。#001 Sub Newlinemsbox()#002 MsgBox Space(4) & 歡迎來(lái)到 ExcelHome 技術(shù)論壇，全球最領(lǐng)先的 Excel 技術(shù)論壇之一。 & Chr(10) _#003 & Space(4) & 在這里，我們討論 Microsoft Office 系列產(chǎn)品的應(yīng)用技術(shù)，重點(diǎn)討論 & Chr(10) _#004 & Microsoft Excel。 & Chr(10) _#005 & Space(4) & 本論壇從屬于 Excel Home 這一全球最大的華語(yǔ) Excel 技術(shù)門戶，目前 & Chr(10) _#006

13、 & 是個(gè)人、非營(yíng)利性質(zhì)的網(wǎng)站學(xué)習(xí)平臺(tái)。 & Chr(10) _#007 & Space(4) & Lets do it better! 這是 Excel Home 的口號(hào)，我們的宗旨是幫助大 & Chr(10) _#008 & 家解決在使用Office軟件中的問(wèn)題，提升自己的應(yīng)用技能。#009 End Sub代碼解析：Newlinemsbox過(guò)程使用消息框顯示一段經(jīng)過(guò)排版后的文本內(nèi)容。代碼中使用Space 函數(shù)在每段的首字前插入4個(gè)空格，使首字縮進(jìn)，在需要換行的地方插入換行符 （Chr(10)） 將各行分隔開(kāi)來(lái)。也可以使用回車符 （Chr(13)）、或是回車與換行符的組合 （Chr(13)

14、& Chr（10)）換行。在程序代碼中也可以使用vbCrLf、vbNewLine等常數(shù)，而不必使用Chr 函數(shù)，如表格 733所示。常數(shù)等于描述vbCrLfChr(13) + Chr(10)回車符與換行符結(jié)合vbCrChr(13)回車符vbLfChr(10)換行符vbNewLineChr(13) + Chr(10) or, on the Macintosh, Chr(13)平臺(tái)指定的新行字符表格 Error! No text of specified style in document.3回車符與換行符運(yùn)行Newlinemsbox過(guò)程,用消息框顯示一段經(jīng)過(guò)排版后的文本內(nèi)容,效果如圖 735所示

15、。圖 Error! No text of specified style in document.5在消息框中排版1-5 對(duì)齊消息框中顯示的信息在用消息框顯示如圖 736所示的工作表中多行多列的單元格區(qū)域時(shí)，如果只用換行符（Chr(10)）等進(jìn)行換行，而數(shù)據(jù)列沒(méi)有對(duì)齊，會(huì)使顯示的信息顯得雜亂無(wú)章，缺乏可讀性，如圖 737所示。圖 Error! No text of specified style in document.6工作表單元格區(qū)域圖 Error! No text of specified style in document.7沒(méi)有對(duì)列進(jìn)行分隔的消息框?yàn)榱诉_(dá)到消息框中顯示信息各列對(duì)齊的效

16、果，在使用換行符（Chr(10)）等進(jìn)行換行的基礎(chǔ)上，還需要使用制表符（Chr(9)）或常數(shù)vbTab，對(duì)數(shù)據(jù)列進(jìn)行分隔，使之排列整齊，如下面代碼所示。#001 Sub Outmsbox()#002 Dim sMsg As String#003 Dim iRow As Integer#004 Dim iCom As Integer#005 For iRow = 1 To 11#006 For iCom = 1 To 5#007 sMsg = sMsg & Cells(iRow, iCom) & Chr(9)#008 Next#009 sMsg = sMsg & Chr(10)#010 Next

17、#011 MsgBox sMsg#012 End Sub代碼解析：Outmsbox過(guò)程使用兩層循環(huán)讀取當(dāng)前工作表中A1到E11單元格的內(nèi)容，并用消息框顯示出來(lái)。第7行代碼，iCom循環(huán)中在把逐列讀取的單元格內(nèi)容賦給變量myMsg時(shí)插入一個(gè)制表符（Chr(9)），對(duì)列進(jìn)行分隔。第9行代碼，iRow循環(huán)中在讀取下一行單元格內(nèi)容賦給變量myMsg時(shí)插入一個(gè)換行符（Chr(10)），對(duì)行進(jìn)行換行。運(yùn)行Outmsbox過(guò)程將用消息框顯示當(dāng)前工作表中A1至E11單元格區(qū)域中的內(nèi)容，并排列整齊，如圖 738所示。圖 Error! No text of specified style in document.

18、8分列顯示數(shù)據(jù)的消息框技巧2 自動(dòng)關(guān)閉的消息框在程序執(zhí)行完畢后給用戶一個(gè)提示信息，但用MsgBox函數(shù)顯示的消息框?qū)⒁恢北３?，需要用戶單擊“確定”或“關(guān)閉”按鈕才會(huì)關(guān)閉。如果希望顯示的消息框自動(dòng)關(guān)閉，那么可以使用以下方法顯示消息框。2-1 使用顯示消息框#001 Sub WshShell()#002 Dim WshShell As Object#003 Set WshShell = CreateObject(Wscript.Shell)#004 WshShell.popup 執(zhí)行完畢!, 2, 提示, 64#005 Set WshShell = Nothing#006 End Sub代碼解析：

19、WshShell過(guò)程使用顯示消息框，2秒后自動(dòng)關(guān)閉。WshShell.Popup方法的語(yǔ)法如下：WshShell.Popup(strText, natSecondsToWait, strTitle, natType) = intButton參數(shù)strText是必需的，與Msgbox的Prompt參數(shù)類似，代表在消息框中作為信息顯示的字符或字符串。如果顯示的內(nèi)容超過(guò)一行，可以在每一行之間用換行符 （Chr(10)）等將各行分隔開(kāi)來(lái)。參數(shù)natSecondsToWait是可選的，其時(shí)間單位為妙。如果提供natSecondsToWait參數(shù)且其值大于零，則消息框在natSecondsToWait 參

20、數(shù)指定的秒數(shù)后關(guān)閉。參數(shù)strTitle是可選的，代表在消息框標(biāo)題欄中作為標(biāo)題的字符或字符串，若省略，則窗口標(biāo)題為“Windows 腳本宿主”。參數(shù)natType是可選的，指定消息框中顯示按鈕的數(shù)目及類型、使用的圖標(biāo)樣式、缺省按鈕以及消息框的強(qiáng)制回應(yīng)等，與MsgBox函數(shù)buttons參數(shù)相同，請(qǐng)參閱技巧1-2中的表格 Error! No text of specified style in document.1。參數(shù)intButton指示用戶所單擊的按扭編號(hào)，與MsgBox函數(shù)的返回值相同，請(qǐng)參閱技巧1-3中的表格 Error! No text of specified style in d

21、ocument.2。若用戶在natSecondsToWait 秒之前不單擊按扭，則返回值為 -1 。運(yùn)行WshShell過(guò)程顯示一個(gè)如圖 749所示消息框，無(wú)需點(diǎn)擊“確定”按紐，2秒后自動(dòng)關(guān)閉。圖 Error! No text of specified style in document.9自動(dòng)關(guān)閉的消息框2-2 使用API函數(shù)顯示消息框使用API函數(shù)也可以達(dá)到這一效果，如下面的代碼所示。#001 Public Declare Function SetTimer Lib user32 ( _#002 ByVal hWnd As Long, _#003 ByVal nIDEvent As Lon

22、g, _#004 ByVal uElaspe As Long, _#005 ByVal lpTimerFunc As Long) As Long#006 Public Declare Function KillTimer Lib user32 ( _#007 ByVal hWnd As Long, _#008 ByVal nIDEvent As Long) As Long#009 Dim TID As Long#010 Sub Test()#011 TID = SetTimer(0, 0, 2000, AddressOf CloseTest)#012 MsgBox 執(zhí)行完畢!#013 End

23、Sub#014 Sub CloseTest(ByVal hWnd As Long, ByVal uMsg As Long, ByVal idevent As Long, _#015 ByVal Systime As Long)#016 Application.SendKeys , True#017 KillTimer 0, TID#018 End Sub代碼解析：第1行代碼到第9行代碼是API函數(shù)聲明。Test過(guò)程顯示一個(gè)消息框并在3秒鐘后運(yùn)行CloseTest過(guò)程。CloseTest過(guò)程發(fā)送一個(gè)確定鍵給Excel程序關(guān)閉顯示的消息框。運(yùn)行Test過(guò)程顯示一個(gè)如圖 7410所示的消息框并在2秒

24、鐘后關(guān)閉。圖 Error! No text of specified style in document.10自動(dòng)關(guān)閉的消息框技巧3 使用InputBox函數(shù)3-1 簡(jiǎn)單的數(shù)據(jù)輸入Excel的使用過(guò)程中，有時(shí)需要用戶輸入簡(jiǎn)單的數(shù)據(jù)，此時(shí)可以使用InputBox函數(shù)顯示一個(gè)對(duì)話框，供用戶在對(duì)話框中輸入數(shù)據(jù)信息，如下面的代碼所示。#001 Sub myInputBox()#002 Dim sInt As String#003 Dim r As Integer#004 r = Sheet1.Range(A65536).End(xlUp).Row#005 sInt = InputBox(請(qǐng)輸入人員姓名

25、：)#006 If Len(Trim(sInt) 0 Then#007 Sheet1.Cells(r + 1, 1) = sInt#008 Else#009 MsgBox 您沒(méi)有輸入內(nèi)容!#010 End If#011 End Sub代碼解析：myInputBox過(guò)程使用InputBox函數(shù)顯示一個(gè)對(duì)話框供用戶在對(duì)話框中輸入數(shù)據(jù)，InputBox函數(shù)顯示一個(gè)對(duì)話框，等待用戶輸入正文或按下按鈕，并返回包含文本框內(nèi)容的字符串，語(yǔ)法如下：InputBox(prompt, title , default , xpos , ypos , helpfile, context)參數(shù)prompt是必需的，作為

26、對(duì)話框消息出現(xiàn)的字符串表達(dá)式。參數(shù)title是可選的，作為顯示在對(duì)話框標(biāo)題欄中的字符串表達(dá)式，如果省略title參數(shù)，則在標(biāo)題欄中顯示“Microsoft Excel”。參數(shù)default是可選的，顯示在文本框中的字符串表達(dá)式，在沒(méi)有其它輸入時(shí)作為缺省值，如果省略default參數(shù)，則文本框?yàn)榭?。參?shù)xpos是可選的，指定對(duì)話框的左邊與屏幕左邊的水平距離。如果省略xpos參數(shù)，則對(duì)話框會(huì)在水平方向居中。參數(shù)ypos是可選的，指定對(duì)話框的上邊與屏幕上邊的距離。如果省略ypos參數(shù)，則對(duì)話框被放置在屏幕垂直方向距下邊大約三分之一的位置。參數(shù)helpfile和參數(shù)context是可選的，為對(duì)話框提供

27、上下文相關(guān)的幫助和編號(hào)，如果提供了其中一個(gè)參數(shù)，則必須提供另一個(gè)參數(shù)，兩者缺一不可。第5行代碼，使用InputBox函數(shù)顯示一個(gè)提示用戶輸入郵政編碼的對(duì)話框，其中“請(qǐng)輸入人員姓名：”是必需的prompt參數(shù)，其他參數(shù)使用缺省值。第4行代碼，使用Len函數(shù)和Trim函數(shù)判斷返回的去除空格后的字符串長(zhǎng)度。如果字符串長(zhǎng)度大于零，說(shuō)明用戶單擊了對(duì)話框的“確定”按鈕，則將用戶輸入的數(shù)據(jù)寫到工作表的A列單元格。如果返回的是長(zhǎng)度為零的字符串，說(shuō)明用戶單擊了對(duì)話框的“取消”按鈕，則顯示一條提示消息。因?yàn)楫?dāng)用戶單擊對(duì)話框的“確定”按鈕后，InputBox函數(shù)返回包含文本框內(nèi)容的字符串，如果用戶單擊對(duì)話框的“取消

28、”按鈕則返回一個(gè)長(zhǎng)度為零的字符串（），通過(guò)返回的字符串長(zhǎng)度可以判斷用戶做出的選擇。運(yùn)行sInput過(guò)程將顯示一個(gè)提示用戶輸入數(shù)據(jù)的對(duì)話框，如圖 7511所示。圖 Error! No text of specified style in document.11InputBox函數(shù)顯示的對(duì)話框3-2 使用對(duì)話框輸入密碼使用InputBox函數(shù)顯示的對(duì)話框輸入密碼簡(jiǎn)單方便，但有個(gè)明顯的缺陷，就是輸入過(guò)程中不能用占位符顯示密碼，不夠安全。借助API函數(shù)可以在輸入密碼過(guò)程中以占位符“*”號(hào)來(lái)顯示密碼，如下面的代碼所示。#001 Public Declare Function FindWindow Lib

29、 user32 Alias FindWindowA (ByVal lpClassName As String, ByVal lpWindowName As String) As Long#002 Public Declare Function FindWindowEx Lib user32 Alias FindWindowExA (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long#003 Public Declare Function SendMessa

30、ge Lib user32 Alias SendMessageA (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long#004 Public Declare Function timeSetEvent Lib winmm.dll (ByVal uDelay As Long, ByVal uResolution As Long, ByVal lpFunction As Long, ByVal dwUser As Long, ByVal uFlags As Long) As Lon

31、g#005 Public Declare Function timeKillEvent Lib winmm.dll (ByVal uID As Long) As Long#006 Public Declare Function GetTickCount Lib kernel32 () As Long#007 Public Const EM_SETPASSWORDCHAR = &HCC#008 Public lTimeID As Long#009 Sub TimeProc(ByVal uID As Long, ByVal uMsg As Long, ByVal dwUser As Long, B

32、yVal dw1 As Long, ByVal dw2 As Long)#010 Dim hwd As Long#011 hwd = FindWindow(#32770, 密碼)#012 If hwd 0 Then#013 hwd = FindWindowEx(hwd, 0, edit, vbNullString)#014 SendMessage hwd, EM_SETPASSWORDCHAR, 42, 0#015 timeKillEvent lTimeID#016 End If#017 End Sub#018 Sub Password()#019 Dim Password As Varian

33、t#020 lTimeID = timeSetEvent(10, 0, AddressOf TimeProc, 1, 1)#021 Password = InputBox(請(qǐng)輸入密碼：, 密碼)#022 If Password = 123456 Then#023 MsgBox 密碼正確!#024 Else#025 MsgBox 密碼錯(cuò)誤!#026 End If#027 End Sub代碼解析：Password過(guò)程使用InputBox函數(shù)顯示一個(gè)輸入密碼的對(duì)話框，并且以占位符“*”號(hào)顯示輸入的密碼。第1行到第8行代碼，API函數(shù)聲明。第9行到第17行代碼，TimeProc過(guò)程是timeSetEv

34、ent的回調(diào)函數(shù)，獲得對(duì)話框句柄。第18行到第27行代碼，Password過(guò)程顯示一個(gè)提示用戶輸入密碼的對(duì)話框。運(yùn)行Password過(guò)程將顯示一個(gè)密碼輸入框，輸入的密碼以占位符“*”號(hào)代替，如圖 7512所示。圖 Error! No text of specified style in document.12密碼輸入框技巧4 使用InputBox方法在Excel中輸入簡(jiǎn)單的數(shù)據(jù)可以使用InputBox函數(shù)顯示的對(duì)話框，但是如果輸入的數(shù)據(jù)類型不匹配時(shí)，過(guò)程運(yùn)行時(shí)會(huì)產(chǎn)生意外錯(cuò)誤。為了避免此類情況發(fā)生，可以使用另一種獲得用戶輸入的方式InputBox方法。4-1 輸入指定類型的數(shù)據(jù)使用InputBo

35、x方法輸入數(shù)據(jù)時(shí)可以指定數(shù)據(jù)的類型，如下面的代碼所示。#001 Sub dInput()#002 Dim dInput As Double#003 Dim r As Integer#004 r = Sheet1.Range(A65536).End(xlUp).Row#005 dInput = Application.InputBox(Prompt:=請(qǐng)輸入數(shù)字：, Type:=1)#006 If dInput False Then#007 Sheet1.Cells(r + 1, 1).Value = dInput#008 Else#009 MsgBox 你已取消了輸入!#010 End If#

36、011 End Sub代碼解析：dInput過(guò)程使用InputBox方法顯示一個(gè)提示用戶輸入數(shù)字的對(duì)話框。InputBox方法顯示一個(gè)接收用戶輸入的對(duì)話框，返回此對(duì)話框中輸入的信息，語(yǔ)法如下：expression.InputBox(Prompt, Title, Default, Left, Top, HelpFile, HelpContextId, Type)參數(shù)expression是必需的，返回一個(gè)Application對(duì)象。參數(shù)Prompt是必需的，作為對(duì)話框消息顯示的字符串表達(dá)式。參數(shù)Title是可選的，作為顯示在對(duì)話框標(biāo)題欄中的字符串表達(dá)式。如果省略Title參數(shù)，將使用默認(rèn)的標(biāo)題。參

37、數(shù)Default是可選的，在對(duì)話框顯示時(shí)出現(xiàn)在文本框中的初始值。如果省略Default參數(shù)，則文本框?yàn)榭?。參?shù)Left是可選的，指定對(duì)話框相對(duì)于屏幕左上角的 x 坐標(biāo)。參數(shù)Top是可選的，指定對(duì)話框相對(duì)于屏幕左上角的 y 坐標(biāo)。參數(shù)HelpFile和參數(shù)HelpContextId是可選的，為對(duì)話框提供上下文相關(guān)的幫助和編號(hào)，如果提供了其中一個(gè)參數(shù)，則必須提供另一個(gè)參數(shù)，兩者缺一不可。參數(shù)Type是可選的，指定返回的數(shù)據(jù)類型。如果省略Type參數(shù)，對(duì)話框?qū)⒎祷匚谋?。InputBox方法的語(yǔ)法和InputBox函數(shù)的語(yǔ)法相似，最大的區(qū)別在于最后一個(gè)參數(shù)Type。通過(guò)Type參數(shù)可以指定返回值的數(shù)據(jù)

38、類型，表格 764列出了Type參數(shù)可以使用的數(shù)值。數(shù)值期望的返回值0一個(gè)公式1一個(gè)數(shù)字2文本（字符串）4一個(gè)邏輯值，例如true或false8一個(gè)單元格引用16一個(gè)錯(cuò)誤值64一個(gè)值的數(shù)組表格 Error! No text of specified style in document.4Type參數(shù)的值這些數(shù)值可以相加使用，如果希望返回?cái)?shù)字和文本，可以將Type參數(shù)設(shè)置為1+2。InputBox方法與InputBox函數(shù)相比，優(yōu)點(diǎn)是內(nèi)置的出錯(cuò)處理。在第5行代碼中將Type參數(shù)值設(shè)置為1，這意味著對(duì)話框只能輸入數(shù)值。當(dāng)用戶輸入的不是數(shù)值時(shí)，顯示一個(gè)如圖 7613所示的消息框提示輸入錯(cuò)誤。圖 Er

39、ror! No text of specified style in document.13提示輸入錯(cuò)誤第6行到第10行代碼，如果用戶單擊對(duì)話框的“確定”按鈕，將用戶輸入的數(shù)字寫入工作表的A列單元格。如果用戶單擊對(duì)話框的“取消”按鈕，則顯示一條提示消息。InputBox方法和InputBox函數(shù)的另一個(gè)區(qū)別是，當(dāng)用戶單擊“取消”按紐時(shí)返回False而不是長(zhǎng)度為零的字符串。運(yùn)行dInput過(guò)程將顯示一個(gè)提示用戶輸入數(shù)字的對(duì)話框，如圖 7614所示。圖 Error! No text of specified style in document.14InputBox方法顯示的對(duì)話框注意在VBA代碼中

40、， 調(diào)用的是InputBox方法，不帶對(duì)象識(shí)別符的InputBox調(diào)用的是InputBox 函數(shù)。4-2 獲得單元格區(qū)域地址InputBox方法很適合用戶選擇工作表單元格區(qū)域，并對(duì)所選擇的單元格區(qū)域進(jìn)行操作，如下面的代碼所示。#001 Sub RngInput()#002 Dim rng As Range#003 On Error GoTo line#004 Set rng = Application.InputBox(請(qǐng)使用鼠標(biāo)選擇單元格區(qū)域：, , , , , , , 8)#005 rng.Interior.ColorIndex = 15#006 line:#007 End Sub代碼解析

41、：RngInput過(guò)程使用InputBox方法顯示一個(gè)對(duì)話框，提示用戶在工作表中選擇一個(gè)單元格區(qū)域，并改變所選單元格區(qū)域內(nèi)部的顏色。第3行代碼，錯(cuò)誤處理語(yǔ)句。因?yàn)楫?dāng)對(duì)話框顯示后，如果用戶單擊“取消”按鈕，將顯示一錯(cuò)誤信息，如圖 7615所示，所以必需使用On Error GoTo語(yǔ)句來(lái)繞過(guò)錯(cuò)誤。圖 Error! No text of specified style in document.15提示運(yùn)行錯(cuò)誤第4行代碼，使用Set語(yǔ)句將用戶選擇的單元格區(qū)域賦給變量rng。當(dāng)Type參數(shù)設(shè)置為8時(shí)，將返回一個(gè)Range對(duì)象，必須用Set 語(yǔ)句將結(jié)果指定給一個(gè)Range對(duì)象。第5行代碼，改變用戶所選單

42、元格區(qū)域內(nèi)部的顏色。運(yùn)行RngInput過(guò)程，將顯示一個(gè)對(duì)話框，提示用戶在工作表中選擇一個(gè)單元格區(qū)域，并改變所選單元格區(qū)域內(nèi)部的顏色，如圖 7616所示。圖 Error! No text of specified style in document.16使用InputBox方法獲得區(qū)域地址技巧5 內(nèi)置對(duì)話框5-1 調(diào)用內(nèi)置的對(duì)話框如果需要使用“打開(kāi)”、“打印”等Excel內(nèi)置對(duì)話框已經(jīng)具有的功能，可以使用代碼直接調(diào)用這些內(nèi)置的對(duì)話框，如下面的代碼所示。#001 Sub DialogOpen()#002 Application.Dialogs(xlDialogOpen).Show arg1:=T

43、hisWorkbook.Path & *.xls#003 End Sub代碼解析：DialogOpen過(guò)程顯示內(nèi)置的“打開(kāi)”對(duì)話框并選定示例所在的文件夾。顯示內(nèi)置對(duì)話框語(yǔ)法如下：Application.Dialogs(xlDialogConst).ShowDialogs集合代表所有的內(nèi)置對(duì)話框，每個(gè)Dialog對(duì)象代表一個(gè)內(nèi)置對(duì)話框，不能新建內(nèi)置對(duì)話框或向該集合中添加內(nèi)置對(duì)話框。參數(shù)xlDialogConst是內(nèi)置對(duì)話框的內(nèi)置常量，每個(gè)常量都以“xlDialog”開(kāi)頭，其后是對(duì)話框的名稱，如“打開(kāi)”對(duì)話框的常量為“xlDialogOpen”。常用內(nèi)置對(duì)話框的內(nèi)置常量如表格 775所示。常量值說(shuō)

44、明xlDialogActiveCellFont476單元格格式(字體）xlDialogBorder45單元格格式(邊框）xlDialogCellProtection46單元格格式(保護(hù)）xlDialogDeleteFormat111單元格格式(數(shù)字）xlDialogFormatNumber42單元格格式(數(shù)字）xlDialogPatterns84單元格格式(圖案）xlDialogClear52清除xlDialogColumnWidth47列寬xlDialogRowHeight127行高xlDialogConditionalFormatting583條件格式xlDialogDefineName6

45、1定義名稱xlDialogDefineStyle229樣式xlDialogDisplay27顯示選項(xiàng)xlDialogFont26字體xlDialogSetBackgroundPicture509工作表背景xlDialogInsert55插入xlDialogInsertHyperlink596插入超鏈接xlDialogInsertPicture342插入圖片xlDialogNew119新建工作簿xlDialogOpen1打開(kāi)xlDialogSaveAs5另存為xlDialogWorkbookCopy283移動(dòng)或復(fù)制工作表（建立副本）xlDialogWorkbookInsert354插入工作表xl

46、DialogWorkbookMove282移動(dòng)或復(fù)制工作表xlDialogWorkbookName386重命名工作表xlDialogWorkbookNew302新建工作表xlDialogWorkbookProtect417保護(hù)工作簿xlDialogPageSetup7頁(yè)面設(shè)置xlDialogPrint8打印內(nèi)容xlDialogPrinterSetup9打印機(jī)設(shè)置xlDialogPrintPreview222打印預(yù)覽xlDialogSetPrintTitles23設(shè)置打印標(biāo)題xlDialogRun17宏xlDialogTable41模擬運(yùn)算表xlDialogSendMail189發(fā)送郵件表格 E

47、rror! No text of specified style in document.5內(nèi)置對(duì)話框的內(nèi)置常量顯示內(nèi)置對(duì)話框使用Show方法，應(yīng)用于Dialog對(duì)象的Show方法語(yǔ)法如下：expression.Show(Arg1, Arg2, Arg3, Arg4, Arg5, Arg6, Arg7, Arg8, Arg9, Arg10, Arg11, Arg12, Arg13, Arg14, Arg15, Arg16, Arg17, Arg18, Arg19, Arg20, Arg21, Arg22, Arg23, Arg24, Arg25, Arg26, Arg27, Arg28, Ar

48、g29, Arg30)參數(shù)expression是必需的，返回Dialog對(duì)象之一。參數(shù)arg1到參數(shù)arg30是可選的，僅應(yīng)用于內(nèi)置對(duì)話框，是命令的初始參數(shù)。若要查找要設(shè)置的參數(shù)，請(qǐng)?jiān)趦?nèi)置對(duì)話框參數(shù)列表中查找對(duì)應(yīng)的對(duì)話框常量。運(yùn)行alogOpen過(guò)程，顯示內(nèi)置的“打開(kāi)”對(duì)話框，并且直接選定示例所在的文件夾，如圖 7717所示。圖 Error! No text of specified style in document.17使用內(nèi)置對(duì)話框5-2 獲取選定文件的文件名如果只希望獲取用戶在顯示的內(nèi)置 “打開(kāi)”對(duì)話框中選定文件的文件名，而不想真正打開(kāi)該文件，那么可以使用GetOpenFilename

49、方法，如下面的代碼所示。#001 Sub OpenFilename()#002 Dim Filename As Variant#003 Dim mymsg As Integer#004 Dim i As Integer#005 Filename = Application.GetOpenFilename(Title:=刪除文件, MultiSelect:=True)#006 If IsArray(Filename) Then#007 mymsg = MsgBox(是否刪除所選文件?, vbYesNo, 提示)#008 If mymsg = vbYes Then#009 For i = 1 To

50、 UBound(Filename)#010 Kill Filename(i)#011 Next#012 End If#013 End If#014 End Sub代碼解析：OpenFilename過(guò)程使用GetOpenFilename方法顯示標(biāo)準(zhǔn)的內(nèi)置“打開(kāi)”對(duì)話框，獲取用戶選定文件的文件名后使用Kill語(yǔ)句刪除。GetOpenFilename方法顯示標(biāo)準(zhǔn)的內(nèi)置“打開(kāi)”對(duì)話框，獲取文件名，語(yǔ)法如下：expression.GetOpenFilename(FileFilter, FilterIndex, Title, ButtonText, MultiSelect)參數(shù)expression是必需的

51、，返回一個(gè)Application對(duì)象。參數(shù)FileFilter是可選的，指定文件篩選條件的字符串。如果省略，則默認(rèn)參數(shù)值為“所有文件(*.*)”。參數(shù)FilterIndex是可選的，指定默認(rèn)文件篩選條件的索引號(hào)，取值范圍為 1 到由 FileFilter 所指定的篩選條件數(shù)目。如果省略，或者取值大于可用篩選數(shù)目，則采用第一個(gè)文件篩選條件。參數(shù)Title是可選的，指定對(duì)話框的標(biāo)題。如果省略，則使用“打開(kāi)”作為標(biāo)題。參數(shù)ButtonText是可選的，僅用于Macintosh。參數(shù)MultiSelect是可選的，如果該值為True，則允許選定多個(gè)文件名，如果該值為False，則只允許選定單個(gè)文件名。

52、默認(rèn)值為False。第5行代碼顯示標(biāo)準(zhǔn)的“打開(kāi)”對(duì)話框，將對(duì)話框的標(biāo)題設(shè)置為“刪除文件”，將MultiSelect參數(shù)設(shè)置為True，允許選定多個(gè)文件。第6行代碼，獲得返回值。當(dāng)用戶選定文件后，返回的是選定的文件名或用戶輸入的文件名。因?yàn)镸ultiSelect參數(shù)已設(shè)置為True，所以返回值將是一個(gè)包含所有選定文件名的數(shù)組（即使僅選定了一個(gè)文件名）。如果用戶取消了對(duì)話框，則該值為False。第8行到第12行代碼，經(jīng)詢問(wèn)用戶后使用Kill語(yǔ)句從磁盤中刪除用戶選定的文件。運(yùn)行OpenFilename過(guò)程，顯示標(biāo)準(zhǔn)的內(nèi)置“打開(kāi)”對(duì)話框，刪除用戶選定的文件，如所圖 7718示。圖 Error! No

53、text of specified style in document.18獲取用戶選定文件的文件名注意 VBA中數(shù)組下界默認(rèn)從0開(kāi)始，但使用GetOpenFilename方法選擇多個(gè)文件時(shí)返回的包含選定文件名的數(shù)組下界是從1開(kāi)始。5-3 使用“另存為”對(duì)話框在備份文件時(shí)可以使用GetSaveAsFilename方法顯示標(biāo)準(zhǔn)的內(nèi)置“另存為”對(duì)話框，獲取備份文件的文件名和保存路徑，而無(wú)須真正保存任何文件。如下面的代碼所示。#001 Sub CopyFilename()#002 Dim NowWorkbook As Workbook#003 Dim FileName As String#004 On Error GoTo line#005 FileName = Application.GetSaveAsFilename