Tạo cảnh báo khi thay đổi dòng

[lehuong]

Tôi đã tạo cảnh báo khi thay đổi dữ liệu trong sheet, tuy nhiên khi điền vào ô trống vẫn hiện cảnh báo. Vậy có cách nào tắt đi điền vào ô trống không
Tôi xin cảm ơn

Private Sub Worksheet_Change(ByVal Target As Range)
    If MsgBox("Du lieu o " & Target.Address & "da thay doi" & Chr(13) & _
    "Co  muon luu lai thay doi khong ?", vbQuestion + vbYesNo) = vbNo Then
        With Application
            .EnableEvents = False
            .Undo
            .EnableEvents = True
        End With
    End If
End Sub

 

[tuhocvba]

Bạn lưu ý phải sử dụng thẻ Code khi viết code trên forum. Xin xem mục 4 trong

Bạn cần đăng nhập để thấy link

.
Đối với sự kiện select change thì ngay khi bạn click chuột lên cells, sự kiện này đã được gọi. Muốn sự kiện này không chạy nếu cells bạn click lên là cells rỗng thì bạn thêm điều kiện thoát chương trình như sau-chú ý dòng code thứ 2 :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value = "" then Exit Sub
    If MsgBox("Du lieu o " & Target.Address & "da thay doi" & Chr(13) & _
    "Co  muon luu lai thay doi khong ?", vbQuestion + vbYesNo) = vbNo Then
        With Application
            .EnableEvents = False
            .Undo
            .EnableEvents = True
        End With
    End If
End Sub