ExcelVBA常用技巧使用對話框

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

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

3、，用來為消息框提供上下文相關(guān)幫助的幫助文件和幫助主題。如果提供了其中一個參數(shù)，則必須提供另一個參數(shù)，兩者缺一不可。運行Mymsgbox過程，顯示如圖 731所示的消息框。圖 Error! No text of specified style in document.1簡單的信息提示1-2 定制個性化的消息框如果希望MsgBox函數(shù)顯示的消息框具有特定的按鈕、圖標和標題欄，那么可以使用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過程使用MsgBox函數(shù)顯示一個具有特定的按鈕、圖標和標題欄的消息框。第3行代碼設(shè)置消息框的Buttons參數(shù)，使消息框顯示時具有“確定”、“取消”按鈕和信息消息圖標。MsgBox函數(shù)的buttons參數(shù)設(shè)置值如表格 731所示。參數(shù)組常數(shù)值描述第一組設(shè)置消息框按鈕數(shù)目和類型vbOKOnly0只顯示“確定”按鈕（默認設(shè)置）VbOKCancel1顯示“確定”和“取消”按鈕VbAbortRetryIgnore2顯示“放棄”、“重試

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

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

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

8、nt.2具有特定按鈕、圖標和標題欄的消息框1-3 獲得消息框的返回值如果希望能根據(jù)用戶對于消息框的不同選擇，進行相應(yīng)的操作，可以對消息框的返回值進行判斷，如下面的代碼所示。#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ān)閉工作簿前使用MsgBox函數(shù)顯示一個消息框，并根據(jù)用戶的回應(yīng)用進行相應(yīng)的操作。第3行代碼，使用MsgBox函數(shù)顯示一個具有“是”、“否”和“否”按鈕的消息框，并把用戶的回應(yīng)，即消息框的返回值賦給變量iMsg。MsgBox是一個函數(shù)，這意味著它將返回一個值，如果希望獲得返回值，可使用和第3行相似的代碼，此時如果不使用括號將參數(shù)封閉起來，則會提示編譯錯誤，如圖 733所示。圖 Error! No text of specified style in document.3提示編譯錯誤第4行到第11行

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

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

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

13、 & 是個人、非營利性質(zhì)的網(wǎng)站學習平臺。 & Chr(10) _#007 & Space(4) & Lets do it better! 這是 Excel Home 的口號，我們的宗旨是幫助大 & Chr(10) _#008 & 家解決在使用Office軟件中的問題，提升自己的應(yīng)用技能。#009 End Sub代碼解析：Newlinemsbox過程使用消息框顯示一段經(jīng)過排版后的文本內(nèi)容。代碼中使用Space 函數(shù)在每段的首字前插入4個空格，使首字縮進，在需要換行的地方插入換行符 （Chr(10)） 將各行分隔開來。也可以使用回車符 （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)平臺指定的新行字符表格 Error! No text of specified style in document.3回車符與換行符運行Newlinemsbox過程,用消息框顯示一段經(jīng)過排版后的文本內(nèi)容,效果如圖 735所示

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

16、果，在使用換行符（Chr(10)）等進行換行的基礎(chǔ)上，還需要使用制表符（Chr(9)）或常數(shù)vbTab，對數(shù)據(jù)列進行分隔，使之排列整齊，如下面代碼所示。#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過程使用兩層循環(huán)讀取當前工作表中A1到E11單元格的內(nèi)容，并用消息框顯示出來。第7行代碼，iCom循環(huán)中在把逐列讀取的單元格內(nèi)容賦給變量myMsg時插入一個制表符（Chr(9)），對列進行分隔。第9行代碼，iRow循環(huán)中在讀取下一行單元格內(nèi)容賦給變量myMsg時插入一個換行符（Chr(10)），對行進行換行。運行Outmsbox過程將用消息框顯示當前工作表中A1至E11單元格區(qū)域中的內(nèi)容，并排列整齊，如圖 738所示。圖 Error! No text of specified style in document.

18、8分列顯示數(shù)據(jù)的消息框技巧2 自動關(guān)閉的消息框在程序執(zhí)行完畢后給用戶一個提示信息，但用MsgBox函數(shù)顯示的消息框?qū)⒁恢北３?，需要用戶單擊“確定”或“關(guān)閉”按鈕才會關(guān)閉。如果希望顯示的消息框自動關(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過程使用顯示消息框，2秒后自動關(guān)閉。WshShell.Popup方法的語法如下：WshShell.Popup(strText, natSecondsToWait, strTitle, natType) = intButton參數(shù)strText是必需的，與Msgbox的Prompt參數(shù)類似，代表在消息框中作為信息顯示的字符或字符串。如果顯示的內(nèi)容超過一行，可以在每一行之間用換行符 （Chr(10)）等將各行分隔開來。參數(shù)natSecondsToWait是可選的，其時間單位為妙。如果提供natSecondsToWait參數(shù)且其值大于零，則消息框在natSecondsToWait 參

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

21、ocument.2。若用戶在natSecondsToWait 秒之前不單擊按扭，則返回值為 -1 。運行WshShell過程顯示一個如圖 749所示消息框，無需點擊“確定”按紐，2秒后自動關(guān)閉。圖 Error! No text of specified style in document.9自動關(guān)閉的消息框2-2 使用API函數(shù)顯示消息框使用API函數(shù)也可以達到這一效果，如下面的代碼所示。#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過程顯示一個消息框并在3秒鐘后運行CloseTest過程。CloseTest過程發(fā)送一個確定鍵給Excel程序關(guān)閉顯示的消息框。運行Test過程顯示一個如圖 7410所示的消息框并在2秒

24、鐘后關(guān)閉。圖 Error! No text of specified style in document.10自動關(guān)閉的消息框技巧3 使用InputBox函數(shù)3-1 簡單的數(shù)據(jù)輸入Excel的使用過程中，有時需要用戶輸入簡單的數(shù)據(jù)，此時可以使用InputBox函數(shù)顯示一個對話框，供用戶在對話框中輸入數(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(請輸入人員姓名

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

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

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

28、”按鈕則返回一個長度為零的字符串（），通過返回的字符串長度可以判斷用戶做出的選擇。運行sInput過程將顯示一個提示用戶輸入數(shù)據(jù)的對話框，如圖 7511所示。圖 Error! No text of specified style in document.11InputBox函數(shù)顯示的對話框3-2 使用對話框輸入密碼使用InputBox函數(shù)顯示的對話框輸入密碼簡單方便，但有個明顯的缺陷，就是輸入過程中不能用占位符顯示密碼，不夠安全。借助API函數(shù)可以在輸入密碼過程中以占位符“*”號來顯示密碼，如下面的代碼所示。#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(請輸入密碼：, 密碼)#022 If Password = 123456 Then#023 MsgBox 密碼正確!#024 Else#025 MsgBox 密碼錯誤!#026 End If#027 End Sub代碼解析：Password過程使用InputBox函數(shù)顯示一個輸入密碼的對話框，并且以占位符“*”號顯示輸入的密碼。第1行到第8行代碼，API函數(shù)聲明。第9行到第17行代碼，TimeProc過程是timeSetEv

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

35、x方法輸入數(shù)據(jù)時可以指定數(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:=請輸入數(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過程使用InputBox方法顯示一個提示用戶輸入數(shù)字的對話框。InputBox方法顯示一個接收用戶輸入的對話框，返回此對話框中輸入的信息，語法如下：expression.InputBox(Prompt, Title, Default, Left, Top, HelpFile, HelpContextId, Type)參數(shù)expression是必需的，返回一個Application對象。參數(shù)Prompt是必需的，作為對話框消息顯示的字符串表達式。參數(shù)Title是可選的，作為顯示在對話框標題欄中的字符串表達式。如果省略Title參數(shù)，將使用默認的標題。參

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

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

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

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

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

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

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

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

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

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

47、rror! No text of specified style in document.5內(nèi)置對話框的內(nèi)置常量顯示內(nèi)置對話框使用Show方法，應(yīng)用于Dialog對象的Show方法語法如下：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對象之一。參數(shù)arg1到參數(shù)arg30是可選的，僅應(yīng)用于內(nèi)置對話框，是命令的初始參數(shù)。若要查找要設(shè)置的參數(shù)，請在內(nèi)置對話框參數(shù)列表中查找對應(yīng)的對話框常量。運行alogOpen過程，顯示內(nèi)置的“打開”對話框，并且直接選定示例所在的文件夾，如圖 7717所示。圖 Error! No text of specified style in document.17使用內(nèi)置對話框5-2 獲取選定文件的文件名如果只希望獲取用戶在顯示的內(nè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過程使用GetOpenFilename方法顯示標準的內(nèi)置“打開”對話框，獲取用戶選定文件的文件名后使用Kill語句刪除。GetOpenFilename方法顯示標準的內(nèi)置“打開”對話框，獲取文件名，語法如下：expression.GetOpenFilename(FileFilter, FilterIndex, Title, ButtonText, MultiSelect)參數(shù)expression是必需的

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

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

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