Làm sao thay đổi chữ từ kiểu gõ VNI sang Unicode

[LovExcel]

Chào mọi người, nếu mà mình có 1 bảng đã có dữ liệu theo kiểu gõ VNI, giờ muốn chuyển sang Unicode để thay đổi font chữ thì làm bằng cách nào, mong AE chỉ dẫn. Thanhkiu

 

[solomon2211]

Bạn có thể dùng PM Unicode dể chuyển mã. Hoặc bạn gửi file lên mọi người chuyển giùm bạn.

 

[hoangdanh282vn]

Chào mọi người, nếu mà mình có 1 bảng đã có dữ liệu theo kiểu gõ VNI, giờ muốn chuyển sang Unicode để thay đổi font chữ thì làm bằng cách nào, mong AE chỉ dẫn. Thanhkiu

Bạn thử dùng 3 hàm chuyển đổi này thử xem :

Function VniToUni1(Str As String) As String
Dim i As Long, dem As Byte, Ma As String, Kytu As String, Kytu1 As String
Ma = "aøaùaâaõeøeùeâoøoùoâoõuøuùyùaêuõaïaûaáaàaåaãaäaéaèaúaüaëeïeûeõ"
Ma = Ma & "eáeàeåeãeäoïoûoáoàoåoãoäôùôøôûôõôïuïuûöùöøöûöõöïyøyûyõ"
For i = 1 To Len(Str)
Kytu = Mid(Str, i, 1): Kytu1 = Mid(Str, i, 2): dem = 0
If InStr(1, Ma, Kytu1, 1) > 0 And Len(Kytu1) = 2 Then
    Select Case Kytu1
    Case "AÁ": Kytu = ChrW$(7844): Case "aá": Kytu = ChrW$(7845)
    Case "AÀ": Kytu = ChrW$(7846): Case "aà": Kytu = ChrW$(7847)
    Case "AÂ": Kytu = ChrW$(194): Case "aâ": Kytu = ChrW$(226)
    Case "AÄ": Kytu = ChrW$(7852): Case "aä": Kytu = ChrW$(7853)
    Case "AÃ": Kytu = ChrW$(7850): Case "aã": Kytu = ChrW$(7851)
    Case "AÅ": Kytu = ChrW$(7848): Case "aå": Kytu = ChrW$(7849)
    Case "AÉ": Kytu = ChrW$(7854): Case "aé": Kytu = ChrW$(7855)
    Case "AÈ": Kytu = ChrW$(7856): Case "aè": Kytu = ChrW$(7857)
    Case "AÊ": Kytu = ChrW$(258): Case "aê": Kytu = ChrW$(259)
    Case "AË": Kytu = ChrW$(7862): Case "aë": Kytu = ChrW$(7863)
    Case "AÏ": Kytu = ChrW$(7840): Case "aï": Kytu = ChrW$(7841)
    Case "AÕ": Kytu = ChrW$(195): Case "aõ": Kytu = ChrW$(227)
    Case "AØ": Kytu = ChrW$(192): Case "aø": Kytu = ChrW$(224)
    Case "AÚ": Kytu = ChrW$(7858): Case "aú": Kytu = ChrW$(7859)
    Case "AÙ": Kytu = ChrW$(193): Case "aù": Kytu = ChrW$(225)
    Case "AÛ": Kytu = ChrW$(7842): Case "aû": Kytu = ChrW$(7843)
    Case "AÜ": Kytu = ChrW$(7860): Case "aü": Kytu = ChrW$(7861)
    Case "EÁ": Kytu = ChrW$(7870): Case "eá": Kytu = ChrW$(7871)
    Case "EÀ": Kytu = ChrW$(7872): Case "eà": Kytu = ChrW$(7873)
    Case "EÂ": Kytu = ChrW$(202): Case "eâ": Kytu = ChrW$(234)
    Case "EÄ": Kytu = ChrW$(7878): Case "eä": Kytu = ChrW$(7879)
    Case "EÃ": Kytu = ChrW$(7876): Case "eã": Kytu = ChrW$(7877)
    Case "EÅ": Kytu = ChrW$(7874): Case "eå": Kytu = ChrW$(7875)
    Case "EÏ": Kytu = ChrW$(7864): Case "eï": Kytu = ChrW$(7865)
    Case "EÕ": Kytu = ChrW$(7868): Case "eõ": Kytu = ChrW$(7869)
    Case "EØ": Kytu = ChrW$(200): Case "eø": Kytu = ChrW$(232)
    Case "EÙ": Kytu = ChrW$(201): Case "eù": Kytu = ChrW$(233)
    Case "EÛ": Kytu = ChrW$(7866): Case "eû": Kytu = ChrW$(7867)
    Case "OÁ": Kytu = ChrW$(7888): Case "oá": Kytu = ChrW$(7889)
    Case "OÀ": Kytu = ChrW$(7890): Case "oà": Kytu = ChrW$(7891)
    Case "OÂ": Kytu = ChrW$(212): Case "oâ": Kytu = ChrW$(244)
    Case "OÄ": Kytu = ChrW$(7896): Case "oä": Kytu = ChrW$(7897)
    Case "OÃ": Kytu = ChrW$(7894): Case "oã": Kytu = ChrW$(7895)
    Case "OÅ": Kytu = ChrW$(7892): Case "oå": Kytu = ChrW$(7893)
    Case "OÏ": Kytu = ChrW$(7884): Case "oï": Kytu = ChrW$(7885)
    Case "ÔÏ": Kytu = ChrW$(7906): Case "ôï": Kytu = ChrW$(7907)
    Case "ÖÏ": Kytu = ChrW$(7920): Case "öï": Kytu = ChrW$(7921)
    Case "OÕ": Kytu = ChrW$(213): Case "oõ": Kytu = ChrW$(245)
    Case "OØ": Kytu = ChrW$(210): Case "oø": Kytu = ChrW$(242)
    Case "ÔÕ": Kytu = ChrW$(7904): Case "ôõ": Kytu = ChrW$(7905)
    Case "ÔØ": Kytu = ChrW$(7900): Case "ôø": Kytu = ChrW$(7901)
    Case "ÖÕ": Kytu = ChrW$(7918): Case "öõ": Kytu = ChrW$(7919)
    Case "ÖØ": Kytu = ChrW$(7914): Case "öø": Kytu = ChrW$(7915)
    Case "OÙ": Kytu = ChrW$(211): Case "où": Kytu = ChrW$(243)
    Case "OÛ": Kytu = ChrW$(7886): Case "oû": Kytu = ChrW$(7887)
    Case "ÔÙ": Kytu = ChrW$(7898): Case "ôù": Kytu = ChrW$(7899)
    Case "ÔÛ": Kytu = ChrW$(7902): Case "ôû": Kytu = ChrW$(7903)
    Case "ÖÙ": Kytu = ChrW$(7912): Case "öù": Kytu = ChrW$(7913)
    Case "ÖÛ": Kytu = ChrW$(7916): Case "öû": Kytu = ChrW$(7917)
    Case "UÏ": Kytu = ChrW$(7908): Case "uï": Kytu = ChrW$(7909)
    Case "UÕ": Kytu = ChrW$(360): Case "uõ": Kytu = ChrW$(361)
    Case "UØ": Kytu = ChrW$(217): Case "uø": Kytu = ChrW$(249)
    Case "UÙ": Kytu = ChrW$(218): Case "uù": Kytu = ChrW$(250)
    Case "UÛ": Kytu = ChrW$(7910): Case "uû": Kytu = ChrW$(7911)
    Case "YÕ": Kytu = ChrW$(7928): Case "yõ": Kytu = ChrW$(7929)
    Case "YØ": Kytu = ChrW$(7922): Case "yø": Kytu = ChrW$(7923)
    Case "YÙ": Kytu = ChrW$(221): Case "yù": Kytu = ChrW$(253)
    Case "YÛ": Kytu = ChrW$(7926): Case "yû": Kytu = ChrW$(7927)
    End Select: dem = 1
