질문 :

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