「Excel VBA」メッセージボックスのサンプル

2014年6月25日2021年7月27日

1.中止、再試行、無視ボタン

Sub funcA()
    Dim val As Integer
    val = MsgBox("hello", vbAbortRetryIgnore + vbInformation)
    Debug.Print val 
End Sub

2.informationのアイコン

Sub funcA()
      MsgBox "hello", vbInformation
End Sub

3.はてなのアイコン

Sub funcA()
      MsgBox "hello", vbQuestion
End Sub

4.ばつ印のアイコン

Sub funcA()
      MsgBox "hello", vbCritical
End Sub