「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

Posted by arkgame