Hướng dẫn chuyển mã VNI sang Unicode trong Excel

Sẽ không ít lần bạn gặp phải trường hợp nhận một file từ người gửi hay thực hiện tải trên mạng về và file đó bị lỗi font chữ. Nguyên nhân dẫn đến vấn đề này đó chính là do file đó đang sử dụng một bộ gõ (bảng mã) khác, hay font chữ khác mà trong máy tính của bạn không có sẵn. Vậy thì bài viết này sẽ hướng dẫn cho bạn cách chuyển mã VNI sang Unicode trong Excel và font TCVN3 sang Unicode, cùng đón đọc nhé!

Cách chuyển font TCVN3 thành font Unicode

Phông chữ theo bảng mã TCVN3 thường sẽ là những font có tên .VN như .VnTime, .VnTimeH

Để thực hiện chuyển những font này về bảng mã Unicode (thường là những font Arial, Times New Roman…) thì bạn có thể dùng hàm tự tạo sau đây (nguồn: Giaiphapexcel.com)

Function TCVN3toUNICODE(vnstr As String)

Dim c As String, i As Integer

For i = 1 To Len(vnstr)

c = Mid(vnstr, i, 1)

Select Case c

Case “a”: c = ChrW$(97)

Case “¸”: c = ChrW$(225)

Case “µ”: c = ChrW$(224)

Case “¶”: c = ChrW$(7843)

Case “·”: c = ChrW$(227)

Case “¹”: c = ChrW$(7841)

Case “¨”: c = ChrW$(259)

Case “¾”: c = ChrW$(7855)

Case “»”: c = ChrW$(7857)

Case “¼”: c = ChrW$(7859)

Case “½”: c = ChrW$(7861)

Case “Æ”: c = ChrW$(7863)

Case “©”: c = ChrW$(226)

Case “Ê”: c = ChrW$(7845)

Case “Ç”: c = ChrW$(7847)

Case “È”: c = ChrW$(7849)

Case “É”: c = ChrW$(7851)

Case “Ë”: c = ChrW$(7853)

Case “e”: c = ChrW$(101)

Case “Ð”: c = ChrW$(233)

Case “Ì”: c = ChrW$(232)

Case “Î”: c = ChrW$(7867)

Case “Ï”: c = ChrW$(7869)

Case “Ñ”: c = ChrW$(7865)

Case “ª”: c = ChrW$(234)

Case “Õ”: c = ChrW$(7871)

Case “Ò”: c = ChrW$(7873)

Case “Ó”: c = ChrW$(7875)

Case “Ô”: c = ChrW$(7877)

Case “Ö”: c = ChrW$(7879)

Case “o”: c = ChrW$(111)

Case “ã”: c = ChrW$(243)

Case “ß”: c = ChrW$(242)

Case “á”: c = ChrW$(7887)

Case “â”: c = ChrW$(245)

Case “ä”: c = ChrW$(7885)

Case “«”: c = ChrW$(244)

Case “è”: c = ChrW$(7889)

Case “å”: c = ChrW$(7891)

Case “æ”: c = ChrW$(7893)

Case “ç”: c = ChrW$(7895)

Case “é”: c = ChrW$(7897)

Case “¬”: c = ChrW$(417)

Case “í”: c = ChrW$(7899)

Case “ê”: c = ChrW$(7901)

Case “ë”: c = ChrW$(7903)

Case “ì”: c = ChrW$(7905)

Case “î”: c = ChrW$(7907)

Case “i”: c = ChrW$(105)

Case “Ý”: c = ChrW$(237)

Case “×”: c = ChrW$(236)

Case “Ø”: c = ChrW$(7881)

Case “Ü”: c = ChrW$(297)

Case “Þ”: c = ChrW$(7883)

Case “u”: c = ChrW$(117)

Case “ó”: c = ChrW$(250)

Case “ï”: c = ChrW$(249)

Case “ñ”: c = ChrW$(7911)

Case “ò”: c = ChrW$(361)

Case “ô”: c = ChrW$(7909)

Case “­”: c = ChrW$(432)

Case “ø”: c = ChrW$(7913)

Case “õ”: c = ChrW$(7915)