Else
    Select Case Kytu
    Case "Æ": Kytu = ChrW$(7880): Case "æ": Kytu = ChrW$(7881)
    Case "Î": Kytu = ChrW$(7924): Case "î": Kytu = ChrW$(7925)
    Case "Ñ": Kytu = ChrW$(272): Case "ñ": Kytu = ChrW$(273)
    Case "Ó": Kytu = ChrW$(296): Case "ó": Kytu = ChrW$(297)
    Case "Ò": Kytu = ChrW$(7882): Case "ò": Kytu = ChrW$(7883)
    Case "Ô": Kytu = ChrW$(416): Case "ô": Kytu = ChrW$(417)
    Case "Ö": Kytu = ChrW$(431): Case "ö": Kytu = ChrW$(432)
    End Select
End If
VniToUni1 = VniToUni1 + Kytu
i = i + dem
Next
End Function

Function VniToUni2(Str As String) As String
Dim i As Long, Pos1 As Byte, Pos2 As Byte, dem As Byte
Dim Kytu As String, Ma11 As String, Ma21 As String
Ma11 = "áÁàÀâÂäÄãÃåÅéÉèÈêÊëËïÏõÕøØúÚùÙûÛüÜ"
Ma12 = Array("aø", "aù", "aâ", "aõ", "eø", "eù", "eâ", "oø", "où", "oâ", "oõ", "uø", "uù", _
    "yù", "aê", "uõ", "aï", "aû", "aá", "aà", "aå", "aã", "aä", "aé", "aè", "aú", "aü", "aë", _
    "eï", "eû", "eõ", "eá", "eà", "eå", "eã", "eä", "oï", "oû", "oá", "oà", "oå", "oã", "oä", _
    "ôù", "ôø", "ôû", "ôõ", "ôï", "uï", "uû", "öù", "öø", "öû", "öõ", "öï", "yø", "yû", "yõ")
