Excel-VBA常用技巧-第06章-使用對話框

1、VBA 常用技巧目錄 第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

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

3、ntext是可選的，用來為消息框提供上下文相關(guān)幫助的幫助文件和幫助主題。如果提供了其中一個參數(shù)，則必須提供另一個參數(shù)，兩者缺一不可。運行Mymsgbox過程，顯示如Error! Reference source not found.所示的消息框。圖 11簡單的信息提示1-2 定制個性化的消息框如果希望MsgBox函數(shù)顯示的消息框具有特定的按鈕、圖標和標題欄，那么可以使用MsgBox函數(shù)的buttons參數(shù)和title參數(shù)，如下面的代碼所示。#001 Sub Specialmsbox()#002 MsgBox Prompt:=歡迎光臨 Excel Home!, _#003 Buttons:=vb

4、OKCancel + vbInformation, _#004 Title:=Excel Home#005 End Sub代碼解析：Specialmsbox過程使用MsgBox函數(shù)顯示一個具有特定的按鈕、圖標和標題欄的消息框。第3行代碼設置消息框的Buttons參數(shù)，使消息框顯示時具有“確定”、“取消”按鈕和信息消息圖標。MsgBox函數(shù)的buttons參數(shù)設置值如Error! Reference source not found.所示。參數(shù)組常數(shù)值描述第一組設置消息框按鈕數(shù)目和類型vbOKOnly0只顯示“確定”按鈕（默認設置）VbOKCancel1顯示“確定”和“取消”按鈕VbAbortR

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

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

7、設定buttons參數(shù)值時，這些值可以相加使用，但每一組中只能選擇一個值。在程序代碼中也可以使用buttons參數(shù)的常數(shù)名稱，而不必使用實際數(shù)值。第4行代碼將消息框的Title參數(shù)設置為“Excel Home”，使消息框的標題欄顯示“Excel Home”。運行Specialmsbox過程后，顯示一個如Error! Reference source not found.所示的消息框，該消息框具有“Excel Home”標題、信息消息圖標和“確定”、“取消”按鈕并以“確定”按鈕作為默認按鈕。 圖 12具有特定按鈕、圖標和標題欄的消息框1-3 獲得消息框的返回值如果希望能根據(jù)用戶對于消息框的不同選

8、擇，進行相應的操作，可以對消息框的返回值進行判斷，如下面的代碼所示。#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#006 Me.Save#007 Case 7#008 Me.Saved = True#009 Case 2#010 Cancel = True#011 End Select#012 End Sub代碼解析：工作簿的Before

9、Close過程，在關(guān)閉工作簿前使用MsgBox函數(shù)顯示一個消息框，并根據(jù)用戶的回應用進行相應的操作。第3行代碼，使用MsgBox函數(shù)顯示一個具有“是”、“否”和“否”按鈕的消息框，并把用戶的回應，即消息框的返回值賦給變量iMsg。MsgBox是一個函數(shù)，這意味著它將返回一個值，如果希望獲得返回值，可使用和第3行相似的代碼，此時如果不使用括號將參數(shù)封閉起來，則會提示編譯錯誤，如Error! Reference source not found.所示。圖 13提示編譯錯誤第4行到第11行代碼，Select Case結(jié)構(gòu)語句，根據(jù)變量iMsg的值判斷用戶的回應，如果變量iMsg的值為6，說明用戶選擇

10、了“是”按鈕，則使用Save方法保存工作簿；如果變量iMsg的值為7，說明用戶選擇了“否”按鈕，則將工作簿的Saved屬性設置為True，不保存更改而直接關(guān)閉工作簿。關(guān)于Save方法和Saved屬性請參閱技巧Error! Reference source not found.。如果變量iMsg的值為2，說明用戶選擇了“取消”按鈕，是將BeforeClose過程的Cancel 參數(shù)設置為True，取消關(guān)閉工作簿操作。MsgBox函數(shù)的返回值如Error! Reference source not found.所示，在程序代碼中也可以使用常數(shù)名稱，而不必使用實際數(shù)值。常數(shù)值描述vbOK1確定vbC

11、ancel2取消vbAbort3放棄vbRetry4重試vbIgnore5忽略vbYes6是vbNo7否表格 12MsgBox函數(shù)的返回值在關(guān)閉本工作簿時將顯示一個如Error! Reference source not found.所示的消息框，詢問用戶是否保存，并根據(jù)用戶的回應用進行相應的操作。圖 14詢問消息框1-4 在消息框中排版如果在消息框中顯示的字符串很長，比如是一段多行的文字內(nèi)容，為了達到美觀的效果，需要首字縮進，并將各行分隔開來，如下面代碼所示。#001 Sub Newlinemsbox()#002 MsgBox Space(4) & 歡迎來到 ExcelHome 技術(shù)論壇，全

12、球最領(lǐng)先的 Excel 技術(shù)論壇之一。 & Chr(10) _#003 & Space(4) & 在這里，我們討論 Microsoft Office 系列產(chǎn)品的應用技術(shù)，重點討論 & Chr(10) _#004 & Microsoft Excel。 & Chr(10) _#005 & Space(4) & 本論壇從屬于 Excel Home 這一全球最大的華語 Excel 技術(shù)門戶，目前 & Chr(10) _#006 & 是個人、非營利性質(zhì)的網(wǎng)站學習平臺。 & Chr(10) _#007 & Space(4) & Lets do it better! 這是 Excel Home 的口號，我們

13、的宗旨是幫助大 & Chr(10) _#008 & 家解決在使用Office軟件中的問題，提升自己的應用技能。#009 End Sub代碼解析：Newlinemsbox過程使用消息框顯示一段經(jīng)過排版后的文本內(nèi)容。代碼中使用Space 函數(shù)在每段的首字前插入4個空格，使首字縮進，在需要換行的地方插入換行符 （Chr(10)） 將各行分隔開來。也可以使用回車符 （Chr(13)）、或是回車與換行符的組合 （Chr(13) & Chr（10)）換行。在程序代碼中也可以使用vbCrLf、vbNewLine等常數(shù)，而不必使用Chr 函數(shù)，如Error! Reference source not foun

14、d.所示。常數(shù)等于描述vbCrLfChr(13) + Chr(10)回車符與換行符結(jié)合vbCrChr(13)回車符vbLfChr(10)換行符vbNewLineChr(13) + Chr(10) or, on the Macintosh, Chr(13)平臺指定的新行字符表格 13回車符與換行符運行Newlinemsbox過程, 用消息框顯示一段經(jīng)過排版后的文本內(nèi)容,效果如Error! Reference source not found.所示。圖 15在消息框中排版1-5 對齊消息框中顯示的信息在用消息框顯示如Error! Reference source not found.所示的工作表中

15、多行多列的單元格區(qū)域時，如果只用換行符（Chr(10)）等進行換行，而數(shù)據(jù)列沒有對齊，會使顯示的信息顯得雜亂無章，缺乏可讀性，如Error! Reference source not found.所示。圖 16工作表單元格區(qū)域圖 17沒有對列進行分隔的消息框為了達到消息框中顯示信息各列對齊的效果，在使用換行符（Chr(10)）等進行換行的基礎上，還需要使用制表符（Chr(9)）或常數(shù)vbTab，對數(shù)據(jù)列進行分隔，使之排列整齊，如下面代碼所示。#001 Sub Outmsbox()#002 Dim sMsg As String#003 Dim iRow As Integer#004 Dim iC

16、om 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#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)中在讀

17、取下一行單元格內(nèi)容賦給變量myMsg時插入一個換行符（Chr(10)），對行進行換行。運行Outmsbox過程將用消息框顯示當前工作表中A1至E11單元格區(qū)域中的內(nèi)容，并排列整齊，如Error! Reference source not found.所示。圖 18分列顯示數(shù)據(jù)的消息框技巧2 自動關(guān)閉的消息框在程序執(zhí)行完畢后給用戶一個提示信息，但用MsgBox函數(shù)顯示的消息框?qū)⒁恢北３?，需要用戶單擊“確定”或“關(guān)閉”按鈕才會關(guān)閉。如果希望顯示的消息框自動關(guān)閉，那么可以使用以下方法顯示消息框。2-1 使用WshShell.Popup方法顯示消息框#001 Sub WshShell()#002 Di

18、m WshShell As Object#003 Set WshShell = CreateObject(Wscript.Shell)#004 WshShell.popup 執(zhí)行完畢!, 2, 提示, 64#005 Set WshShell = Nothing#006 End Sub代碼解析：WshShell過程使用WshShell.Popup方法顯示消息框，2秒后自動關(guān)閉。WshShell.Popup方法的語法如下：WshShell.Popup(strText, natSecondsToWait, strTitle, natType) = intButton參數(shù)strText是必需的，與Ms

19、gbox的Prompt參數(shù)類似，代表在消息框中作為信息顯示的字符或字符串。如果顯示的內(nèi)容超過一行，可以在每一行之間用換行符 （Chr(10)）等將各行分隔開來。參數(shù)natSecondsToWait是可選的，其時間單位為妙。如果提供natSecondsToWait參數(shù)且其值大于零，則消息框在natSecondsToWait 參數(shù)指定的秒數(shù)后關(guān)閉。參數(shù)strTitle是可選的，代表在消息框標題欄中作為標題的字符或字符串，若省略，則窗口標題為“Windows 腳本宿主”。參數(shù)natType是可選的，指定消息框中顯示按鈕的數(shù)目及類型、使用的圖標樣式、缺省按鈕以及消息框的強制回應等，與MsgBox函數(shù)b

20、uttons參數(shù)相同，請參閱技巧Error! Reference source not found.中的Error! Reference source not found.。參數(shù)intButton指示用戶所單擊的按扭編號，與MsgBox函數(shù)的返回值相同，請參閱技巧Error! Reference source not found.中的Error! Reference source not found.。若用戶在natSecondsToWait 秒之前不單擊按扭，則返回值為 -1 。運行WshShell過程顯示一個如Error! Reference source not found.所示消息框，

21、無需點擊“確定”按紐，2秒后自動關(guān)閉。圖 21自動關(guān)閉的消息框2-2 使用API函數(shù)顯示消息框使用API函數(shù)也可以達到這一效果，如下面的代碼所示。#001 Public Declare Function SetTimer Lib user32 ( _#002 ByVal hWnd As Long, _#003 ByVal nIDEvent As Long, _#004 ByVal uElaspe As Long, _#005 ByVal lpTimerFunc As Long) As Long#006 Public Declare Function KillTimer Lib user32 (

22、 _#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 Sub#014 Sub CloseTest(ByVal hWnd As Long, ByVal uMsg As Long, ByVal idevent As Long, _#015 ByVal Systime As Long)#016 Appli

23、cation.SendKeys , True#017 KillTimer 0, TID#018 End Sub代碼解析：第1行代碼到第9行代碼是API函數(shù)聲明。Test過程顯示一個消息框并在3秒鐘后運行CloseTest過程。CloseTest過程發(fā)送一個確定鍵給Excel程序關(guān)閉顯示的消息框。運行Test過程顯示一個如Error! Reference source not found.所示的消息框并在2秒鐘后關(guān)閉。圖 22自動關(guān)閉的消息框技巧3 使用InputBox函數(shù)3-1 簡單的數(shù)據(jù)輸入Excel的使用過程中，有時需要用戶輸入簡單的數(shù)據(jù)，此時可以使用InputBox函數(shù)顯示一個對話框，供

