Các mẫu Msgbox trong VBA Excel

1. I. Các mẫu MsgBox trong VBA Excel
   • MsgBox icon cung cấp thông tin
   • MsgBox icon cảnh báo
   • MsgBox icon lỗi
   • MsgBox icon câu hỏi
   • MsgBox Yes No
   • MsgBox OK Cancel
   • MsgBox mặc định
2. II. Các icon trong MsgBox
   • vbInformation
   • vbExclamation
   • vbCritical
   • vbQuestion
3. III. Cú pháp tổng quát Msgbox
4. IV. Ứng dụng thực tế Msgbox như thế nào với Excel
   • Thông báo sau khi hoàn thành công việc
   • Cảnh báo khi thiếu dữ liệu
   • Xác nhận trước khi xóa dữ liệu
   • Thông báo khi có lỗi
   • Hỏi người dùng có muốn tiếp tục không
   • Hiển thị kết quả tính toán
   • Dùng để kiểm tra giá trị biến (debug)

I. Các mẫu MsgBox trong VBA Excel

1. MsgBox icon cung cấp thông tin

 MsgBox "Du lieu da duoc luu thanh cong!", vbInformation, "Thong bao" 

2. MsgBox icon cảnh báo

 MsgBox "Ban chua nhap du lieu!", vbExclamation, "Canh bao" 

3. MsgBox icon lỗi

 MsgBox "Loi ket noi co so du lieu!", vbCritical, "Loi" 

4. MsgBox icon câu hỏi

 MsgBox "Ban co muon xoa du lieu khong?", vbQuestion, "Xac nhan" 

5. MsgBox Yes No

 MsgBox("Ban co muon tiep tuc khong?", vbYesNo + vbQuestion, "Xac nhan") 

6. MsgBox OK Cancel

 MsgBox "Ban co chac chan muon thoat?", vbOKCancel + vbQuestion, "Thoat chuong trinh" 

7. MsgBox mặc định

 MsgBox "Chuong trinh da hoan thanh!" 

II. Các icon trong MsgBox

vbInformation

Hiển thị biểu tượng chữ i màu xanh. Dùng để thông báo thông tin cho người dùng khi chương trình hoàn thành hoặc cần hiển thị thông tin.

vbExclamation

Hiển thị biểu tượng dấu chấm than. Dùng để cảnh báo người dùng khi dữ liệu chưa hợp lệ hoặc thiếu thông tin.

vbCritical

Hiển thị biểu tượng dấu X màu đỏ. Dùng để báo lỗi nghiêm trọng trong chương trình.

vbQuestion

Hiển thị biểu tượng dấu hỏi. Dùng để hỏi người dùng trước khi thực hiện một hành động quan trọng.

III. Cú pháp tổng quát Msgbox

 MsgBox "Noi dung", Buttons + Icon, "Tieu de" 

Ví dụ:

 MsgBox "Ban co muon luu khong?", vbYesNo + vbQuestion, "Luu du lieu" 

IV. Ứng dụng thực tế Msgbox như thế nào với Excel

1. Thông báo sau khi hoàn thành công việc

Được dùng khi macro đã chạy xong.

 MsgBox "Da nhap du lieu thanh cong!", vbInformation, "Thong bao" 

2. Cảnh báo khi thiếu dữ liệu

Kiểm tra người dùng đã nhập dữ liệu hay chưa.

If Range("A1") = "" Then     

  MsgBox "Ban chua nhap ten!", vbExclamation, "Canh bao" 

End If 

3. Xác nhận trước khi xóa dữ liệu

Tránh xóa nhầm dữ liệu.

Dim kq As Integer

kq = MsgBox("Ban co chac muon xoa khong?", vbYesNo + vbQuestion, "Xac nhan")

If kq = vbYes Then

 Rows(2).Delete

End If 

4. Thông báo khi có lỗi

 MsgBox "Co loi xay ra khi xu ly du lieu!", vbCritical, "Loi" 

5. Hỏi người dùng có muốn tiếp tục không

If MsgBox("Ban co muon tiep tuc khong?", vbYesNo + vbQuestion) = vbNo Then

  Exit Sub

End If 

6. Hiển thị kết quả tính toán

Dim tong As Integer

tong = 5 + 7 

MsgBox "Tong la: " & tong 

7. Dùng để kiểm tra giá trị biến (debug)

Dim a As Integer

a = 10

MsgBox a 

Tìm kiếm: