Nhờ sửa code ChrW () (2 người xem)

[le_vis]

Nhờ các bạn xem File đính kèm và sửa giúp tại sao thử ngoài File này :

Ka thực hiện

Cho kết quả ChrW () = "Ka th" & ChrW(7921) & "c hi" & ChrW(7879) & "n"

Nhưng khi chép đoạn mã "Ka th" & ChrW(7921) & "c hi" & ChrW(7879) & "n" vào MsgBox

thì nó cho kế quả = Ka th?c hi?n
Trân trọng cảm ơn !

 

[ongke0711]

Nhờ các bạn xem File đính kèm và sửa giúp tại sao thử ngoài File này :

Ka thực hiện

Cho kết quả ChrW () = "Ka th" & ChrW(7921) & "c hi" & ChrW(7879) & "n"

Nhưng khi chép đoạn mã "Ka th" & ChrW(7921) & "c hi" & ChrW(7879) & "n" vào MsgBox

thì nó cho kế quả = Ka th?c hi?n
Trân trọng cảm ơn !

Bạn phải dùng hàm Msgbox UDF (MsgboxUni) để đọc font unicode chứ. Hàm này trên diễn đàn có nhiều bài.

Sub test()
    If Sheet1.Range("E3").Value = "Ka th" & ChrW(7921) & "c hi" & ChrW(7879) & "n" Then MsgBox "TRUE"
    MsgBoxUni "Ka th" & ChrW(7921) & "c hi" & ChrW(7879) & "n"
End Sub

 

[le_vis]

Xin cảm ơn ongke0711 nhiều nhiều