Bạn thử dùng 3 hàm chuyển đổi này thử xem :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
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
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
Code càng ngắn càng chạy chậm.
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
Bạn tham khảo tại http://www.giaiphapexcel.com/forum/showthread.php?t=986Chà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
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2