Gửi bởi
mayan
Mình cũng chỉ thích dùng Unicode dựng sẵn cho tiện, nhưng khi gọi vào MsgBox toàn bị lỗi font ( kiểu gõ telex).
Trong file gửi kèm đây mình dùng Msgbox hiển thị 3 câu ở 3 ô khác nhau thì chỉ có câu gõ bằng Unicode tổ hợp là không bị lỗi font. Mình không hiểu nguyên nhân tại sao, bạn xem qua rồi giải thích giúp với (sorry, gọi là "bạn" vì chưa biết tuổi [IMG]images/smilies/a32.gif[/IMG] )
Hiển thị tiếng Việt ư? Quá đơn giản!
Mã:
Sub Test()
Dim MyMsg As Long
Dim MsgTitle As String, MsgText As String
MsgTitle = Sheet1.Range("B1").Value & vbLf & Sheet1.Range("B2").Value & vbLf
MsgText = Sheet1.Range("B3").Value & vbLf & vbLf & Sheet1.Range("B4").Value & vbLf
MyMsg = Application.Assistant.DoAlert(MsgTitle, MsgText, msoAlertButtonYesNo, _
msoAlertIconQuery, msoAlertDefaultFirst, msoAlertCancelDefault, False)
End Sub