錦子老師

在這個單元中錦子老師要跟大家介紹如何在Excel VBA 中使用MsgBox函數來建立各式各樣的對話方塊，顯示文字訊息以及按鈕。

顯示文字訊息

故名思義Msgbox是一個將訊息變成對話方塊的函數，因此若將一般的文字訊息輸入到MsgBox函數第一個參數中，即可用對話方塊的方式顯示該訊息：

Sub Text()

MsgBox("顯示訊息成功")

End Sub

執行結果：

詢問問題

若要建立一個對話方塊來詢問使用者問題，並取得使用者所選擇的答案，可以在MsgBox函數第二個參數中指定要顯示的按鈕，然後從MsgBox的傳回值取得使用者的回答：

Sub Text()

Resp = MsgBox("請問是否為劉德華粉絲？",vbYesNo)

If Resp = vbYes Then

    MyString = "我是劉德華粉絲"

Else

    MyString = "我不是劉德華粉絲"

End If

Msgbox (MyString)

End Sub

執行結果

MsgBox可用的按鈕代碼常數與說明：

當使用者按下按鈕後，傳回的值與說明如下，透過這些值我們就可以判斷使用者選擇的答案。

設定圖示

MsgBox函數第二個參數亦可以用來設定圖示：

Sub Text()

Resp = MsgBox("顯示訊息成功！", vbInformation)

End Sub

執行結果

MsgBox可以使用的圖示代碼常數與說明如下：

如果需要同時設定按鈕與圖示，就將對應的代碼相加即可：

Sub Text()

Resp = MsgBox("請問是否為劉德華粉絲？",vbYesNo+ vbQuestion)

‘或是Resp = MsgBox("請問是否為劉德華粉絲？",4+32)

‘或是Resp = MsgBox("請問是否為劉德華粉絲？",36)

If Resp = vbYes Then

    MyString = "我是劉德華粉絲"

Else

    MyString = "我不是劉德華粉絲"

End If

Msgbox (MyString)

End Sub

設定標題

MsgBox函數第三個參數是用來設定對話方塊標題：

Sub Text()

Resp = MsgBox("請問是否為劉德華粉絲？",36, "粉絲團")

If Resp = vbYes Then

    MyString = "我是劉德華粉絲"

Else

    MyString = "我不是劉德華粉絲"

End If

Msgbox (MyString)

End Sub

以上就是今天主要學習的知識點，希望對大家有所幫助~~有什麼問題歡迎留言，我會儘量及時的給大家答覆~~

更多相關影片教學：請點我

更多相關文章：請點我