VBA_Function_msgbox.doc

Excelvba中 MsgBox函數(shù)詳細說明與應(yīng)用MsgBox函數(shù)作用：在對話框中顯示消息，等待用戶單擊按鈕，并返回一 個Integer告訴用戶單擊哪一個按鈕。語法：MsgBox(prompt,buttons,title,helpfile,context)參數(shù)說明：MsgBox函數(shù)的語法具有以下幾個命名參數(shù)：Prompt-必需的。字 符串表達式，作為顯示在對話框中的消息。prompt的最大長度大約為1024個 字符，由所用字符的寬度決定。如果prompt的內(nèi)容超過一行，則可以在 每一行之間用回車符(Chr(13)、換行符(Chr(10)或 是回車與換行符的組合(Chr(13)&Chr(10)將 各行分隔開來。Buttons-可選的。 數(shù)值表達式是值的總和，指定顯示按鈕的數(shù)目及形式，使用的圖標樣式，缺省按鈕是什么以及消息框的強制回應(yīng)等。如果省略，則buttons的 缺省值為0。Title-可選的。在對 話框標題欄中顯示的字符串表達式。如果省略title，則將應(yīng)用程序名放在標題欄中。Helpfile-可選 的。字符串表達式，識別用來向?qū)υ捒蛱峁┥舷挛南嚓P(guān)幫助的幫助文件。如果提供了helpfile， 則也必須提供context。Context-可選的。 數(shù)值表達式，由幫助文件的作者指定給適當?shù)膸椭黝}的幫助上下文編號。如果提供了context， 則也必須提供helpfile。用于MsgBox函數(shù)中Button參數(shù)的常量常 量值說 明vbOKOnly0只 顯示“確定”按鈕VbOKCancel1顯 示“確定”和“取消”按鈕VbAbortRetryIgnore2顯示“終止”、“重試”和“忽略”按 鈕VbYesNoCancel3顯 示“是”、“否”和“取消”按鈕VbYesNo4顯 示“是”和“否”按鈕VbRetryCancel5顯 示“重試”和“取消”按鈕VbCritical16顯 示“關(guān)鍵信息”圖標VbQuestion32顯 示“警告詢問”圖標VbExclamation48顯 示“警告消息”圖標VbInformation64顯 示“通知消息”圖標vbDefaultButton10第一個按鈕是缺 省值(缺省設(shè)置)vbDefaultButton2256第二個按鈕是缺省值vbDefaultButton3512第三個按鈕是缺省值vbDefaultButton4768第四個按鈕是缺省值vbApplicationModal0應(yīng)用程序強制返回；應(yīng)用程序一直被掛起，直到用戶 對消息框作出響應(yīng)才繼續(xù)工作vbSystemModal4096系統(tǒng)強制返回； 全部應(yīng)用程序都被掛起，直到用戶對消息框作出響應(yīng)才繼續(xù)工作vbMsgBoxHelpButton16384將Help按鈕添加到消息框VbMsgBoxSetForeground65536指定消息框窗口作為前景窗口vbMsgBoxRight524288 文本為右對齊vbMsgBoxRtlReading1048576指定文本應(yīng)為在希伯來和阿拉伯語系統(tǒng)中的從右到左顯示說明：(1)第一組值(05)描述了消息框中顯示的按鈕的類型與數(shù)目；第二組值(16,32,48,64)描述了圖標的樣式；第三組值 (0,256,512,768)說明哪一個按鈕是缺省值；而第四組值(0,4096)則決定消息框的強制返回性。將這些數(shù)字相加以生成Buttons參數(shù) 值的時候，只能由每組值取用一個數(shù)字。(2)這些常數(shù)都是VisualBasicforApplications(VBA)指 定的。結(jié)果，可以在程序代碼中到處使用這些常數(shù)名稱，而不必使用實際數(shù)值。實際數(shù)值與常數(shù)名稱是等價的。返回值用于MsgBox函數(shù)返回值的常量常數(shù)值說 明vbOK1確 定vbCancel2取 消vbAbort3終 止vbRetry4重 試vbIgnore5忽 略vbYes6是vbNo7否(1)如果同時提供了Helpfile與Context參數(shù)，可以按F1鍵來 查看與Context相應(yīng)的幫助主題，Excel通常會在輸入框中自動添加一個幫助(Help)按鈕。(2)若在消息框中顯示“取消”按鈕，則按下ESC鍵與單擊“取消”按鈕效果相同。若消息框中有“幫助”按鈕，則提供相關(guān)的幫助信息。(3)如果要輸入多個參數(shù)并省略中間的某些參數(shù)，則必須在相應(yīng)位置加入逗號分界符。示例(1)(1)使用MsgBox函數(shù)，在具有“是”及“否”按鈕的對話框中顯示一條嚴重錯誤信息。示例中的缺省按鈕為 “否”，MsgBox函數(shù)的返回值視用戶按哪一個鈕而定。并假設(shè)DEMO.HLP為一幫助文件，其中有一個幫助主題代碼為1000。DimMsg,Style,Title,Help,Ctxt,Response,MyStringMsg=Doyouwanttocontinue? 定義消息文本Style=vbYesNo+vbCritical+vbDefaultButton2定 義按鈕Title=MsgBoxDemonstration定 義標題文本Help=DEMO.HLP定義幫助文件Ctxt=1000定義幫助主題Response=MsgBox(Msg,Style,Title,Help,Ctxt)IfResponse=vbYesThen用 戶按下“是”MyString=Yes完 成某操作Else用戶按下“否”MyString=No完 成某操作EndIf(2)只顯示某消息MsgBox“Hello!”(3)將消息框返回的結(jié)果賦值給變量Ans=MsgBox(“Continue?”,vbYesNo)IfMsgBox(“Continue?”,vbYesNo)vbYesThenExitSub(4)使用常量的組合，賦值組Config變量，并設(shè)置第二個按鈕為缺省按鈕Config=vbYesNo+vbQuestion+vbDefaultButton2(5)若要在消息中強制換行，可在文本中使用vbCrLf(或vbNewLine)常量，用&加空格與字符隔開。如MsgBox“Thisisthefirstline.”&vbNewLine&“Secondline.”(6)可以在消息框中使用vbTab常量插入一個制表符。下面的過程使用一個消息框來顯示55單元格區(qū)域中的所有值，用vbTab常量分隔列并使用 vbCrLf常量插入一個新行。注意在MsgBox函數(shù)最多只顯示1024個字符，因此限制了可顯示的單元格數(shù)。OptionExplicitSubShowRangeValue()DimMsgAsStringDimrAsInteger,cAsIntegerMsg=Forr=1To5Forc=1To5Msg=Msg&Cells(r,c)&vbTabNextcMsg=Msg&vbCrLfNextrMsgBoxMsgEndSub(7)在消息框語句中運用工作表函數(shù)以及設(shè)置顯示的數(shù)置格式，如下面語句所示：MsgBoxselectionhas&m&cells.&Chr(13)&thesumis:&Application.WorksheetFunctio