Cho em hỏi về hộp thoại

[namkpac]

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

 

[VMH0307]

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

chương trình đâu có hiều vbMoiSuaThoat là gì đâu.
Nếu bạn muốn việt hóa thì phải tự xây dựng 1 hộp thoại của riêng bạn thôi

 

[namkpac]

chương trình đâu có hiều vbMoiSuaThoat là gì đâu.
Nếu bạn muốn việt hóa thì phải tự xây dựng 1 hộp thoại của riêng bạn thôi

Giờ mình việt hoá như thế nào ạ? có ai biết giúp em với

 

[befaint]

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

Cái bạn đang hỏi là phần buttons của MsgBox .

Buttons của MsgBox gồm:
vbOKOnly
vbOKCancel
vbAbortRetryIgnore
vbYesNoCancel
vbYesNo
vbRetryCancel
vbCritical
vbQuestion
vbExclamation
vbInformation
vbDefaultButton1
vbDefaultButton2
vbDefaultButton3
vbDefaultButton4
vbApplicationModal
vbSystemModal
vbMsgBoxHelpButton
VbMsgBoxSetForeground
vbMsgBoxRight
vbMsgBoxRtlReading

Nếu muốn sửa vbYesNoCancel thành vbMoiSuaThoat thì chắc phải viết lại function Msgbox.
Tôi chỉ giải thích như trên thôi, chứ cái này thì tôi không biết làm.
p/s: Yes / No / Cancel cũng được chứ. Tôi thấy hay hơn chọn phương án chữ không dấu "MoiSuaThoat".

 

[Kiều Mạnh]

Giờ mình việt hoá như thế nào ạ? có ai biết giúp em với

Vào link sau tham khảo
http://www.giaiphapexcel.com/forum/...lForOffice-Bộ-công-cụ-điều-khiển-Office-Excel
Link2
http://www.giaiphapexcel.com/forum/...a-bằng-Unicode-tuyệt-đẹp!&p=416372#post416372

 

[ndu96081631]

Giờ mình việt hoá như thế nào ạ? có ai biết giúp em với

Đơn giản nhất người ta vẽ lên cái UserForm ấy. Đừng nói là Việt hóa, muốn tô màu, chữ đậm... vân vân gì mà chả được. Lại đơn giản nữa

 

[Kiều Mạnh]

Đơn giản nhất người ta vẽ lên cái UserForm ấy. Đừng nói là Việt hóa, muốn tô màu, chữ đậm... vân vân gì mà chả được. Lại đơn giản nữa

Ý Anh là dùng cái Form làm gỉa cái Msgbox Xong trên đó muốn vẻ gì thì vẻ....quả là gợi ý hay...

 

[Kiều Mạnh]

Giờ mình việt hoá như thế nào ạ? có ai biết giúp em với

Vào Link sau tải về coi thử nha...... cái InputBox Tiếng Viết đầy đủ hết hổ trợ cả Password ******
http://www.mediafire.com/download/9bj5j7k4gcjz3g5/InputBox_Tieng_Viet.rar

Tốt nhất làm theo Gợi ý bài #6 là hay nhất muốn vẻ gì chả được..........

 

[doveandrose]

nhà bác học kieu manh ơi cái này dùng làm gì vậy ?

 

[Kiều Mạnh]

nhà bác học kieu manh ơi cái này dùng làm gì vậy ?

Thì người ta thích cái Msgbox Tiếng viết thì làm chơi cho họ vậy thôi mà....

 

[ndu96081631]

Ý Anh là dùng cái Form làm gỉa cái Msgbox Xong trên đó muốn vẻ gì thì vẻ....quả là gợi ý hay...

Đúng vậy! Dùng UserForm đơn giản nhất, khỏi code rườm rà.. nhất là đụng đến API sẽ có máy chạy được, máy không.
Ngoài UserForm ra, có thể dùng DialogSheet, cũng đơn giản không kém

 

[Kiều Mạnh]

Đúng vậy! Dùng UserForm đơn giản nhất, khỏi code rườm rà.. nhất là đụng đến API sẽ có máy chạy được, máy không.
Ngoài UserForm ra, có thể dùng DialogSheet, cũng đơn giản không kém

cách đây khoãng gần một năm Em có tải một File của Anh về coi thấy có cái Hepl hay mà hồi đó em tìm hoài không thấy nó nằm ở đâu.... giờ thì mới thấy ...Áp dụng cái đó mới hay ....
Link File
http://www.giaiphapexcel.com/forum/showthread.php?84992-Code-save-as-sheet-hiện-hành/page2