24、用戶在對話框中輸入數(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(請輸入人員姓名：)#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過程使用Input

25、Box函數(shù)顯示一個對話框供用戶在對話框中輸入數(shù)據(jù)，InputBox函數(shù)顯示一個對話框，等待用戶輸入正文或按下按鈕，并返回包含文本框內(nèi)容的字符串，語法如下：InputBox(prompt, title , default , xpos , ypos , helpfile, context)參數(shù)prompt是必需的，作為對話框消息出現(xiàn)的字符串表達式。參數(shù)title是可選的，作為顯示在對話框標題欄中的字符串表達式，如果省略title參數(shù)，則在標題欄中顯示“Microsoft Excel”。參數(shù)default是可選的，顯示在文本框中的字符串表達式，在沒有其它輸入時作為缺省值，如果省略default參數(shù)

26、，則文本框為空。參數(shù)xpos是可選的，指定對話框的左邊與屏幕左邊的水平距離。如果省略xpos參數(shù)，則對話框會在水平方向居中。參數(shù)ypos是可選的，指定對話框的上邊與屏幕上邊的距離。如果省略ypos參數(shù)，則對話框被放置在屏幕垂直方向距下邊大約三分之一的位置。參數(shù)helpfile和參數(shù)context是可選的，為對話框提供上下文相關(guān)的幫助和編號，如果提供了其中一個參數(shù)，則必須提供另一個參數(shù)，兩者缺一不可。第5行代碼，使用InputBox函數(shù)顯示一個提示用戶輸入郵政編碼的對話框，其中“請輸入人員姓名：”是必需的prompt參數(shù)，其他參數(shù)使用缺省值。第4行代碼，使用Len函數(shù)和Trim函數(shù)判斷返回的去除

27、空格后的字符串長度。如果字符串長度大于零，說明用戶單擊了對話框的“確定”按鈕，則將用戶輸入的數(shù)據(jù)寫到工作表的A列單元格。如果返回的是長度為零的字符串，說明用戶單擊了對話框的“取消”按鈕，則顯示一條提示消息。因為當用戶單擊對話框的“確定”按鈕后，InputBox函數(shù)返回包含文本框內(nèi)容的字符串，如果用戶單擊對話框的“取消”按鈕則返回一個長度為零的字符串（），通過返回的字符串長度可以判斷用戶做出的選擇。運行sInput過程將顯示一個提示用戶輸入數(shù)據(jù)的對話框，如Error! Reference source not found.所示。圖 31InputBox函數(shù)顯示的對話框3-2 使用對話框輸入密碼使

28、用InputBox函數(shù)顯示的對話框輸入密碼簡單方便，但有個明顯的缺陷，就是輸入過程中不能用占位符顯示密碼，不夠安全。借助API函數(shù)可以在輸入密碼過程中以占位符“*”號來顯示密碼，如下面的代碼所示。#001 Public Declare Function FindWindow Lib user32 Alias FindWindowA (ByVal lpClassName As String, ByVal lpWindowName As String) As Long#002 Public Declare Function FindWindowEx Lib user32 Alias FindWin

29、dowExA (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long#003 Public Declare Function SendMessage 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

30、 Lib winmm.dll (ByVal uDelay As Long, ByVal uResolution As Long, ByVal lpFunction As Long, ByVal dwUser As Long, ByVal uFlags As Long) As Long#005 Public Declare Function timeKillEvent Lib winmm.dll (ByVal uID As Long) As Long#006 Public Declare Function GetTickCount Lib kernel32 () As Long#007 Publ

31、ic Const EM_SETPASSWORDCHAR = &HCC#008 Public lTimeID As Long#009 Sub TimeProc(ByVal uID As Long, ByVal uMsg As Long, ByVal dwUser As Long, ByVal 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)#

32、014 SendMessage hwd, EM_SETPASSWORDCHAR, 42, 0#015 timeKillEvent lTimeID#016 End If#017 End Sub#018 Sub Password()#019 Dim Password As Variant#020 lTimeID = timeSetEvent(10, 0, AddressOf TimeProc, 1, 1)#021 Password = InputBox(請輸入密碼：, 密碼)#022 If Password = Then#023 MsgBox 密碼正確!#024 Else#025 MsgBox 密

33、碼錯誤!#026 End If#027 End Sub代碼解析：Password過程使用InputBox函數(shù)顯示一個輸入密碼的對話框，并且以占位符“*”號顯示輸入的密碼。第1行到第8行代碼，API函數(shù)聲明。第9行到第17行代碼，TimeProc過程是timeSetEvent的回調(diào)函數(shù)，獲得對話框句柄。第18行到第27行代碼，Password過程顯示一個提示用戶輸入密碼的對話框。運行Password過程將顯示一個密碼輸入框，輸入的密碼以占位符“*”號代替，如Error! Reference source not found.所示。圖 32密碼輸入框技巧4 使用InputBox方法在Excel中輸

34、入簡單的數(shù)據(jù)可以使用InputBox函數(shù)顯示的對話框，但是如果輸入的數(shù)據(jù)類型不匹配時，過程運行時會產(chǎn)生意外錯誤。為了避免此類情況發(fā)生，可以使用另一種獲得用戶輸入的方式InputBox方法。4-1 輸入指定類型的數(shù)據(jù)使用InputBox方法輸入數(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ù)字：,

35、Type:=1)#006 If dInput False Then#007 Sheet1.Cells(r + 1, 1).Value = dInput#008 Else#009 MsgBox 你已取消了輸入!#010 End If#011 End Sub代碼解析：dInput過程使用InputBox方法顯示一個提示用戶輸入數(shù)字的對話框。InputBox方法顯示一個接收用戶輸入的對話框，返回此對話框中輸入的信息，語法如下：expression.InputBox(Prompt, Title, Default, Left, Top, HelpFile, HelpContextId, Type)參數(shù)e

36、xpression是必需的，返回一個Application對象。參數(shù)Prompt是必需的，作為對話框消息顯示的字符串表達式。參數(shù)Title是可選的，作為顯示在對話框標題欄中的字符串表達式。如果省略Title參數(shù)，將使用默認的標題。參數(shù)Default是可選的，在對話框顯示時出現(xiàn)在文本框中的初始值。如果省略Default參數(shù)，則文本框為空。參數(shù)Left是可選的，指定對話框相對于屏幕左上角的 x 坐標。參數(shù)Top是可選的，指定對話框相對于屏幕左上角的 y 坐標。參數(shù)HelpFile和參數(shù)HelpContextId是可選的，為對話框提供上下文相關(guān)的幫助和編號，如果提供了其中一個參數(shù)，則必須提供另一個參

37、數(shù)，兩者缺一不可。參數(shù)Type是可選的，指定返回的數(shù)據(jù)類型。如果省略Type參數(shù)，對話框?qū)⒎祷匚谋?。InputBox方法的語法和InputBox函數(shù)的語法相似，最大的區(qū)別在于最后一個參數(shù)Type。通過Type參數(shù)可以指定返回值的數(shù)據(jù)類型，Error! Reference source not found.列出了Type參數(shù)可以使用的數(shù)值。數(shù)值期望的返回值0一個公式1一個數(shù)字2文本（字符串）4一個邏輯值，例如true或false8一個單元格引用16一個錯誤值64一個值的數(shù)組表格 41Type參數(shù)的值這些數(shù)值可以相加使用，如果希望返回數(shù)字和文本，可以將Type參數(shù)設置為1+2。InputBox方法

