エクセルでセルが変更されたらメッセージボックス表示するマクロ

質問

あるセル範囲、たとえばA1:B10の範囲に0以外の数字が入力されたらメッセージボックスで
「0以外の数字が入力されました。このまま続けますか？（はい）（いいえ）」
と表示させるマクロを作りたいのですが、どうすれば良いでしょうか。
（いいえ）が選択されたらそのセルへの入力はキャンセルさせたいのですが。

過去ログなどをみてもいまひとつやり方がわからないのでお願いします。

回答No.1

merlionXX · ベストアンサー

１．シートのタブを右クリックし、コードの表示を選択
２．出てきたVBエディター（白い画面）に下記をコピペ

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1: B10")) Is Nothing Then Exit Sub
If Target.Value = 0 Then Exit Sub
myYN = MsgBox("0以外の数字が入力されました。 " & Chr(10) & _
"このまま続けますか？", vbYesNo + vbQuestion)
If myYN = vbNo Then
With Application
.EnableEvents = False
.Undo
.EnableEvents = True
End With
End If
End Sub

３．AltキーとF11キーを一緒に押してワークシートへもどります。

一丁あがり～。

お礼

すばやい回答ありがとうございます。
この通りやったらできました☆彡
助かりました＾＾