MsgBox函數(shù)用法講解

1、MsgBox函數(shù)用法講解VBA中msgbox的用法小結(jié)1、作用在消息框中顯示信息，并等待用戶單擊按鈕，可返回單擊的按鈕值(比如“確定”或者“取消”)。通常用作顯示變量值的一種方式。2、語(yǔ)法MsgBox(Prompt,Buttons,Title,Helpfile,Context)參數(shù)說(shuō)明：(1)Prompt，必需的參數(shù)，為字符串，作為顯示在消息框中的消息文本。其最大長(zhǎng)度約為1024個(gè)字符，由所用字符的寬度決定。如果prompt的內(nèi)容超過(guò)一行，則可以在每一行之間用回車符(Chr(13)、換行符(Chr(10)或是回車與換行符的組合(Chr(13)&Chr(10)將各行分隔開來(lái)。(2)But

2、tons，可選的參數(shù)，為數(shù)值表達(dá)式的值之和，指定顯示的按鈕的數(shù)目及形式、使用的圖標(biāo)樣式、缺省按鈕及消息框的強(qiáng)制回應(yīng)等，可以此定制消息框。若省略該參數(shù)，則其缺省值為0。設(shè)置值見下表。(3)Title，可選的參數(shù)，表示在消息框的標(biāo)題欄中所顯示的文本。若省略該參數(shù)，則將應(yīng)用程序名放在標(biāo)題欄中。(4)Helpfile，可選的參數(shù)，為字符串表達(dá)式，提供幫助文件。若有Helpfile，則必須有Context。(5)Context，可選的參數(shù)，為數(shù)值表達(dá)式，提供幫助主題。若有Context，則必須有Helpfile。3、Button參數(shù)用于MsgBox函數(shù)中Button參數(shù)的常量常量  

3、              值               說(shuō)明vbOKOnly             0   只顯示“確定”按鈕VbOKCancel   &

4、#160;       1   顯示“確定”和“取消”按鈕VbAbortRetryIgnore   2   顯示“終止”、“重試”和“忽略” 按鈕VbYesNoCancel        3   顯示“是”、“否”和“取消”按鈕VbYesNo            &#

5、160; 4   顯示“是”和“否”按鈕VbRetryCancel        5   顯示“重試”和“取消”按鈕VbCritical           16 顯示“關(guān)鍵信息”圖標(biāo)VbQuestion           32 顯示“警告詢問(wèn)”圖標(biāo)VbExclamation 

6、       48 顯示“警告消息”圖標(biāo)VbInformation        64 顯示“通知消息”圖標(biāo)vbDefaultButton1      0 第一個(gè)按鈕是缺省值(缺省設(shè)置)vbDefaultButton2     256第二個(gè)按鈕是缺省值vbDefaultButton3     512第三個(gè)按鈕是缺省值vbDefaultBu

7、tton4     768第四個(gè)按鈕是缺省值vbApplicationModal     0應(yīng)用程序強(qiáng)制返回；應(yīng)用程序一直被掛起，直到用戶對(duì)消息框作出響應(yīng)才繼續(xù)工作vbSystemModal        4096系統(tǒng)強(qiáng)制返回；全部應(yīng)用程序都被掛起，直到用戶對(duì)消息框作出響應(yīng)才繼續(xù)工作vbMsgBoxHelpButton    16384將Help按鈕添加到消息框VbMsgBoxSetForeground 65536指

8、定消息框窗口作為前景窗口vbMsgBoxRight         524288文本為右對(duì)齊vbMsgBoxRtlReading   1048576指定文本應(yīng)為在希伯來(lái)和阿拉伯語(yǔ)系統(tǒng)中的從右到左顯示說(shuō)明：(1)第一組值(05)描述了消息框中顯示的按鈕的類型與數(shù)目；第二組值(16,32,48,64)描述了圖標(biāo)的樣式；第三組值(0,256,512,768)說(shuō)明哪一個(gè)按鈕是缺省值；而第四組值(0,4096)則決定消息框的強(qiáng)制返回性。將這些數(shù)字相加以生成Buttons參數(shù)值的時(shí)候，只能由每組值取用一個(gè)數(shù)

9、字。(2)這些常數(shù)都是VBA指定的，可以在程序代碼中使用這些常數(shù)名稱代替實(shí)際數(shù)值。4、返回值用于MsgBox函數(shù)返回值的常量常數(shù)          值       說(shuō)明vbOK          1        確定vbCancel    

10、0; 2        取消vbAbort       3        終止vbRetry       4        重試vbIgnore      5     &

11、#160;  忽略vbYes         6        是vbNo          7        否5、相關(guān)說(shuō)明(1) 如果同時(shí)提供了Helpfile與Context參數(shù)，可以按F1鍵來(lái)查看與Context相應(yīng)的幫助主題，Excel通常會(huì)在輸入框中自動(dòng)添加一個(gè)幫助(

12、Help)按鈕。(2)若在消息框中顯示“取消”按鈕，則按下ESC鍵與單擊“取消”按鈕效果相同。若消息框中有“幫助”按鈕，則提供相關(guān)的幫助信息。(3)如果要輸入多個(gè)參數(shù)并省略中間的某些參數(shù)，則必須在相應(yīng)位置加入逗號(hào)分界符。6、示例(1)使用 MsgBox 函數(shù)，在具有“是”及“否”按鈕的對(duì)話框中顯示一條嚴(yán)重錯(cuò)誤信息。示例中的缺省按鈕為“否”，MsgBox函數(shù)的返回值視用戶按哪一個(gè)鈕而定。并假設(shè)DEMO.HLP為一幫助文件，其中有一個(gè)幫助主題代碼為1000。Dim Msg,Style,Title,Help,Ctxt,Response,MyStringMsg="Do you want to

13、 continue ?"    定義消息文本Style = vbYesNo + vbCritical + vbDefaultButton2    ' 定義按鈕Title = "MsgBox Demonstration"    ' 定義標(biāo)題文本Help = "DEMO.HLP"    ' 定義幫助文件Ctxt = 1000    ' 定義幫助主題Response =

14、MsgBox(Msg, Style, Title, Help, Ctxt)If Response = vbYes Then    ' 用戶按下“是”    MyString = "Yes"    ' 完成某操作Else    ' 用戶按下“否”    MyString = "No"    ' 完成某操作End If(2)只顯示某消息MsgBox

15、“Hello!” (3)將消息框返回的結(jié)果賦值給變量Ans=MsgBox(“Continue?”,vbYesNo)If MsgBox(“Continue?”,vbYesNo)<>vbYes Then Exit Sub(4)使用常量的組合，賦值組Config變量，并設(shè)置第二個(gè)按鈕為缺省按鈕Config=vbYesNo+vbQuestion+vbDefaultButton2(5)若要在消息中強(qiáng)制換行，可在文本中使用vbCrLf(或vbNewLine)常量，用&加空格與字符隔開。如MsgBox “This is the first line.” & vbNewL

16、ine & “Second line.”(6)可以在消息框中使用vbTab常量插入一個(gè)制表符。下面的過(guò)程使用一個(gè)消息框來(lái)顯示5×5單元格區(qū)域中的所有值，用vbTab常量分隔列并使用vbCrLf常量插入一個(gè)新行。注意在MsgBox函數(shù)最多只顯示1024個(gè)字符，因此限制了可顯示的單元格數(shù)。Option ExplicitSub ShowRangeValue()Dim Msg As StringDim r As Integer, c As IntegerMsg = ""For r = 1 To 5For c = 1 To 5    M

17、sg = Msg & Cells(r, c) & vbTabNext cMsg = Msg & vbCrLfNext rMsgBox MsgEnd Sub(7)在消息框語(yǔ)句中運(yùn)用工作表函數(shù)以及設(shè)置顯示的數(shù)置格式，如下面語(yǔ)句所示：MsgBox " selection has " & m & " cells ." & Chr(13) & " the sum is :" & Application.WorksheetFunction.Sum(Selection) & C

18、hr(13) & "the average is :" & Format(Application.WorksheetFunction.Average(Selection), "#,#0.00"), vbInformation, "selection count & sum & average" & Chr(13)下面是具體的例子，配圖MsgBox函數(shù)和MsgBox語(yǔ)句均可用來(lái)彈出對(duì)話框，不同處在于MsgBox函數(shù)可以返回一個(gè)值，而MsgBox語(yǔ)句不會(huì)返回值。 MsgBox語(yǔ)句：用于彈出

19、一個(gè)對(duì)話框。格式如下：MsgBox內(nèi)容，類型，標(biāo)題，幫助文件名，幫助主題目錄號(hào)在IE地址欄中輸入“javascript:alert(“歡迎XX”)”，然后按enter鍵，則彈出對(duì)話框“歡迎XX”VB中MsgBox語(yǔ)句也可方便實(shí)現(xiàn)，在窗體的單擊事件中輸入如下代碼Private Sub Form_click()MsgBox ("歡迎XX")End Sub MsgBox內(nèi)容，類型，標(biāo)題，幫助文件名，幫助主題目錄號(hào)“內(nèi)容”參數(shù)，為必要參數(shù)，是一個(gè)字符串，其長(zhǎng)度不得超過(guò)1024字符。如果超過(guò)，多余的部分會(huì)被省略。字符串的內(nèi)容在由MsgBox語(yǔ)句彈出的對(duì)話框中顯示。當(dāng)字符串在

20、一行內(nèi)顯示不完時(shí)，將自動(dòng)換行。也可用“chr$(13)+chr$(10)”或“vbCrlf”進(jìn)行強(qiáng)制換行。例如Private Sub Form_click()MsgBox "歡迎XX" & Chr(13) + Chr(10) & "祝XX快樂(lè)每一天！"End Sub運(yùn)行后將彈出對(duì)話框如圖： “類型”參數(shù)，它是一個(gè)整數(shù)值或符號(hào)常量，用來(lái)控制在對(duì)話框內(nèi)顯示的按鈕、圖標(biāo)的種類及數(shù)量。該參數(shù)的值由4類數(shù)值相加產(chǎn)生，這4類數(shù)值或符號(hào)常量分別表示按鈕的類型、顯示圖標(biāo)的種類、活動(dòng)按鈕的位置以及強(qiáng)制返回。不過(guò)，對(duì)于MsgBox語(yǔ)句，按鈕的類型及

21、強(qiáng)制返回作用不大，但對(duì)于MsgBox函數(shù)卻很有用。在MsgBox函數(shù)中可通過(guò)按鈕對(duì)話框中某個(gè)按鈕而執(zhí)行指定的操作。MsgBox類型參數(shù)的取值：符號(hào)常量值作 用按鈕類型vbOKOnly0只顯示“確定”按鈕vbOKCancel1只顯示“確定”及“取消”按鈕vbAbortRetryIgnore2顯示“放棄”、“重試”和“忽略”按鈕vbYesNoCancel3顯示“是”、“否”和“取消”按鈕vbYesNo4顯示“是”和“否”按鈕vbRetryCancel5顯示“重試”和“取消”按鈕 圖標(biāo)樣式vbCritical16顯示系統(tǒng)叉號(hào)圖標(biāo)vbQuestion32顯示系統(tǒng)問(wèn)號(hào)圖標(biāo)vbExclamati

22、on48顯示系統(tǒng)嘆號(hào)圖標(biāo)vbInformation64顯示系統(tǒng)信息圖標(biāo) 默認(rèn)按鈕vbDefaultButton10第一個(gè)按鈕為默認(rèn)按鈕vbDefaultButton2256第二個(gè)按鈕為默認(rèn)按鈕vbDefaultButton3512第三個(gè)按鈕為默認(rèn)按鈕vbDefaultButton4768第四個(gè)按鈕為默認(rèn)按鈕 強(qiáng)制返回vbApplicationModal0應(yīng)用程序強(qiáng)制返回vbSystemModal4096系統(tǒng)強(qiáng)制返回 例如：Private Sub Form_click()MsgBox "歡迎XX" & Chr(13) + Chr(10)

23、& "祝XX快樂(lè)每一天！"，2End Sub運(yùn)行后將彈出對(duì)話框如圖：  例如：Private Sub Form_click()MsgBox "歡迎XX" & Chr(13) + Chr(10) & "祝XX快樂(lè)每一天！"，64End Sub運(yùn)行后將彈出對(duì)話框如圖：如果要同時(shí)定義按鈕類型和圖標(biāo)樣式，可直接將按鈕類型的取值和圖標(biāo)樣式的取值相加即可。例如：2+64Private Sub Form_click()MsgBox "歡迎XX" & Chr(13) + Chr(10) & "祝XX快樂(lè)每一天！"，66End Sub執(zhí)行結(jié)果如圖： Private Sub Form_click()MsgBox "歡迎XX" & Chr(13) + Chr(10) & "祝XX快樂(lè)每一天！"，66+512End Sub則會(huì)將默認(rèn)按鈕變?yōu)榈谌齻€(gè)按鈕，執(zhí)