Ma13 = Array(224, 225, 226, 227, 232, 233, 234, 242, 243, 244, 245, 249, 250, 253, 259, 361, _
    7841, 7843, 7845, 7847, 7849, 7851, 7853, 7855, 7857, 7859, 7861, 7863, 7865, 7867, 7869, _
    7871, 7873, 7875, 7877, 7879, 7885, 7887, 7889, 7891, 7893, 7895, 7897, 7899, 7901, 7903, _
    7905, 7907, 7909, 7911, 7913, 7915, 7917, 7919, 7921, 7923, 7927, 7929)
Ma14 = Array(Ma12, Ma13)
Ma21 = "æÆîÎñÑóÓòÒôÔöÖ"
Ma22 = Array("ñ", "ó", "ô", "ö", "æ", "ò", "î")
Ma23 = Array(273, 297, 417, 432, 7881, 7883, 7925)
Ma24 = Array(Ma22, Ma23)
On Error Resume Next
With WorksheetFunction
For i = 1 To Len(Str)
Pos1 = InStr(1, Ma11, Mid(Str, i + 1, 1)): Pos2 = InStr(1, Ma21, Mid(Str, i, 1)): dem = 0
Select Case i
Case 1 To Len(Str) - 1
    If Pos1 > 0 And Pos1 Mod 2 = 0 Then
        Kytu = UCase(ChrW$(.HLookup(Mid(Str, i, 2), Ma14, 2, 0))):  dem = 1
    ElseIf Pos1 > 0 And Pos1 Mod 2 <> 0 Then
        Kytu = ChrW$(.HLookup(Mid(Str, i, 2), Ma14, 2, 0)):  dem = 1
    ElseIf Pos2 > 0 And Pos2 Mod 2 = 0 Then
        Kytu = UCase(ChrW$(.HLookup(Mid(Str, i, 1), Ma24, 2, 0)))
    ElseIf Pos2 > 0 And Pos2 Mod 2 <> 0 Then
        Kytu = ChrW$(.HLookup(Mid(Str, i, 1), Ma24, 2, 0))
    Else: Kytu = Mid(Str, i, 1)
    End If
