(VBA-Excel) – Hiển thị các thông báo tiếng Việt

Để hiển thị được Chữ Việt trong các thông báo của VBA bạn thực hiện theo cách sau đây:
B1. Mở file Word mới, bật chức năng Record Macro của MS Word.

B2. Gõ nội dung chữ Việt cần dùng để đưa vào thông báo của VBA.
Vd: Xin chào các bạn Hãy làm quen với VBA nhé!

B3. Vào cửa sổ VBA của Word >> Modunle >> New macro, copy đoạn thông báo chữ Việt rồi vào cửa sổ VBA của Excel sử dụng thông báo sau:

(Bạn có thể thử trước ngay trong Modunle của Word cũng được)

Application.Assistant.DoAlert “Thông báo”, “Xin chào và h” & ChrW(7865) & “n g” & ChrW(7863) & “p l” & ChrW(7841) & “i!”, 0, 4, 0, 0, 0

Chú ý: Mặc định tham số sau cùng trong lệnh Application…. là: 0, 4, 0, 0, 0

Note: Các bạn có thể tạo sẵn một danh sách các thông báo tiếng Việt để sau này sử dụng đỡ phải làm lại :))

Sub mrDao_TV()
    Dim tb1, tb2, tb3, tb4 As String
    tb1 = ChrW(272) & "ã th" & ChrW(7921) & "c hi" & ChrW( _
        7879) & "n xong!"
    tb2 = "Xin c" & ChrW(7843) & "m " & ChrW(417) & "n!"
    tb3 = "Xin ch" & ChrW(7901) & " trong giây lát!"
    tb4 = "N" & ChrW(7871) & "u có v" & ChrW(432) & ChrW( _
        7899) & "ng m" & ChrW(7855) & "c hãy liên h" & ChrW(7879) & " v" & ChrW( _
        7899) & "i tôi ngoccs.edu.vn"
    Application.Assistant.DoAlert "Thông báo", tb1 & Chr(10) & tb2 & Chr(10) & tb3 & Chr(10) & tb4, 0, 4, 0, 0, 0
End Sub