Tạo Thông Báo Xác Nhận Khi Xóa Dữ Liệu Trong Excel

Bước 1: Tạo một nút xóa bằng cách sử dụng shapes để vẽ trước

Bước 2: Tiếp theo tạo một modules mới và dán đoạn code bên dưới vào.

Sub Xoa()

Dim ThongBao As Long

ThongBao = MsgBox (“Ban Co Muon Xoa Lua Chon”, vbOKCancel + vbInformation + vbDefaultButton2, “Thong Bao”)

Select Case ThongBao

Case vbOK

Sheet1.Range(“A2:A4”).ClearContents

Case vbCancel

Exit Sub

End Select

End Sub

Bước 3: Sau khi nhập code thì bạn tắt cửa sổ VBA đi thì chúng ta sẽ gán Macro cho đối tượng Shapes bằng cách bấm chuột phải vào Shapes -> Chọn Assign Macro

Bước 4: Tại hộp thoại Assign Macro bạn chọn tên Macro đã tạo sau đó bấm OK và click chuột ra ngoài.

Bước 5: Tiến hành bấm nút Xóa sẽ có hai lựa chọn xuất hiện tại hộp thoại thông báo, khi chọn OK thì sẽ tiến hành xóa dữ liệu, còn chọn CANCEL thì sẽ không làm gì cả.

Vậy là chúng ta đã tạo hộp thoại cảnh báo trước khi xóa dữ liệu rồi đấy. Chỉ với vài dòng lệnh cơ bản và dễ dàng phải không nào 🙂

TTV chúc bạn thành công nhé!