38、與InputBox函數(shù)相比，優(yōu)點是內(nèi)置的出錯處理。在第5行代碼中將Type參數(shù)值設置為1，這意味著對話框只能輸入數(shù)值。當用戶輸入的不是數(shù)值時，顯示一個如Error! Reference source not found.所示的消息框提示輸入錯誤。圖 41提示輸入錯誤第6行到第10行代碼，如果用戶單擊對話框的“確定”按鈕，將用戶輸入的數(shù)字寫入工作表的A列單元格。如果用戶單擊對話框的“取消”按鈕，則顯示一條提示消息。InputBox方法和InputBox函數(shù)的另一個區(qū)別是，當用戶單擊“取消”按紐時返回False而不是長度為零的字符串。運行dInput過程將顯示一個提示用戶輸入數(shù)字的對話框，如Err

39、or! Reference source not found.所示。圖 42InputBox方法顯示的對話框注意 在VBA代碼中，Application.InputBox 調(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(請使用鼠

40、標選擇單元格區(qū)域：, , , , , , , 8)#005 rng.Interior.ColorIndex = 15#006 line:#007 End Sub代碼解析：RngInput過程使用InputBox方法顯示一個對話框，提示用戶在工作表中選擇一個單元格區(qū)域，并改變所選單元格區(qū)域內(nèi)部的顏色。第3行代碼，錯誤處理語句。因為當對話框顯示后，如果用戶單擊“取消”按鈕，將顯示一錯誤信息，如Error! Reference source not found.所示，所以必需使用On Error GoTo語句來繞過錯誤。圖 43提示運行錯誤第4行代碼，使用Set語句將用戶選擇的單元格區(qū)域賦給變量rn

41、g。當Type參數(shù)設置為8時，將返回一個Range對象，必須用Set 語句將結(jié)果指定給一個Range對象。第5行代碼，改變用戶所選單元格區(qū)域內(nèi)部的顏色。運行RngInput過程，將顯示一個對話框，提示用戶在工作表中選擇一個單元格區(qū)域，并改變所選單元格區(qū)域內(nèi)部的顏色，如Error! Reference source not found.所示。圖 44使用InputBox方法獲得區(qū)域地址技巧5 內(nèi)置對話框5-1 調(diào)用內(nèi)置的對話框如果需要使用“打開”、“打印”等Excel內(nèi)置對話框已經(jīng)具有的功能，可以使用代碼直接調(diào)用這些內(nèi)置的對話框，如下面的代碼所示。#001 Sub DialogOpen()#00

42、2 Application.Dialogs(xlDialogOpen).Show arg1:=ThisWorkbook.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”開頭，其后是對話框的名稱，如“打開”

43、對話框的常量為“xlDialogOpen”。常用內(nèi)置對話框的內(nèi)置常量如Error! Reference source not found.所示。常量值說明xlDialogActiveCellFont476單元格格式(字體）xlDialogBorder45單元格格式(邊框）xlDialogCellProtection46單元格格式(保護）xlDialogDeleteFormat111單元格格式(數(shù)字）xlDialogFormatNumber42單元格格式(數(shù)字）xlDialogPatterns84單元格格式(圖案）xlDialogClear52清除xlDialogColumnWidth47列寬x

44、lDialogRowHeight127行高xlDialogConditionalFormatting583條件格式xlDialogDefineName61定義名稱xlDialogDefineStyle229樣式xlDialogDisplay27顯示選項xlDialogFont26字體xlDialogSetBackgroundPicture509工作表背景xlDialogInsert55插入xlDialogInsertHyperlink596插入超鏈接xlDialogInsertPicture342插入圖片xlDialogNew119新建工作簿xlDialogOpen1打開xlDialogSav

45、eAs5另存為xlDialogWorkbookCopy283移動或復制工作表（建立副本）xlDialogWorkbookInsert354插入工作表xlDialogWorkbookMove282移動或復制工作表xlDialogWorkbookName386重命名工作表xlDialogWorkbookNew302新建工作表xlDialogWorkbookProtect417保護工作簿xlDialogPageSetup7頁面設置xlDialogPrint8打印內(nèi)容xlDialogPrinterSetup9打印機設置xlDialogPrintPreview222打印預覽xlDialogSetPrin

46、tTitles23設置打印標題xlDialogRun17宏xlDialogTable41模擬運算表xlDialogSendMail189發(fā)送郵件表格 51內(nèi)置對話框的內(nèi)置常量顯示內(nèi)置對話框使用Show方法，應用于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,

47、 Arg25, Arg26, Arg27, Arg28, Arg29, Arg30)參數(shù)expression是必需的，返回Dialog對象之一。參數(shù)arg1到參數(shù)arg30是可選的，僅應用于內(nèi)置對話框，是命令的初始參數(shù)。若要查找要設置的參數(shù)，請在內(nèi)置對話框參數(shù)列表中查找對應的對話框常量。運行alogOpen過程，顯示內(nèi)置的“打開”對話框，并且直接選定示例所在的文件夾，如Error! Reference source not found.所示。圖 51使用內(nèi)置對話框5-2 獲取選定文件的文件名如果只希望獲取用戶在顯示的內(nèi)置 “打開”對話框中選定文件的文件名，而不想真正打開該文件，那么可以使用Ge

48、tOpenFilename方法，如下面的代碼所示。#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

49、 For i = 1 To 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ù)e

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

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

52、Reference source not found.示。圖 52獲取用戶選定文件的文件名注意 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 _#006 (InitialFileName:=D: & Date & & ThisWorkbook.Name, _#007 fileFilter:=Excel files(*.xls),*.xls,All files (*.*),*.*, _#008 Title:=數(shù)據(jù)備份)#009 If FileName False Then#010 Set NowWorkbook = Workbooks.Add#