[[20230313124855]]　『マクロのメッセージボックス』（かよ）　ページの最後に飛ぶ

『マクロのメッセージボックス』（かよ）

マクロをマクロの記録にて作成しました。
そこでそのマクロを実行する前にメッセージボックスを表示したいです。
G2セルが空白の場合は”G2セルを入力してください”と表示させたいです。
G2セルが入力されている場合、次にG3セルを参照し
G3セルが空白の場合は”G3セルを入力してください”と表示させたいです。
G2、G3セルが入力されている場合、
A2セルに入力されている文字+”を実行しますか？”と表示させ
はいいえを選びたいです。
よろしくお願いいたします。

＜使用 Excel：Excel2010、使用 OS：Windows10 ＞

 Sub test()
     If Range("G2") = "" Then
         MsgBox "G2セルを入力してください"
     ElseIf Range("G3") = "" Then
         MsgBox "G3セルを入力してください"
     Else
         If MsgBox(Range("A2") & "を実行しますか？", vbYesNo) = vbNo Then Exit Sub
     End If
 End Sub
（フォーキー） 2023/03/13(月) 13:15:46

 Select Caseという手も！

    Sub 入力チェック()
        Dim errmsg As String
        Select Case True
            Case Range("G2") = ""
                errmsg = "G2セルを入力してください"
            Case Range("G3") = ""
                errmsg = "G3セルを入力してください"
            Case MsgBox(Range("A1") & "を実行しますか？", vbYesNo) = vbYes
                errmsg = ""
            Case Else
                errmsg = "キャンセルされました"
        End Select
        If errmsg <> "" Then
            MsgBox errmsg
            Exit Sub
        End If
        '実際の処理コード
        '～～～
    End Sub
（稲葉） 2023/03/13(月) 14:11:03

inputboxを使うという方法もあります。

https://excel-ubara.com/excelvba1/EXCELVBA324.html
（MK） 2023/03/13(月) 16:30:45

補足です。
⬆️の私のレスは、条件分岐とinputboxを
組み合わせる、という積もりで書きました。
（MK） 2023/03/13(月) 16:54:25

コメント返信：

[ 一覧(最新更新順) ]

[[20230313124855]] 『マクロのメッセージボックス』（かよ） ページの最後に飛ぶ

[[20230313124855]]　『マクロのメッセージボックス』（かよ）　ページの最後に飛ぶ