Câu hỏi:

Các mục nhập có giá trị không hợp lệ trong vùng A1: B6 phải được ngăn chặn, trong trường hợp có lỗi, một hộp thông báo tương ứng sẽ được hiển thị.

Trả lời:

Chèn mã sau vào mô-đun Sổ làm việc này.

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