ShowMessageBox

' ShowMessageBox
' -----------------
' Macro Name: ShowMessageBox
' Description: カスタマイズ可能なメッセージボックスを表示する
' Parameters: なし
' Returns: なし
' Usage: メッセージと種類を選択肢から指定してメッセージボックスを表示
' -----------------

Sub ShowMessageBox()
    Dim msgText As String
    Dim msgType As String
    Dim iconType As VbMsgBoxStyle
    Dim result As VbMsgBoxResult

    On Error GoTo ErrorHandler

    msgText = InputBox("表示するメッセージを入力:", "メッセージボックス表示", " Hello, World! ")

    If msgText = "" Then
        Exit Sub
    End If

    msgType = InputBox("種類を選択:" & vbCrLf & _
                "1: 情報 (OKのみ)" & vbCrLf & _
                "2: 警告 (OKのみ)" & vbCrLf & _
                "3: エラー (OKのみ)" & vbCrLf & _
                "4: 確認 (はい/いいえ)" & vbCrLf & _
                "5: 詳細確認 (はい/いいえ/キャンセル)", "種類選択", "1")

    Select Case msgType
        Case "1": iconType = vbInformation
        Case "2": iconType = vbExclamation
        Case "3": iconType = vbCritical
        Case "4": iconType = vbYesNo + vbQuestion
        Case "5": iconType = vbYesNoCancel + vbQuestion
        Case Else
            MsgBox "無効な選択です。", vbExclamation
            Exit Sub
    End Select

    result = MsgBox(msgText, iconType, "カスタムメッセージ")

    Select Case result
        Case vbYes: MsgBox "「はい」が選択されました。", vbInformation
        Case vbNo: MsgBox "「いいえ」が選択されました。", vbInformation
        Case vbCancel: MsgBox "「キャンセル」が選択されました。", vbInformation
        Case vbOK: MsgBox "「OK」が選択されました。", vbInformation
    End Select
    Exit Sub

ErrorHandler:
    MsgBox "エラーが発生しました: " & Err.Description, vbCritical
End Sub