教程|VBA訊息框知多少

教程|VBA訊息框知多少

01

寫在前面

MsgBox函式顯示一個訊息框,並等待使用者點選一個按鈕,然後根據使用者點選的按鈕執行相關的操作。

可以說,訊息框是與操作者互動的最重要的工具,用好訊息框不僅能夠使操作更簡單,還會減少錯誤的發生。

02

語法

MsgBox(prompt[,buttons][,title][,helpfile,context])

prompt - 必需的引數。在對話方塊中顯示為訊息的字串。提示的最大長度大約為

1024

個字元。如果訊息擴充套件為多行,則可以使用每行之間的回車符(

Chr(13)

)或換行符(

Chr(10)

)來分隔行。

buttons - 可選引數。一個數字表達式,指定要顯示的按鈕的型別,要使用的圖示樣式,預設按鈕的標識以及訊息框的形式。如果留空,則按鈕的預設值為。

title - 可選引數。顯示在對話方塊的標題欄中的字串表示式。如果標題留空,應用程式名稱將被放置在標題欄中。

helpfile - 可選引數。一個字串表示式,標識用於為對話方塊提供上下文相關幫助的幫助檔案。

Context - 可選引數。一個數字表達式,用於標識由幫助作者分配給相應幫助主題的幫助上下文編號。如果提供上下文,則還必須提供

helpfile

03

Buttons引數詳解

Buttons 引數可以使用以下任何值 -

0 vbOKOnly - 僅顯示“確定” 按鈕。

1 vbOKCancel - 顯示“確定” 和“取消” 按鈕。

2 vbAbortRetryIgnore - 顯示“中止”,“重試”和“忽略” 按鈕。

3 vbYesNoCancel - 顯示“是”,“否”和“取消” 按鈕。

4 vbYesNo - 顯示“是”和“否”按鈕。

5 vbRetryCancel - 顯示“重試”和“取消”按鈕。

16 vbCritical - 顯示嚴重訊息圖示。

32 vbQuestion - 顯示警告查詢圖示。

48 vbExclamation - 顯示警告訊息圖示。

64 vbInformation - 顯示資訊訊息圖示。

0 vbDefaultButton1 - 第一個按鈕是預設的。

256 vbDefaultButton2 - 第二個按鈕是預設的。

512 vbDefaultButton3 - 第三個按鈕是預設的。

768 vbDefaultButton4 - 第四個按鈕是預設的。

0 vbApplicationModal 應用程式模式 - 當前的應用程式將不會工作,直到使用者響應訊息框。

4096 vbSystemModal 系統模式 - 所有的應用程式將不會工作,直到使用者響應訊息框。

上述值在邏輯上分為四組:第一組(至

5

)指示要在訊息框中顯示的按鈕。第二組(

16

32

48

64

)描述要顯示的圖示的樣式,第三組(,

256

512

768

)指示哪個按鈕必須是預設的,第四組(,

4096

)確定訊息框的形式。

04

返回值

MsgBox

函式可以返回以下值之一,可用於標識使用者在訊息框中單擊的按鈕。

vbOK - 確定 按鈕被點選。

vbCancel - 取消 按鈕被點選。

vbAbort - 中止 按鈕被點選。

vbIgnore - 忽略 按鈕被點選。

vbYes - 是 按鈕被點選。

vbNo - 否 按鈕被點選。

05

示例

Function MessageBoxDemo() ‘Message Box with just prompt message MsgBox(“歡迎您~”) ’Message Box with title, yes no and cancel Butttons result = MsgBox(“你喜歡藍色嗎?”, 3, “選擇一個選項”) ‘ Assume that you press No Button MsgBox (“返回 result 的值是:” &result) End Function

執行結果:

教程|VBA訊息框知多少

有興趣的朋友可以設定不同的引數看看效果,靈活應用到你的VBA程式中。

TAG: 按鈕MsgBox點選圖示顯示