Cần các cao nhân chỉ giúp hiển thị tiếng việt msgbox (1 người xem)

tuanserviceabc đã viết:

Các cao nhân giúp mình chỗ này với, mình thay đổi nhiều cách rồi mà không hiển thị hết được tiếng việt
traLoi = MsgBox( _
"Phi" & ChrW(7871) & "u thanh to" & ChrW(225) & "n n" & ChrW(224) & "y c" & ChrW(243) & _
" d" & ChrW(249) & "ng " & ChrW(273) & ChrW(7875) & " ho" & ChrW(224) & "n " & ChrW(7913) & "ng cho phi" & ChrW(7871) & _
"u t" & ChrW(7841) & "m " & ChrW(7913) & "ng kh" & ChrW(244) & "ng?" & vbCrLf & _
"YES = C" & ChrW(243) & " ho" & ChrW(224) & "n " & ChrW(7913) & "ng" & vbCrLf & _
"NO = Thanh to" & ChrW(225) & "n th" & ChrW(432) & ChrW(7901) & "ng" & vbCrLf & _
"CANCEL = H" & ChrW(7911) & "y thao t" & ChrW(225) & "c", _
vbYesNoCancel + vbQuestion, _
"Li" & ChrW(234) & "n k" & ChrW(7871) & "t ho" & ChrW(224) & "n " & ChrW(7913) & "ng")
và
ma = InputBox( _
"Nh" & ChrW(7853) & "p M" & ChrW(195) & " PHI" & ChrW(7870) & "U T" & ChrW(7840) & "M " & ChrW(7912) & "NG c" & ChrW(7847) & _
"n ho" & ChrW(224) & "n " & ChrW(7913) & "ng." & vbCrLf & vbCrLf & _
"Danh s" & ChrW(225) & "ch phi" & ChrW(7871) & "u ch" & ChrW(432) & "a ho" & ChrW(224) & "n " & ChrW(7913) & "ng:" & vbCrLf & _
ds & vbCrLf & _
"V" & ChrW(237) & " d" & ChrW(7909) & ": TU0001", _
"Ch" & ChrW(7885) & "n m" & ChrW(227) & " t" & ChrW(7841) & "m " & ChrW(7913) & "ng", maMacDinh)

ma = Trim(ma)

mình sữa tới lui nhiều kiểu rồi mà sao vẫn không ra được.

Nhấp chuột vào đây để mở rộng...

tuanserviceabc đã viết:

Các cao nhân giúp mình chỗ này với, mình thay đổi nhiều cách rồi mà không hiển thị hết được tiếng việt
traLoi = MsgBox( _
"Phi" & ChrW(7871) & "u thanh to" & ChrW(225) & "n n" & ChrW(224) & "y c" & ChrW(243) & _
" d" & ChrW(249) & "ng " & ChrW(273) & ChrW(7875) & " ho" & ChrW(224) & "n " & ChrW(7913) & "ng cho phi" & ChrW(7871) & _
"u t" & ChrW(7841) & "m " & ChrW(7913) & "ng kh" & ChrW(244) & "ng?" & vbCrLf & _
"YES = C" & ChrW(243) & " ho" & ChrW(224) & "n " & ChrW(7913) & "ng" & vbCrLf & _
"NO = Thanh to" & ChrW(225) & "n th" & ChrW(432) & ChrW(7901) & "ng" & vbCrLf & _
"CANCEL = H" & ChrW(7911) & "y thao t" & ChrW(225) & "c", _
vbYesNoCancel + vbQuestion, _
"Li" & ChrW(234) & "n k" & ChrW(7871) & "t ho" & ChrW(224) & "n " & ChrW(7913) & "ng")
và
ma = InputBox( _
"Nh" & ChrW(7853) & "p M" & ChrW(195) & " PHI" & ChrW(7870) & "U T" & ChrW(7840) & "M " & ChrW(7912) & "NG c" & ChrW(7847) & _
"n ho" & ChrW(224) & "n " & ChrW(7913) & "ng." & vbCrLf & vbCrLf & _
"Danh s" & ChrW(225) & "ch phi" & ChrW(7871) & "u ch" & ChrW(432) & "a ho" & ChrW(224) & "n " & ChrW(7913) & "ng:" & vbCrLf & _
ds & vbCrLf & _
"V" & ChrW(237) & " d" & ChrW(7909) & ": TU0001", _
"Ch" & ChrW(7885) & "n m" & ChrW(227) & " t" & ChrW(7841) & "m " & ChrW(7913) & "ng", maMacDinh)

ma = Trim(ma)

mình sữa tới lui nhiều kiểu rồi mà sao vẫn không ra được.

Nhấp chuột vào đây để mở rộng...

Maika8008 đã viết:

Dùng cái này đi bạn, nó hiển thị tiếng Việt được:
traloi = Application.Assistant.DoAlert("Thông báo!", msg, msoAlertButtonYesNoCancel, 4, 0, 0, 0)

Trong đó, msg là biến chuỗi chứa thông điệp bằng tiếng Việt như bạn đã viết trong bài.

Nhấp chuột vào đây để mở rộng...