Case “ö”: c = ChrW$(7917)

Case “÷”: c = ChrW$(7919)

Case “ù”: c = ChrW$(7921)

Case “y”: c = ChrW$(121)

Case “ý”: c = ChrW$(253)

Case “ú”: c = ChrW$(7923)

Case “û”: c = ChrW$(7927)

Case “ü”: c = ChrW$(7929)

Case “þ”: c = ChrW$(7925)

Case “®”: c = ChrW$(273)

Case “A”: c = ChrW$(65)

Case “¡”: c = ChrW$(258)

Case “¢”: c = ChrW$(194)

Case “E”: c = ChrW$(69)

Case “£”: c = ChrW$(202)

Case “O”: c = ChrW$(79)

Case “¤”: c = ChrW$(212)

Case “¥”: c = ChrW$(416)

Case “I”: c = ChrW$(73)

Case “U”: c = ChrW$(85)

Case “¦”: c = ChrW$(431)

Case “Y”: c = ChrW$(89)

Case “§”: c = ChrW$(272)

End Select

TCVN3toUNICODE = TCVN3toUNICODE + c

Next i

End Function

Bạn có thể thao tác bấm vào mục View raw để tiến hành lấy nội dung đoạn code rồi sau đó copy paste vào trong 1 Module bất kỳ trong VBA Excel để dùng.

Khi đó, nếu bạn muốn chuyển mã trong vị trí ô nào, bạn chỉ cần dùng hàm TCVN3toUNICODE là được.

Ví dụ như sau:

Trong ô B2 bạn dùng font chữ .VnTime đang bị lỗi.

Khi dùng hàm TCVN3toUNICODE tại ô C2, bạn sẽ thấy kết quả thu được là font chữ Times New Roman và đã đọc được bình thường, không bị lỗi nữa.

Xem thêm: Hướng dẫn cách chuyển file Excel sang PDF

Cách chuyển font VNI thành font Unicode

Phông chữ theo bảng mã VNI thường là những font có tên VNITimes (có 3 ký tự VNI ở đầu).

Khi bạn muốn thực hiện chuyển font đó về những font Unicode, bạn hãy dùng hàm tự tạo dưới đây (nguồn: www.caulacbovb.com)

Public Function VniToUni(str$) As String

Dim VNI$, UNI$, i&, sUni$, arrUNI() As String

VNI = “aù,aø,aû,aõ,aï,aâ,aê,aá,aà,aå,aã,aä,aé,aè,aú,aü,aë,AÙ,AØ,AÛ,AÕ,AÏ,AÂ,AÊ,AÁ,AÀ,AÅ,AÃ,AÄ,AÉ,AÈ,AÚ,AÜ,AË,eù,eø,eû,eõ,eï,eâ,eá,eà,eå,eã,eä,EÙ,EØ,EÛ,EÕ,EÏ,EÂ,EÁ,EÀ,EÅ,EÃ,EÄ,í ,ì ,æ ,ó ,ò ,Í ,Ì ,Æ ,Ó ,Ò ,où,oø,oû,oõ,oï,oâ,ô,oá,oà,oå,oã,oä,ôù,ôø,ôû,ôõ,ôï,OÙ,OØ,OÛ,OÕ,OÏ,OÂ,Ô ,OÁ,OÀ,OÅ,OÃ,OÄ,ÔÙ,ÔØ,ÔÛ,ÔÕ,ÔÏ,uù,uø,uû,uõ,uï,ö ,öù,öø,öû,öõ,öï,UÙ,UØ,UÛ,UÕ,UÏ,Ö ,ÖÙ,ÖØ,ÖÛ,ÖÕ,ÖÏ,yù,yø,yû,yõ,î ,YÙ,YØ,YÛ,YÕ,Î ,ñ ,Ñ “

UNI = “E1,E0,1EA3,E3,1EA1,E2,103,1EA5,1EA7,1EA9,1EAB,1EAD,1EAF,1EB1,1EB3,1EB5,1EB7,C1,C0,1EA2,C3,1EA0,C2,102,1EA4,1EA6,1EA8,1EAA,1EAC,1EAE,1EB0,1EB2,1EB4,1EB6,E9,E8,1EBB,1EBD,1EB9,EA,1EBF,1EC1,1EC3,1EC5,1EC7,C9,C8,1EBA,1EBC,1EB8,CA,1EBE,1EC0,1EC2,1EC4,1EC6,ED,EC,1EC9,129,1ECB,CD,CC,1EC8,128,1ECA,F3,F2,1ECF,F5,1ECD,F4,1A1,1ED1,1ED3,1ED5,1ED7,1ED9,1EDB,1EDD,1EDF,1EE1,1EE3,D3,D2,1ECE,D5,1ECC,D4,1A0,1ED0,1ED2,1ED4,1ED6,1ED8,1EDA,1EDC,1EDE,1EE0,1EE2,FA,F9,1EE7,169,1EE5,1B0,1EE9,1EEB,1EED,1EEF,1EF1,DA,D9,1EE6,168,1EE4,1AF,1EE8,1EEA,1EEC,1EEE,1EF0,FD,1EF3,1EF7,1EF9,1EF5,DD,1EF2,1EF6,1EF8,1EF4,111,110”

arrUNI = Split(UNI, “,”)

For i = 1 To Len(str)

If InStr(VNI, Mid(str, i, 2)) > 0 And Len(Mid(str, i, 2)) = 2 Then

sUni = sUni & ChrW(“&h” & arrUNI(InStr(VNI, Mid(str, i, 2)) \ 3))

i = i + 1

ElseIf InStr(VNI, Mid(str, i, 1) & ” “) > 0 Then

sUni = sUni & ChrW(“&h” & arrUNI(InStr(VNI, Mid(str, i, 1) & ” “) \ 3))

End If

If InStr(VNI, Mid(str, i, 1)) = 0 Or InStr(“a,A,e,E,o,O,u,U,y,Y, “, Mid(str, i, 1)) > 0 Then sUni = sUni & Mid(str, i, 1)

Next

VniToUni = sUni

End Function

Lúc này, nếu bạn muốn chuyển mã trong vị trí ô nào, bạn chỉ cần dùng hàm VniToUni là được.

Ví dụ như sau:

Tại ô B2 đang hiển thị font chữ VNI-Korin, thuộc bảng mã VNI

Khi sử dụng hàm VniToUni trong ô C2, bạn sẽ thu được kết quả nội dung không bị lỗi font nữa, và nằm ở dạng font Times New Roman.

Hàm chuyển đổi font TCVN3 hoặc VNI thành Unicode

Tuy vậy, không phải lúc nào và ai cũng biết được cụ thể font chữ đang bị lỗi đang dùng bảng mã VNI hay TCVN3. Vì vậy, bạn có thể tiến hành kết hợp 2 Function này thành 1 câu lệnh duy nhất để thực hiện chuyển đổi font chữ.

Sub ChuyenFontUnicode()

Dim FontRange As Range, FontName As String, FontSize As String

FontName = “Time New Roman” ‘Tuy chon Font Unicode

Application.ScreenUpdating = False

On Error Resume Next

For Each FontRange In ActiveSheet.UsedRange

With FontRange

If UCase(Left(.Font.Name, 3)) = “.VN” Then

.Value = TCVN3toUNICODE(.Text)

.Font.Name = FontName

ElseIf UCase(Left(.Font.Name, 3)) = “VNI” Then

.Value = VniToUni(.Text)

.Font.Name = FontName

.Font.Size = FontSize

End If

End With

Next

Application.ScreenUpdating = True

Set FontRange = Nothing

End Sub

Vậy là đối với những font chữ thuộc bảng mã TCNV3 và VNI, bạn đã có thể dễ dàng chuyển đổi về dạng font Unicode nhờ vào bài viết hướng dẫn trên đây rồi đấy. Bạn có thể tải về file mẫu ở bài viết theo địa chỉ bên dưới, chúc bạn thực hiện thành công!

http://bit.ly/2v61bE7

Đừng quên theo dõi thêm nhiều kiến thức tin học bổ ích khác của chúng tôi nhé!

Xem thêm: Hướng dẫn cách chuyển file Word sang file PDF