Tiếng Việt trên MsgBox bị lỗi trên office 365

[moihocvba]

Chào anh chị GPE, em có đoạn mã giúp cho MsgBox hiển thị được tiếng Việt, nhưng trên Office 2010 thì nó hiển thị, còn em thử trên office 365 thì nó ko hiện gì. Anh chị có biết nó bị sao ko ạ?
Anh chị có office nào thử giúp em với.

Đây là msgbox cảnh báo (dấu chấm than):

Sub test_CanhBao()
   Application.ExecuteExcel4Macro ("ALERT(""" & Evaluate("msgThongBao") & """,3)")
End Sub

msgThongBao: là dòng thông báo em đã đặt name range trên sheet ạ !


Cũng theo cách này nhưng msgBox YesNo thì được cả trên office 2010 và 365.

Sub test_YesNo()
    If Application.ExecuteExcel4Macro("ALERT(""" & Evaluate("msgThongBao") & """,1)") Then
        
    End If
End Sub

Không biết em làm sai chỗ nào, mong anh chị giúp ạ!

 

[Maika8008]

Chào anh chị GPE, em có đoạn mã giúp cho MsgBox hiển thị được tiếng Việt, nhưng trên Office 2010 thì nó hiển thị, còn em thử trên office 365 thì nó ko hiện gì. Anh chị có biết nó bị sao ko ạ?
Anh chị có office nào thử giúp em với.

Đây là msgbox cảnh báo (dấu chấm than):

Sub test_CanhBao()
   Application.ExecuteExcel4Macro ("ALERT(""" & Evaluate("msgThongBao") & """,3)")
End Sub

msgThongBao: là dòng thông báo em đã đặt name range trên sheet ạ !


Cũng theo cách này nhưng msgBox YesNo thì được cả trên office 2010 và 365.

Sub test_YesNo()
    If Application.ExecuteExcel4Macro("ALERT(""" & Evaluate("msgThongBao") & """,1)") Then
       
    End If
End Sub

Không biết em làm sai chỗ nào, mong anh chị giúp ạ!

Tôi dùng Office 2013, cả hai đều hiển thị tốt.

 

[moihocvba]

Tôi dùng Office 2013, cả hai đều hiển thị tốt.

Vậy có thể do office 365 bạn nhỉ?

 

[Maika8008]

Vậy có thể do office 365 bạn nhỉ?

Chờ ai đó dùng 365 báo kết quả xem.

À tôi có câu lệnh này dùng tốt:

1. Nếu chỉ đơn thuần hiện thông báo thì:
Application.Assistant.DoAlert("Thông báo!", Range("msgThongBao"), vbOK, 4, 0, 0, 0)

2. Nếu muốn trả về kết quả để sử dụng cho giải thuật thì dùng cách:
KetQua = Application.Assistant.DoAlert("Thông báo!", Range("msgThongBao"), vbYesNo, 4, 0, 0, 0)
Tùy người dùng bấm chọn Yes nay No thì kết quả trả về sẽ là: Yes = 6, No = 7

 

[moihocvba]

Chờ ai đó dùng 365 báo kết quả xem.

À tôi có câu lệnh này dùng tốt:

1. Nếu chỉ đơn thuần hiện thông báo thì:
Application.Assistant.DoAlert("Thông báo!", Range("msgThongBao"), vbOK, 4, 0, 0, 0)

2. Nếu muốn trả về kết quả để sử dụng cho giải thuật thì dùng cách:
KetQua = Application.Assistant.DoAlert("Thông báo!", Range("msgThongBao"), vbYesNo, 4, 0, 0, 0)
Tùy người dùng bấm chọn Yes nay No thì kết quả trả về sẽ là: Yes = 6, No = 7

Cám ơn bạn, lại học thêm một thủ thuật nữa! Vui vui, hihi

 

[Maika8008]

Cám ơn bạn, lại học thêm một thủ thuật nữa! Vui vui, hihi

Đính chính chút: trường hợp 1 thì phải viết không có dấu ngoặc đơn như thế này Application.Assistant.DoAlert "Thông báo!", Range("msgThongBao"), vbOK, 4, 0, 0, 0

 

[moihocvba]

Anh chị ơi, ai có office phiên bản khác demo giúp em xem có bị lỗi không ạ!
Em cảm ơn!

 

[Bluestar092011]

Anh chị ơi, ai có office phiên bản khác demo giúp em xem có bị lỗi không ạ!
Em cảm ơn!

Windows 10 64 bit và Offce 2016 32bit chạy tốt.