Microsoft ExcelでVBAを使用して無効な値の防止エントリー
質問：
エリアA1：B6に無効な値が入力されないようにします。エラーが発生した場合は、それぞれのメッセージボックスが表示されます。
回答：
このワークブックモジュールに次のコードを挿入します。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim var As Variant
If IsEmpty(Target) Then Exit Sub
If Intersect(Target, Range("Calculating")) _
Is Nothing Then Exit Sub
var = Application.Sum(Range("Calculating"))
If IsError(var) Then
Beep
MsgBox "Please enter the correct value!"
Target.Value = ""
End If
End Sub