Case Len(Str)
    If Pos2 > 0 And Pos2 Mod 2 = 0 Then
        Kytu = UCase(ChrW$(.HLookup(Mid(Str, i, 1), Ma24, 2, 0)))
    ElseIf Pos2 > 0 And Pos2 Mod 2 <> 0 Then
        Kytu = ChrW$(.HLookup(Mid(Str, i, 1), Ma24, 2, 0))
    Else: Kytu = Mid(Str, i, 1)
    End If
End Select
VniToUni2 = VniToUni2 + Kytu:  i = i + dem
Next i
End With
End Function

Function VniToUni3(Str As String) As String
Dim Ma As String, Kytu As String, Kytu2 As String
Dim i As Long, dem As Byte, Pos11 As Long, Pos12 As Long, Pos21 As Long, Pos22 As Long
Ma = ".AÙ.193.aù.225.AØ.192.aø.224.AÂ.194.aâ.226.AÊ.258.aê.259.AÕ.195.aõ.227.AÁ.7844.aá.7845"
Ma = Ma & ".AÀ.7846.aà.7847.AÉ.7854.aé.7855.AÈ.7856.aè.7857.AÃ.7850.aã.7851.AÜ.7860.aü.7861"
Ma = Ma & ".AÛ.7842.aû.7843.AÅ.7848.aå.7849.AÚ.7858.aú.7859.AÏ.7840.aï.7841.AÄ.7852.aä.7853"
Ma = Ma & ".AË.7862.aë.7863.Ñ.272.ñ.273.EÙ.201.eù.233.EØ.200.eø.232.EÂ.202.eâ.234"
Ma = Ma & ".EÕ.7868.eõ.7869.EÁ.7870.eá.7871.EÀ.7872.eà.7873.EÃ.7876.eã.7877.EÛ.7866.eû.7867"
Ma = Ma & ".EÅ.7874.eå.7875.EÏ.7864.eï.7865.EÄ.7878.eä.7879.Ó.296.ó.297.Æ.7880.æ.7881"
Ma = Ma & ".Ò.7882.ò.7883.OÙ.211.où.243.OØ.210.oø.242.OÂ.212.oâ.244.OÕ.213.oõ.245"
Ma = Ma & ".OÁ.7888.oá.7889.OÀ.7890.oà.7891.OÃ.7894.oã.7895.OÛ.7886.oû.7887.Ô.416.ô.417"
Ma = Ma & ".OÅ.7892.oå.7893.OÏ.7884.oï.7885.ÔÙ.7898.ôù.7899.ÔØ.7900.ôø.7901.ÔÕ.7904.ôõ.7905"
Ma = Ma & ".OÄ.7896.oä.7897.ÔÛ.7902.ôû.7903.ÔÏ.7906.ôï.7907.UÙ.218.uù.250.UØ.217.uø.249"
Ma = Ma & ".UÕ.360.uõ.361.UÛ.7910.uû.7911.Ö.431.ö.432.UÏ.7908.uï.7909.ÖÙ.7912.öù.7913"
Ma = Ma & ".ÖØ.7914.öø.7915.ÖÕ.7918.öõ.7919.ÖÛ.7916.öû.7917.ÖÏ.7920.öï.7921.YÙ.221.yù.253"
Ma = Ma & ".YØ.7922.yø.7923.YÕ.7928.yõ.7929.YÛ.7926.yû.7927.Î.7924.î.7925."
For i = 1 To Len(Str)
dem = 0: Kytu = Mid(Str, i, 1): Kytu2 = Mid(Str, i, 2)
Pos11 = InStr(1, Ma, "." & Kytu & "."): Pos12 = InStr(Pos11 + 1, Ma, ".")
Pos21 = InStr(1, Ma, "." & Kytu2 & "."): Pos22 = InStr(Pos21 + 1, Ma, ".")
If Pos21 > 0 And Len(Kytu2) = 2 Then
Kytu = ChrW$(Val(Mid(Ma, Pos22 + 1, InStr(Pos22 + 1, Ma, ".") - Pos22 - 1))):  dem = 1
ElseIf Pos11 > 0 Then
Kytu = ChrW$(Val(Mid(Ma, Pos12 + 1, InStr(Pos12 + 1, Ma, ".") - Pos12 - 1)))
End If
VniToUni3 = VniToUni3 + Kytu: i = i + dem
Next i
End Function

P/S : Mình mới viết xong nên không biết có sai từ nào không nữa.
3 hàm với 3 độ dài code khác nhau. Code càng ngắn càng chạy chậm.

 

[paulsteigel]

Chào mọi người, nếu mà mình có 1 bảng đã có dữ liệu theo kiểu gõ VNI, giờ muốn chuyển sang Unicode để thay đổi font chữ thì làm bằng cách nào, mong AE chỉ dẫn. Thanhkiu

Bạn vào chỗ này, theo hướng dẫn để cài đặt và sử dụng sau khi tải về công cụ chuyển bảng mã dành cho Excel (dùng cho Office2003) nhé.
http://www.giaiphapexcel.com/forum/showthread.php?p=153876#post153876
Công cụ thì tải về từ địa chỉ này:
http://www.giaiphapexcel.com/forum/attachment.php?attachmentid=39487&d=1261908882
Một điều nữa, trên diễn đàn có công cụ tìm kiếm vì thế hi vọng lần sau bạn sẽ sử dụng công cụ đó nhiều hơn nữa.

 

[ptm0412]

Code càng ngắn càng chạy chậm.

Zậy chắc cái này nhanh nhất vì dài nhất: (thực ra xài Replace() nhanh hơn)

Function VN2UNI(VNI As String) As String
Dim Kytu(1 To 134, 1 To 2)
Kytu(1, 1) = "AÙ": Kytu(1, 2) = ChrW$(193)
Kytu(2, 1) = "AØ": Kytu(2, 2) = ChrW$(192)
Kytu(3, 1) = "AÛ": Kytu(3, 2) = ChrW$(7842)
Kytu(4, 1) = "AÕ": Kytu(4, 2) = ChrW$(195)
Kytu(5, 1) = "AÏ": Kytu(5, 2) = ChrW$(7840)
Kytu(6, 1) = "AÊ": Kytu(6, 2) = ChrW$(258)
Kytu(7, 1) = "AÉ": Kytu(7, 2) = ChrW$(7854)
Kytu(8, 1) = "AÈ": Kytu(8, 2) = ChrW$(7856)
Kytu(9, 1) = "AÚ": Kytu(9, 2) = ChrW$(7858)
Kytu(10, 1) = "AÜ": Kytu(10, 2) = ChrW$(7860)
Kytu(11, 1) = "AË": Kytu(11, 2) = ChrW$(7862)
Kytu(12, 1) = "AÂ": Kytu(12, 2) = ChrW$(194)
Kytu(13, 1) = "AÁ": Kytu(13, 2) = ChrW$(7844)
Kytu(14, 1) = "AÀ": Kytu(14, 2) = ChrW$(7846)
Kytu(15, 1) = "AÅ": Kytu(15, 2) = ChrW$(7848)
Kytu(16, 1) = "AÃ": Kytu(16, 2) = ChrW$(7850)
Kytu(17, 1) = "AÄ": Kytu(17, 2) = ChrW$(7852)
Kytu(18, 1) = "EÙ": Kytu(18, 2) = ChrW$(201)
Kytu(19, 1) = "EØ": Kytu(19, 2) = ChrW$(200)
Kytu(20, 1) = "EÛ": Kytu(20, 2) = ChrW$(7866)
Kytu(21, 1) = "EÕ": Kytu(21, 2) = ChrW$(7868)
Kytu(22, 1) = "EÏ": Kytu(22, 2) = ChrW$(7864)
Kytu(23, 1) = "EÂ": Kytu(23, 2) = ChrW$(202)
Kytu(24, 1) = "EÁ": Kytu(24, 2) = ChrW$(7870)
Kytu(25, 1) = "EÀ": Kytu(25, 2) = ChrW$(7872)
Kytu(26, 1) = "EÅ": Kytu(26, 2) = ChrW$(7874)
Kytu(27, 1) = "EÃ": Kytu(27, 2) = ChrW$(7876)
Kytu(28, 1) = "EÄ": Kytu(28, 2) = ChrW$(7878)
Kytu(29, 1) = "Í": Kytu(29, 2) = ChrW$(205)
Kytu(30, 1) = "Ì": Kytu(30, 2) = ChrW$(204)
Kytu(31, 1) = "Æ": Kytu(31, 2) = ChrW$(7880)
Kytu(32, 1) = "Ó": Kytu(32, 2) = ChrW$(296)
Kytu(33, 1) = "Ò": Kytu(33, 2) = ChrW$(7882)
Kytu(34, 1) = "OÙ": Kytu(34, 2) = ChrW$(211)
Kytu(35, 1) = "OØ": Kytu(35, 2) = ChrW$(210)
Kytu(36, 1) = "OÛ": Kytu(36, 2) = ChrW$(7886)
Kytu(37, 1) = "OÕ": Kytu(37, 2) = ChrW$(213)
Kytu(38, 1) = "OÏ": Kytu(38, 2) = ChrW$(7884)
Kytu(39, 1) = "Ô": Kytu(39, 2) = ChrW$(416)
Kytu(40, 1) = "OÁ": Kytu(40, 2) = ChrW$(7888)
Kytu(41, 1) = "OÀ": Kytu(41, 2) = ChrW$(7890)
Kytu(42, 1) = "OÅ": Kytu(42, 2) = ChrW$(7892)
Kytu(43, 1) = "OÃ": Kytu(43, 2) = ChrW$(7894)
Kytu(44, 1) = "OÄ": Kytu(44, 2) = ChrW$(7896)
Kytu(45, 1) = "OÂ": Kytu(45, 2) = ChrW$(212)
Kytu(46, 1) = "ÔÙ": Kytu(46, 2) = ChrW$(7898)
Kytu(47, 1) = "ÔØ": Kytu(47, 2) = ChrW$(7900)
Kytu(48, 1) = "ÔÛ": Kytu(48, 2) = ChrW$(7902)
Kytu(49, 1) = "ÔÕ": Kytu(49, 2) = ChrW$(7904)
Kytu(50, 1) = "ÔÏ": Kytu(50, 2) = ChrW$(7906)
Kytu(51, 1) = "UÙ": Kytu(51, 2) = ChrW$(218)
Kytu(52, 1) = "UØ": Kytu(52, 2) = ChrW$(217)
Kytu(53, 1) = "UÛ": Kytu(53, 2) = ChrW$(7910)
Kytu(54, 1) = "UÕ": Kytu(54, 2) = ChrW$(360)
Kytu(55, 1) = "UÏ": Kytu(55, 2) = ChrW$(7908)
Kytu(56, 1) = "Ö": Kytu(56, 2) = ChrW$(431)
Kytu(57, 1) = "ÖÙ": Kytu(57, 2) = ChrW$(7912)
Kytu(58, 1) = "ÖØ": Kytu(58, 2) = ChrW$(7914)
Kytu(59, 1) = "ÖÛ": Kytu(59, 2) = ChrW$(7916)
Kytu(60, 1) = "ÖÕ": Kytu(60, 2) = ChrW$(7918)
Kytu(61, 1) = "ÖÏ": Kytu(61, 2) = ChrW$(7920)
Kytu(62, 1) = "YÙ": Kytu(62, 2) = ChrW$(221)
Kytu(63, 1) = "YØ": Kytu(63, 2) = ChrW$(7922)
Kytu(64, 1) = "YÛ": Kytu(64, 2) = ChrW$(7926)
Kytu(65, 1) = "YÕ": Kytu(65, 2) = ChrW$(7928)
Kytu(66, 1) = "Î": Kytu(66, 2) = ChrW$(7924)
Kytu(67, 1) = "aù": Kytu(67, 2) = ChrW$(225)
Kytu(68, 1) = "aø": Kytu(68, 2) = ChrW$(224)
Kytu(69, 1) = "aû": Kytu(69, 2) = ChrW$(7843)
Kytu(70, 1) = "aõ": Kytu(70, 2) = ChrW$(227)
Kytu(71, 1) = "aï": Kytu(71, 2) = ChrW$(7841)
Kytu(72, 1) = "aê": Kytu(72, 2) = ChrW$(259)
Kytu(73, 1) = "aé": Kytu(73, 2) = ChrW$(7855)
Kytu(74, 1) = "aè": Kytu(74, 2) = ChrW$(7857)
Kytu(75, 1) = "aú": Kytu(75, 2) = ChrW$(7859)
Kytu(76, 1) = "aü": Kytu(76, 2) = ChrW$(7861)
Kytu(77, 1) = "aë": Kytu(77, 2) = ChrW$(7863)
Kytu(78, 1) = "aâ": Kytu(78, 2) = ChrW$(226)
Kytu(79, 1) = "aá": Kytu(79, 2) = ChrW$(7845)
Kytu(80, 1) = "aà": Kytu(80, 2) = ChrW$(7847)
Kytu(81, 1) = "aå": Kytu(81, 2) = ChrW$(7849)
Kytu(82, 1) = "aã": Kytu(82, 2) = ChrW$(7851)
Kytu(83, 1) = "aä": Kytu(83, 2) = ChrW$(7853)
Kytu(84, 1) = "eù": Kytu(84, 2) = ChrW$(233)
Kytu(85, 1) = "eø": Kytu(85, 2) = ChrW$(232)
Kytu(86, 1) = "eû": Kytu(86, 2) = ChrW$(7867)
Kytu(87, 1) = "eõ": Kytu(87, 2) = ChrW$(7869)
Kytu(88, 1) = "eï": Kytu(88, 2) = ChrW$(7865)
Kytu(89, 1) = "eâ": Kytu(89, 2) = ChrW$(234)
Kytu(90, 1) = "eá": Kytu(90, 2) = ChrW$(7871)
Kytu(91, 1) = "eà": Kytu(91, 2) = ChrW$(7873)
Kytu(92, 1) = "eå": Kytu(92, 2) = ChrW$(7875)
Kytu(93, 1) = "eã": Kytu(93, 2) = ChrW$(7877)
Kytu(94, 1) = "eä": Kytu(94, 2) = ChrW$(7879)
Kytu(95, 1) = "í": Kytu(95, 2) = ChrW$(237)
Kytu(96, 1) = "ì": Kytu(96, 2) = ChrW$(236)
Kytu(97, 1) = "æ": Kytu(97, 2) = ChrW$(7881)
Kytu(98, 1) = "ó": Kytu(98, 2) = ChrW$(297)
Kytu(99, 1) = "ò": Kytu(99, 2) = ChrW$(7883)
Kytu(100, 1) = "où": Kytu(100, 2) = ChrW$(243)
Kytu(101, 1) = "oø": Kytu(101, 2) = ChrW$(242)
Kytu(102, 1) = "oû": Kytu(102, 2) = ChrW$(7887)
Kytu(103, 1) = "oõ": Kytu(103, 2) = ChrW$(245)
Kytu(104, 1) = "oï": Kytu(104, 2) = ChrW$(7885)
Kytu(105, 1) = "ô": Kytu(105, 2) = ChrW$(417)
Kytu(106, 1) = "oá": Kytu(106, 2) = ChrW$(7889)
Kytu(107, 1) = "oà": Kytu(107, 2) = ChrW$(7891)
Kytu(108, 1) = "oå": Kytu(108, 2) = ChrW$(7893)
Kytu(109, 1) = "oã": Kytu(109, 2) = ChrW$(7895)
Kytu(110, 1) = "oä": Kytu(110, 2) = ChrW$(7897)
Kytu(111, 1) = "oâ": Kytu(111, 2) = ChrW$(244)
Kytu(112, 1) = "ôù": Kytu(112, 2) = ChrW$(7899)
Kytu(113, 1) = "ôø": Kytu(113, 2) = ChrW$(7901)
Kytu(114, 1) = "ôû": Kytu(114, 2) = ChrW$(7903)
Kytu(115, 1) = "ôõ": Kytu(115, 2) = ChrW$(7905)
Kytu(116, 1) = "ôï": Kytu(116, 2) = ChrW$(7907)
Kytu(117, 1) = "uù": Kytu(117, 2) = ChrW$(250)
Kytu(118, 1) = "uø": Kytu(118, 2) = ChrW$(249)
Kytu(119, 1) = "uû": Kytu(119, 2) = ChrW$(7911)
Kytu(120, 1) = "uõ": Kytu(120, 2) = ChrW$(361)
Kytu(121, 1) = "uï": Kytu(121, 2) = ChrW$(7909)
Kytu(122, 1) = "ö": Kytu(122, 2) = ChrW$(432)
Kytu(123, 1) = "öù": Kytu(123, 2) = ChrW$(7913)
Kytu(124, 1) = "öø": Kytu(124, 2) = ChrW$(7915)
Kytu(125, 1) = "öû": Kytu(125, 2) = ChrW$(7917)
Kytu(126, 1) = "öõ": Kytu(126, 2) = ChrW$(7919)
Kytu(127, 1) = "öï": Kytu(127, 2) = ChrW$(7921)
Kytu(128, 1) = "yù": Kytu(128, 2) = ChrW$(253)
Kytu(129, 1) = "yø": Kytu(129, 2) = ChrW$(7923)
Kytu(130, 1) = "yû": Kytu(130, 2) = ChrW$(7927)
Kytu(131, 1) = "yõ": Kytu(131, 2) = ChrW$(7929)
Kytu(132, 1) = "î": Kytu(132, 2) = ChrW$(7925)
Kytu(133, 1) = "ñ": Kytu(133, 2) = ChrW$(273)
Kytu(134, 1) = "Ñ": Kytu(134, 2) = ChrW$(272)


VN2UNI = VNI
For i = 1 To 134
VN2UNI = Replace(VN2UNI, Kytu(i, 1), Kytu(i, 2))
Next

End Function

 

[phamduylong]

Chào mọi người, nếu mà mình có 1 bảng đã có dữ liệu theo kiểu gõ VNI, giờ muốn chuyển sang Unicode để thay đổi font chữ thì làm bằng cách nào, mong AE chỉ dẫn. Thanhkiu

Bạn tham khảo tại http://www.giaiphapexcel.com/forum/showthread.php?t=986

 

[Tran Mui]

Bạn có thể vào http://www.violet.vn/tranmui55 trong thư mục Tiện ích CNTT, có 3 cách chuyển đổi font
Chúc bạn thành công