Ngăn chặn việc nhập các giá trị không hợp lệ bằng VBA trong Microsoft Excel
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