Anh chị nào cho em hỏi với: với loại hộp thoại này thì em biết rồi
Msg ("bạn có muốn làm tiếp hay không?", vbQuestion + vbYesNo, "Thông báo")
Còn nếu muốn hiện câu hỏi là: bạn có muốn lưu mới không hay bạn lưu sửa hay thoát thì cú pháp như thế nào ạ?
Nếu theo thế này thì có thể thay YesNoCancel thành MoiSuaThoat như ở dưới được không ạ?
(Truonghop = MsgBox("Ban co muon thoat khoi chuong trinh khong", vbYesNoCancel + vbQuestion, "Chuong trinh tinh lun"))
(Truonghop = MsgBox("Ban co muon thoat khoi chuong trinh khong", vbMoiSuaThoat+ vbQuestion, "Chuong trinh tinh lun"))
Em đọc trong tài liệu thì lại ko thấy nói đến vì nếu chọn kiểu yesnocancel thì với mỗi hình thức trả lời thì mình cóthể dùng if…elseif còn cái em hỏi có làm được không? Em chạy thử thì nó ra thế này: Bạn có muốn làm tiếp không thì chỉ có nút ok
Sub Nhangui()
Dim Truonghop As Integer
Truonghop = MsgBox("Ban co muon thoat khoi chuong trinh khong", vbMoiSuaThoat + vbQuestion, "Chuong trinh tinh lun")
If Truonghop = vbMoi Then
MsgBox "Ban vua chon nut Yes.", vbInformation
ElseIf Truonghop = vbSua Then
MsgBox "Ban vua chon nut No.", vbCritical
ElseIf Truonghop = vbThoat Then
MsgBox "Ban vua bam nut Cancel.", vbExclamation
End If
End Sub
Nguon: giaiphapexcel:http://www.giaiphapexcel.com/forum/...-về-Visual-Basic-for-Applications-(VBA)/page2
Msg ("bạn có muốn làm tiếp hay không?", vbQuestion + vbYesNo, "Thông báo")
Còn nếu muốn hiện câu hỏi là: bạn có muốn lưu mới không hay bạn lưu sửa hay thoát thì cú pháp như thế nào ạ?
Nếu theo thế này thì có thể thay YesNoCancel thành MoiSuaThoat như ở dưới được không ạ?
(Truonghop = MsgBox("Ban co muon thoat khoi chuong trinh khong", vbYesNoCancel + vbQuestion, "Chuong trinh tinh lun"))
(Truonghop = MsgBox("Ban co muon thoat khoi chuong trinh khong", vbMoiSuaThoat+ vbQuestion, "Chuong trinh tinh lun"))
Em đọc trong tài liệu thì lại ko thấy nói đến vì nếu chọn kiểu yesnocancel thì với mỗi hình thức trả lời thì mình cóthể dùng if…elseif còn cái em hỏi có làm được không? Em chạy thử thì nó ra thế này: Bạn có muốn làm tiếp không thì chỉ có nút ok
Sub Nhangui()
Dim Truonghop As Integer
Truonghop = MsgBox("Ban co muon thoat khoi chuong trinh khong", vbMoiSuaThoat + vbQuestion, "Chuong trinh tinh lun")
If Truonghop = vbMoi Then
MsgBox "Ban vua chon nut Yes.", vbInformation
ElseIf Truonghop = vbSua Then
MsgBox "Ban vua chon nut No.", vbCritical
ElseIf Truonghop = vbThoat Then
MsgBox "Ban vua bam nut Cancel.", vbExclamation
End If
End Sub
Nguon: giaiphapexcel:http://www.giaiphapexcel.com/forum/...-về-Visual-Basic-for-Applications-(VBA)/page2
Lần chỉnh sửa cuối: