Bị lỗi font chữ trên windows 10

[vba_gpe]

Em chào mọi người ạ.
Hiện máy em cách đây mấy ngày đang dùng hàm chuyển đổi font chữ từ Unicode sang VNI (Source trên diễn đàn)

Function UNICODEtoVNI(Vnstr As String)
Dim c As String, i As Long
   For i = 1 To Len(Vnstr)
      c = Mid(Vnstr, i, 1)
      Select Case c
         Case ChrW$(97): c = "a"
         Case ChrW$(225): c = "a?"
         Case ChrW$(224): c = "a?"
         Case ChrW$(7843): c = "a?"
         Case ChrW$(227): c = "a?"
         Case ChrW$(7841): c = "a?"
         Case ChrW$(259): c = "a?"
         Case ChrW$(7855): c = "a?"
         Case ChrW$(7857): c = "a?"
         Case ChrW$(7859): c = "a?"
         Case ChrW$(7861): c = "a?"
         Case ChrW$(7863): c = "a?"
         Case ChrW$(226): c = "a?"
         Case ChrW$(7845): c = "a?"
         Case ChrW$(7847): c = "a?"
         Case ChrW$(7849): c = "a?"
         Case ChrW$(7851): c = "a?"
         Case ChrW$(7853): c = "a?"
         Case ChrW$(101): c = "e"
         Case ChrW$(233): c = "e?"
         Case ChrW$(232): c = "e?"
         Case ChrW$(7867): c = "e?"
         Case ChrW$(7869): c = "e?"
         Case ChrW$(7865): c = "e?"
         Case ChrW$(234): c = "e?"
         Case ChrW$(7871): c = "e?"
         Case ChrW$(7873): c = "e?"
         Case ChrW$(7875): c = "e?"
         Case ChrW$(7877): c = "e?"
         Case ChrW$(7879): c = "e?"
         Case ChrW$(111): c = "o"
         Case ChrW$(243): c = "o?"
         Case ChrW$(242): c = "o?"
         Case ChrW$(7887): c = "o?"
         Case ChrW$(245): c = "o?"
         Case ChrW$(7885): c = "o?"
         Case ChrW$(244): c = "o?"
         Case ChrW$(7889): c = "o?"
         Case ChrW$(7891): c = "o?"
         Case ChrW$(7893): c = "o?"
         Case ChrW$(7895): c = "o?"
         Case ChrW$(7897): c = "o?"
         Case ChrW$(417): c = "?"
         Case ChrW$(7899): c = "??"
         Case ChrW$(7901): c = "??"
         Case ChrW$(7903): c = "??"
         Case ChrW$(7905): c = "??"
         Case ChrW$(7907): c = "??"
         Case ChrW$(105): c = "i"
         Case ChrW$(237): c = "?"
         Case ChrW$(236): c = "?"
         Case ChrW$(7881): c = "?"
         Case ChrW$(297): c = "?"
         Case ChrW$(7883): c = "?"
         Case ChrW$(117): c = "u"
         Case ChrW$(250): c = "u?"
         Case ChrW$(249): c = "u?"
         Case ChrW$(7911): c = "u?"
         Case ChrW$(361): c = "u?"
         Case ChrW$(7909): c = "u?"
         Case ChrW$(432): c = "?"
         Case ChrW$(7913): c = "??"
         Case ChrW$(7915): c = "u?"
         Case ChrW$(7917): c = "??"
         Case ChrW$(7919): c = "??"
         Case ChrW$(7921): c = "??"
         Case ChrW$(121): c = "y"
         Case ChrW$(253): c = "y?"
         Case ChrW$(7923): c = "y?"
         Case ChrW$(7927): c = "y?"
         Case ChrW$(7929): c = "y?"
         Case ChrW$(7925): c = "?"
         Case ChrW$(273): c = "?"
         Case ChrW$(65): c = "A"
         Case ChrW$(193): c = "A?"
         Case ChrW$(192): c = "A?"
         Case ChrW$(7842): c = "A?"
         Case ChrW$(195): c = "A?"
         Case ChrW$(7840): c = "A?"
         Case ChrW$(258): c = "A?"
         Case ChrW$(7854): c = "A?"
         Case ChrW$(7856): c = "A?"
         Case ChrW$(7858): c = "A?"
         Case ChrW$(7860): c = "A?"
         Case ChrW$(7862): c = "A?"
         Case ChrW$(194): c = "A?"
         Case ChrW$(7844): c = "A?"
         Case ChrW$(7846): c = "A?"
         Case ChrW$(7848): c = "A?"
         Case ChrW$(7850): c = "A?"
         Case ChrW$(7852): c = "A?"
         Case ChrW$(69): c = "E"
         Case ChrW$(201): c = "E?"
         Case ChrW$(200): c = "E?"
         Case ChrW$(7866): c = "E?"
         Case ChrW$(7868): c = "E?"
         Case ChrW$(7864): c = "E?"
         Case ChrW$(202): c = "E?"
         Case ChrW$(7870): c = "E?"
         Case ChrW$(7872): c = "E?"
         Case ChrW$(7874): c = "E?"
         Case ChrW$(7876): c = "E?"
         Case ChrW$(7878): c = "E?"
         Case ChrW$(79): c = "O"
         Case ChrW$(211): c = "O?"
         Case ChrW$(210): c = "O?"
         Case ChrW$(7886): c = "O?"
         Case ChrW$(213): c = "O?"
         Case ChrW$(7884): c = "O?"
         Case ChrW$(212): c = "O?"
         Case ChrW$(7888): c = "O?"
         Case ChrW$(7890): c = "O?"
         Case ChrW$(7892): c = "O?"
         Case ChrW$(7894): c = "O?"
         Case ChrW$(7896): c = "O?"
         Case ChrW$(416): c = "?"
         Case ChrW$(7898): c = "??"
         Case ChrW$(7900): c = "??"
         Case ChrW$(7902): c = "??"
         Case ChrW$(7904): c = "??"
         Case ChrW$(7906): c = "??"
         Case ChrW$(73): c = "I"
         Case ChrW$(205): c = "?"
         Case ChrW$(204): c = "?"
         Case ChrW$(7880): c = "?"
         Case ChrW$(296): c = "?"
         Case ChrW$(7882): c = "?"
         Case ChrW$(85): c = "U"
         Case ChrW$(218): c = "U?"
         Case ChrW$(217): c = "U?"
         Case ChrW$(7910): c = "U?"
         Case ChrW$(360): c = "U?"
         Case ChrW$(7908): c = "U?"
         Case ChrW$(431): c = "?"
         Case ChrW$(7912): c = "??"
         Case ChrW$(7914): c = "??"
         Case ChrW$(7916): c = "??"
         Case ChrW$(7918): c = "??"
         Case ChrW$(7920): c = "??"
         Case ChrW$(89): c = "Y"
         Case ChrW$(221): c = "Y?"
         Case ChrW$(7922): c = "Y?"
         Case ChrW$(7926): c = "Y?"
         Case ChrW$(7928): c = "Y?"
         Case ChrW$(7924): c = "?"
         Case ChrW$(272): c = "?"
      End Select
      UNICODEtoVNI = UNICODEtoVNI + c
   Next i
End Function

*** Tuy nhiên, em không hiểu sao hôm nay chuyển nó toàn ra ký tự dấu hỏi.
- Em không cài thêm ứng dụng nào mới.
- Không cắm USB lạ.
Em thử debug thử thì thấy ví dụ như đoạn này:

MsgBox ("oä")

Em thử ở máy bình thường đã thử thì ra bình thường như hình này.

Còn ở máy em nó ra như vầy.

Em đã thử:
- Gỡ office 2016, cài lại Office 2016.
- Gỡ 2016 cài 2019.
- Copy folder Fonts trên máy ok đem qua máy em chép vào Font của hệ thống.

Tất cả các cách trên e đều thử rồi mà vẫn không tác dung.
Không biết lỗi gì ạ.
Máy em đang dung Windows 10, Office 32 bit.

Nếu ai gặp trường hợp này có thể chỉ em cách khắc phục với không ạ, em cảm ơn mọi người nhiều.

 

[PhanTuHuong]

Bạn nên xem font cài đặt trong Window, mà lạ 1 cái giờ ai dùng Vni với TCVN nữa???

 

[vba_gpe]

Bạn nên xem font cài đặt trong Window, mà lạ 1 cái giờ ai dùng Vni với TCVN nữa???

Dạ em cảm ơn anh.
Em chép font của máy được qua máy khác vẫn không được ạ.
Dạ chỗ này em có viết mấy cái tool nhỏ nhỏ cho công ty, các thông báo e viết trong code là ở dạng vni, sau đó chuyển qua Unicode để show ra ngoài thì đều lỗi hết ạ.

 

[PhanTuHuong]

Thường các ứng dụng trước kia viết trên nền 32bit, giờ Window 10 là 64bit dẫn đến 1 số lỗi như kiểu này. Tôi cài từ điển Lạc Việt trên Window 10 chữ hiển thị bé tý, may là không lỗi.

 

[vba_gpe]

Thường các ứng dụng trước kia viết trên nền 32bit, giờ Window 10 là 64bit dẫn đến 1 số lỗi như kiểu này. Tôi cài từ điển Lạc Việt trên Window 10 chữ hiển thị bé tý, may là không lỗi.

Dạ, giờ em nghĩ nếu cài windows lại chắc chắn là được. Tuy nhiên hiện em chưa tìm ra lý do cụ thể về trường hợp này nên em cũng đang chờ thêm thông tin từ mọi người có kinh nghiệm trên diễn đàn ạ.
Em cảm ơn anh nhìu.