-
11-18-2009, 12:23 AM #1Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 0
Convert font VNI sang UNI trong ACCESS!
Mình có một đoạn code VBA để convert fonts VNI sang UNICODE.
Nhưng mình không biết cách up file trong diễn đàn này.
Các PRO chỉ cho cách UP file với. Bác nào có nhu cầu gửi mail cho mình nhé: haquocquanln@vnn.vn hoặc quanhqvbspln@gmail.comView more random threads:
- [Hỏi] Biểu tượng hình tam giác màu vàng có dấu chấm thang trong macro !!!
- help code thuế thu nhập cá nhân
- Tối ưu thuật toán tạo thẻ kho trong access
- Tính tổng tiền kiểu gì bây giờ?
- Tách chữ trong một dòng thành hai dòng?
- Giúp mình bị lỗi phóng to chữ trong Form của Access !
- Tìm kiếm nhiều lựa chọn trong một TextBox
- Nhờ các cao nhân giúp đỡ cách chạy phần mềm kế toán Access.
- mở file Word có điều kiện từ combobox thì làm sao đây?
- In danh sách bản ghi theo ngày???
-
11-19-2009, 01:24 AM #2Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Convert font VNI sang UNI trong ACCESS!
Mình đánh giá cao chia sẻ của bạn, nhưng Mình nghĩ bạn nên up lên 1 host free nào đó rồi share cho mọi người sẽ hay hơn (ví dụ http://www.mediafire.com), tránh spam vô ích!
-
11-19-2009, 01:30 AM #3Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Convert font VNI sang UNI trong ACCESS!
Gửi bởi haquocquan
-
11-19-2009, 02:27 AM #4Silver member
- Ngày tham gia
- Feb 2016
- Bài viết
- 30
Ðề: Convert font VNI sang UNI trong ACCESS!
Gửi bởi haquocquan
bạn cứ gửi đoạn code qua mail lychicao@yahoo.com, mình sẽ chuyển rồi gửi lại cho bạn, chỉ cần thao tác 30 s là xong.
các bạn nào có yêu cầu chuyển font chử qua lại , bài sao mình sẽ hướng dẫn cách chuyển.
-
11-19-2009, 02:43 AM #5Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Convert font VNI sang UNI trong ACCESS!
Code đây các bạn:
Mã:Public Function ConvertToUnicode(sText As String, Optional InHoa As Boolean) Dim i As Integer, j As Integer Dim sCurChar As String, sPreChar As String, sPreTxt As String For j = 1 To 2 For i = 2 To Len(sText) sCurChar = mID(sText, i, 1) sPreTxt = Left(sText, i - 2) sPreChar = mID(sText, i - 1, 1) Select Case sCurChar Case "1" Select Case sPreChar 'a Case "a": sText = sPreTxt & ChrW$(&HE1) & Right(sText, Len(sText) - i) Case "A": sText = sPreTxt & ChrW$(&HC1) & Right(sText, Len(sText) - i) Case ChrW$(&HE2): sText = sPreTxt & ChrW$(&H1EA5) & Right(sText, Len(sText) - i) Case ChrW$(&HC2): sText = sPreTxt & ChrW$(&H1EA4) & Right(sText, Len(sText) - i) Case ChrW$(&H103): sText = sPreTxt & ChrW$(&H1EAF) & Right(sText, Len(sText) - i) Case ChrW$(&H102): sText = sPreTxt & ChrW$(&H1EAE) & Right(sText, Len(sText) - i) 'e Case "e": sText = sPreTxt & ChrW$(&HE9) & Right(sText, Len(sText) - i) Case "E": sText = sPreTxt & ChrW$(&HC9) & Right(sText, Len(sText) - i) Case ChrW$(&HEA): sText = sPreTxt & ChrW$(&H1EBF) & Right(sText, Len(sText) - i) Case ChrW$(&HCA): sText = sPreTxt & ChrW$(&H1EBE) & Right(sText, Len(sText) - i) 'i Case "i": sText = sPreTxt & ChrW$(&HED) & Right(sText, Len(sText) - i) Case "I": sText = sPreTxt & ChrW$(&HCD) & Right(sText, Len(sText) - i) 'o Case "o": sText = sPreTxt & ChrW$(&HF3) & Right(sText, Len(sText) - i) Case "O": sText = sPreTxt & ChrW$(&HD3) & Right(sText, Len(sText) - i) Case ChrW$(&HF4): sText = sPreTxt & ChrW$(&H1ED1) & Right(sText, Len(sText) - i) Case ChrW$(&HD4): sText = sPreTxt & ChrW$(&H1ED0) & Right(sText, Len(sText) - i) Case ChrW$(&H1A1): sText = sPreTxt & ChrW$(&H1EDB) & Right(sText, Len(sText) - i) Case ChrW$(&H1A0): sText = sPreTxt & ChrW$(&H1EDA) & Right(sText, Len(sText) - i) 'u Case "u": sText = sPreTxt & ChrW$(&HFA) & Right(sText, Len(sText) - i) Case "U": sText = sPreTxt & ChrW$(&HDA) & Right(sText, Len(sText) - i) Case ChrW$(&H1B0): sText = sPreTxt & ChrW$(&H1EE9) & Right(sText, Len(sText) - i) Case ChrW$(&H1AF): sText = sPreTxt & ChrW$(&H1EE8) & Right(sText, Len(sText) - i) 'y Case "y": sText = sPreTxt & ChrW$(&HFD) & Right(sText, Len(sText) - i) Case "Y": sText = sPreTxt & ChrW$(&HDD) & Right(sText, Len(sText) - i) End Select Case "2" Select Case sPreChar 'a Case "a": sText = sPreTxt & ChrW$(&HE0) & Right(sText, Len(sText) - i) Case "A": sText = sPreTxt & ChrW$(&HC0) & Right(sText, Len(sText) - i) Case ChrW$(&HE2): sText = sPreTxt & ChrW$(&H1EA7) & Right(sText, Len(sText) - i) Case ChrW$(&HC2): sText = sPreTxt & ChrW$(&H1EA6) & Right(sText, Len(sText) - i) Case ChrW$(&H103): sText = sPreTxt & ChrW$(&H1EB1) & Right(sText, Len(sText) - i) Case ChrW$(&H102): sText = sPreTxt & ChrW$(&H1EB0) & Right(sText, Len(sText) - i) 'e Case "e": sText = sPreTxt & ChrW$(&HE8) & Right(sText, Len(sText) - i) Case "E": sText = sPreTxt & ChrW$(&HC8) & Right(sText, Len(sText) - i) Case ChrW$(&HEA): sText = sPreTxt & ChrW$(&H1EC1) & Right(sText, Len(sText) - i) Case ChrW$(&HCA): sText = sPreTxt & ChrW$(&H1EC0) & Right(sText, Len(sText) - i) 'i Case "i": sText = sPreTxt & ChrW$(&HEC) & Right(sText, Len(sText) - i) Case "I": sText = sPreTxt & ChrW$(&HCC) & Right(sText, Len(sText) - i) 'o Case "o": sText = sPreTxt & ChrW$(&HF2) & Right(sText, Len(sText) - i) Case "O": sText = sPreTxt & ChrW$(&HD2) & Right(sText, Len(sText) - i) Case ChrW$(&HF4): sText = sPreTxt & ChrW$(&H1ED3) & Right(sText, Len(sText) - i) Case ChrW$(&HD4): sText = sPreTxt & ChrW$(&H1ED2) & Right(sText, Len(sText) - i) Case ChrW$(&H1A1): sText = sPreTxt & ChrW$(&H1EDD) & Right(sText, Len(sText) - i) Case ChrW$(&H1A0): sText = sPreTxt & ChrW$(&H1EDC) & Right(sText, Len(sText) - i) 'u Case "u": sText = sPreTxt & ChrW$(&HF9) & Right(sText, Len(sText) - i) Case "U": sText = sPreTxt & ChrW$(&HD9) & Right(sText, Len(sText) - i) Case ChrW$(&H1B0): sText = sPreTxt & ChrW$(&H1EEB) & Right(sText, Len(sText) - i) Case ChrW$(&H1AF): sText = sPreTxt & ChrW$(&H1EEA) & Right(sText, Len(sText) - i) 'y Case "y": sText = sPreTxt & ChrW$(&H1EF3) & Right(sText, Len(sText) - i) Case "Y": sText = sPreTxt & ChrW$(&H1EF2) & Right(sText, Len(sText) - i) End Select Case "3" Select Case sPreChar 'a Case "a": sText = sPreTxt & ChrW$(&H1EA3) & Right(sText, Len(sText) - i) Case "A": sText = sPreTxt & ChrW$(&H1EA2) & Right(sText, Len(sText) - i) Case ChrW$(&HE2): sText = sPreTxt & ChrW$(&H1EA9) & Right(sText, Len(sText) - i) Case ChrW$(&HC2): sText = sPreTxt & ChrW$(&H1EA8) & Right(sText, Len(sText) - i) Case ChrW$(&H103): sText = sPreTxt & ChrW$(&H1EB3) & Right(sText, Len(sText) - i) Case ChrW$(&H102): sText = sPreTxt & ChrW$(&H1EB2) & Right(sText, Len(sText) - i) 'e Case "e": sText = sPreTxt & ChrW$(&H1EBB) & Right(sText, Len(sText) - i) Case "E": sText = sPreTxt & ChrW$(&H1EBA) & Right(sText, Len(sText) - i) Case ChrW$(&HEA): sText = sPreTxt & ChrW$(&H1EC3) & Right(sText, Len(sText) - i) Case ChrW$(&HCA): sText = sPreTxt & ChrW$(&H1EC2) & Right(sText, Len(sText) - i) 'i Case "i": sText = sPreTxt & ChrW$(&H1EC9) & Right(sText, Len(sText) - i) Case "I": sText = sPreTxt & ChrW$(&H1EC8) & Right(sText, Len(sText) - i) 'o Case "o": sText = sPreTxt & ChrW$(&H1ECF) & Right(sText, Len(sText) - i) Case "O": sText = sPreTxt & ChrW$(&H1ECE) & Right(sText, Len(sText) - i) Case ChrW$(&HF4): sText = sPreTxt & ChrW$(&H1ED5) & Right(sText, Len(sText) - i) Case ChrW$(&HD4): sText = sPreTxt & ChrW$(&H1ED4) & Right(sText, Len(sText) - i) Case ChrW$(&H1A1): sText = sPreTxt & ChrW$(&H1EDF) & Right(sText, Len(sText) - i) Case ChrW$(&H1A0): sText = sPreTxt & ChrW$(&H1EDE) & Right(sText, Len(sText) - i) 'u Case "u": sText = sPreTxt & ChrW$(&H1EE7) & Right(sText, Len(sText) - i) Case "U": sText = sPreTxt & ChrW$(&H1EE6) & Right(sText, Len(sText) - i) Case ChrW$(&H1B0): sText = sPreTxt & ChrW$(&H1EED) & Right(sText, Len(sText) - i) Case ChrW$(&H1AF): sText = sPreTxt & ChrW$(&H1EEC) & Right(sText, Len(sText) - i) 'y Case "y": sText = sPreTxt & ChrW$(&H1EF7) & Right(sText, Len(sText) - i) Case "Y": sText = sPreTxt & ChrW$(&H1EF6) & Right(sText, Len(sText) - i) End Select Case "4" Select Case sPreChar 'a Case "a": sText = sPreTxt & ChrW$(&HE3) & Right(sText, Len(sText) - i) Case "A": sText = sPreTxt & ChrW$(&HC3) & Right(sText, Len(sText) - i) Case ChrW$(&HE2): sText = sPreTxt & ChrW$(&H1EAB) & Right(sText, Len(sText) - i) Case ChrW$(&HC2): sText = sPreTxt & ChrW$(&H1EAA) & Right(sText, Len(sText) - i) Case ChrW$(&H103): sText = sPreTxt & ChrW$(&H1EB5) & Right(sText, Len(sText) - i) Case ChrW$(&H102): sText = sPreTxt & ChrW$(&H1EB4) & Right(sText, Len(sText) - i) 'e Case "e": sText = sPreTxt & ChrW$(&H1EBD) & Right(sText, Len(sText) - i) Case "E": sText = sPreTxt & ChrW$(&H1EBC) & Right(sText, Len(sText) - i) Case ChrW$(&HEA): sText = sPreTxt & ChrW$(&H1EC5) & Right(sText, Len(sText) - i) Case ChrW$(&HCA): sText = sPreTxt & ChrW$(&H1EC4) & Right(sText, Len(sText) - i) 'i Case "i": sText = sPreTxt & ChrW$(&H129) & Right(sText, Len(sText) - i) Case "I": sText = sPreTxt & ChrW$(&H128) & Right(sText, Len(sText) - i) 'o Case "o": sText = sPreTxt & ChrW$(&HF5) & Right(sText, Len(sText) - i) Case "O": sText = sPreTxt & ChrW$(&HD5) & Right(sText, Len(sText) - i) Case ChrW$(&HF4): sText = sPreTxt & ChrW$(&H1ED7) & Right(sText, Len(sText) - i) Case ChrW$(&HD4): sText = sPreTxt & ChrW$(&H1ED6) & Right(sText, Len(sText) - i) Case ChrW$(&H1A1): sText = sPreTxt & ChrW$(&H1EE1) & Right(sText, Len(sText) - i) Case ChrW$(&H1A0): sText = sPreTxt & ChrW$(&H1EE0) & Right(sText, Len(sText) - i) 'u Case "u": sText = sPreTxt & ChrW$(&H169) & Right(sText, Len(sText) - i) Case "U": sText = sPreTxt & ChrW$(&H168) & Right(sText, Len(sText) - i) Case ChrW$(&H1B0): sText = sPreTxt & ChrW$(&H1EEF) & Right(sText, Len(sText) - i) Case ChrW$(&H1AF): sText = sPreTxt & ChrW$(&H1EEE) & Right(sText, Len(sText) - i) 'y Case "y": sText = sPreTxt & ChrW$(&H1EF9) & Right(sText, Len(sText) - i) Case "Y": sText = sPreTxt & ChrW$(&H1EF8) & Right(sText, Len(sText) - i) End Select Case "5" Select Case sPreChar 'a Case "a": sText = sPreTxt & ChrW$(&H1EA1) & Right(sText, Len(sText) - i) Case "A": sText = sPreTxt & ChrW$(&H1EA0) & Right(sText, Len(sText) - i) Case ChrW$(&HE2): sText = sPreTxt & ChrW$(&H1EAD) & Right(sText, Len(sText) - i) Case ChrW$(&HC2): sText = sPreTxt & ChrW$(&H1EAC) & Right(sText, Len(sText) - i) Case ChrW$(&H103): sText = sPreTxt & ChrW$(&H1EB7) & Right(sText, Len(sText) - i) Case ChrW$(&H102): sText = sPreTxt & ChrW$(&H1EB6) & Right(sText, Len(sText) - i) 'e Case "e": sText = sPreTxt & ChrW$(&H1EB9) & Right(sText, Len(sText) - i) Case "E": sText = sPreTxt & ChrW$(&H1EB8) & Right(sText, Len(sText) - i) Case ChrW$(&HEA): sText = sPreTxt & ChrW$(&H1EC7) & Right(sText, Len(sText) - i) Case ChrW$(&HCA): sText = sPreTxt & ChrW$(&H1EC6) & Right(sText, Len(sText) - i) 'i Case "i": sText = sPreTxt & ChrW$(&H1ECB) & Right(sText, Len(sText) - i) Case "I": sText = sPreTxt & ChrW$(&H1ECA) & Right(sText, Len(sText) - i) 'o Case "o": sText = sPreTxt & ChrW$(&H1ECD) & Right(sText, Len(sText) - i) Case "O": sText = sPreTxt & ChrW$(&H1ECC) & Right(sText, Len(sText) - i) Case ChrW$(&HF4): sText = sPreTxt & ChrW$(&H1ED9) & Right(sText, Len(sText) - i) Case ChrW$(&HD4): sText = sPreTxt & ChrW$(&H1ED8) & Right(sText, Len(sText) - i) Case ChrW$(&H1A1): sText = sPreTxt & ChrW$(&H1EE3) & Right(sText, Len(sText) - i) Case ChrW$(&H1A0): sText = sPreTxt & ChrW$(&H1EE2) & Right(sText, Len(sText) - i) 'u Case "u": sText = sPreTxt & ChrW$(&H1EE5) & Right(sText, Len(sText) - i) Case "U": sText = sPreTxt & ChrW$(&H1EE4) & Right(sText, Len(sText) - i) Case ChrW$(&H1B0): sText = sPreTxt & ChrW$(&H1EF1) & Right(sText, Len(sText) - i) Case ChrW$(&H1AF): sText = sPreTxt & ChrW$(&H1EF0) & Right(sText, Len(sText) - i) 'y Case "y": sText = sPreTxt & ChrW$(&H1EF5) & Right(sText, Len(sText) - i) Case "Y": sText = sPreTxt & ChrW$(&H1EF4) & Right(sText, Len(sText) - i) End Select Case "6" Select Case sPreChar 'a Case "a": sText = sPreTxt & ChrW$(&HE2) & Right(sText, Len(sText) - i) Case "A": sText = sPreTxt & ChrW$(&HC2) & Right(sText, Len(sText) - i) 'e Case "e": sText = sPreTxt & ChrW$(&HEA) & Right(sText, Len(sText) - i) Case "E": sText = sPreTxt & ChrW$(&HCA) & Right(sText, Len(sText) - i) 'o Case "o": sText = sPreTxt & ChrW$(&HF4) & Right(sText, Len(sText) - i) Case "O": sText = sPreTxt & ChrW$(&HD4) & Right(sText, Len(sText) - i) End Select Case "7" Select Case sPreChar 'o Case "o": sText = sPreTxt & ChrW$(&H1A1) & Right(sText, Len(sText) - i) Case "O": sText = sPreTxt & ChrW$(&H1A0) & Right(sText, Len(sText) - i) 'u Case "u": sText = sPreTxt & ChrW$(&H1B0) & Right(sText, Len(sText) - i) Case "U": sText = sPreTxt & ChrW$(&H1AF) & Right(sText, Len(sText) - i) End Select Case "8" Select Case sPreChar 'a Case "a": sText = sPreTxt & ChrW$(&H103) & Right(sText, Len(sText) - i) Case "A": sText = sPreTxt & ChrW$(&H102) & Right(sText, Len(sText) - i) End Select Case "9" Select Case sPreChar 'd Case "d": sText = sPreTxt & ChrW$(&H111) & Right(sText, Len(sText) - i) Case "D": sText = sPreTxt & ChrW$(&H110) & Right(sText, Len(sText) - i) End Select End Select Next i Next j If InHoa Then ConvertToUnicode = UCase(sText) Else ConvertToUnicode = sText End If End Function
Đoạn code này mình cũng sưu tầm được trên net, mình đã cho thêm tham số InHoa để convert ra chữ hoa. Tuy nhiên có một điều lạ là nguyên bản của hàm (chưa thêm tham số InHoa) đã chuyển được cả chữ hoa và chữ thường nếu code trong môi trường VBA của Excel hoặc word.
VD:
ConvertToUnicode("Co65ng hoa2 xa4 ho65i chu3 nghi4a vie65t nam") -> "Cộng hòa xã hội chủ nghĩa việt nam"
ConvertToUnicode("CO65NG HOA2 XA4 HO65I CHU3 NGHI4A VIE65T NAM") -> "CỘNG HÒA XÃ HỘI CHỦ NGHĨA VIỆT NAM"
Còn trong Access thì:
ConvertToUnicode("Co65ng hoa2 xa4 ho65i chu3 nghi4a vie65t nam") -> "Cộng hòa xã hội chủ nghĩa việt nam"
ConvertToUnicode("CO65NG HOA2 XA4 HO65I CHU3 NGHI4A VIE65T NAM") -> "CộNG HOà Xã HộI CHủ NGHĩA VIệT NAM"
Các pro nghiên cứu và giải thích giùm nhé
-
11-19-2009, 03:38 AM #6Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Convert font VNI sang UNI trong ACCESS!
Xin lỗi nhé, mình nhầm mất.
Đoạn code của mình là chuyển từ VNI-DOS (chứ không phải VNI-WIN) sang UNICODE. Các PRO có code chuyển TCVN3 - UNICODE, UNICODE - TCVN3 cho mình xin nhé.
Code: VNI-DOS, VRES sang UNICODE
Mã:Option Compare Database Public Function VNI_UNI(chuoi) Dim st As String Dim a As Byte If Len(Trim(chuoi)) < 1 Or IsNull(chuoi) Then VNI_UNI = "" Else st = "" For i = 1 To Len(Trim(chuoi)) st = st + Ascii_text(Right(Left(chuoi, i), 1)) Next VNI_UNI = ConvertToUnicode(st) End If End Function Public Function Ascii_text(ch As String) VNIarray = Array(97, 225, 224, 945, 223, 915, 226, 960, 931, 963, 181, 964, 934, 920, 937, 948, 8734, 966, 101, 233, 232, 252, 228, 229, 234, 235, 239, 196, 197, 188, 111, 243, 242, 230, 198, 246, 244, 251, 255, 214, 220, 162, 8804, 8992, 8993, 247, 8776, 176, 105, 237, 238, 8976, 172, 189, 121, 949, 8745, 8801, 177, 8805, 161, 117, 250, 249, 163, 165, 8359, 402, 241, 209, 170, 186, 191, 171, 178, 8319, 8729, 9632, 8730, 183) UNIarray = Array("a", "a1", "a2", "a3", "a4", "a5", "a6", "a61", "a62", "a63", "a64", "a65", "a8", "a81", "a82", "a83", "a84", "a85", "e", "e1", "e2", "e3", "e4", "e5", "e6", "e61", "e62", "e63", "e64", "e65", "o", "o1", "o2", "o3", "o4", "o5", "o6", "o61", "o62", "o63", "o64", "o65", "o7", "o71", "o72", "o73", "o74", "o75", "i", "i1", "i2", "i3", "i4", "i5", "y", "y1", "y2", "y3", "y4", "y5", "d9", "u", "u1", "u2", "u3", "u4", "u5", "u7", "u71", "u72", "u73", "u74", "u75", "D9", "A6", "A8", "O6", "E6", "U7", "O7") For i = 0 To 79 If AscW(ch) = VNIarray(i) Then ch = UNIarray(i) End If Next Ascii_text = ch End Function Public Function ConvertToUnicode(sText As String) Dim i As Integer, j As Integer Dim sCurChar As String, sPreChar As String, sPreTxt As String For j = 1 To 2 For i = 2 To Len(sText) sCurChar = Mid(sText, i, 1) sPreTxt = Left(sText, i - 2) sPreChar = Mid(sText, i - 1, 1) Select Case sCurChar Case "1" Select Case sPreChar 'a Case "a": sText = sPreTxt & ChrW$(&HE1) & Right(sText, Len(sText) - i) Case "A": sText = sPreTxt & ChrW$(&HC1) & Right(sText, Len(sText) - i) Case ChrW$(&HE2): sText = sPreTxt & ChrW$(&H1EA5) & Right(sText, Len(sText) - i) Case ChrW$(&HC2): sText = sPreTxt & ChrW$(&H1EA4) & Right(sText, Len(sText) - i) Case ChrW$(&H103): sText = sPreTxt & ChrW$(&H1EAF) & Right(sText, Len(sText) - i) Case ChrW$(&H102): sText = sPreTxt & ChrW$(&H1EAE) & Right(sText, Len(sText) - i) 'e Case "e": sText = sPreTxt & ChrW$(&HE9) & Right(sText, Len(sText) - i) Case "E": sText = sPreTxt & ChrW$(&HC9) & Right(sText, Len(sText) - i) Case ChrW$(&HEA): sText = sPreTxt & ChrW$(&H1EBF) & Right(sText, Len(sText) - i) Case ChrW$(&HCA): sText = sPreTxt & ChrW$(&H1EBE) & Right(sText, Len(sText) - i) 'i Case "i": sText = sPreTxt & ChrW$(&HED) & Right(sText, Len(sText) - i) Case "I": sText = sPreTxt & ChrW$(&HCD) & Right(sText, Len(sText) - i) 'o Case "o": sText = sPreTxt & ChrW$(&HF3) & Right(sText, Len(sText) - i) Case "O": sText = sPreTxt & ChrW$(&HD3) & Right(sText, Len(sText) - i) Case ChrW$(&HF4): sText = sPreTxt & ChrW$(&H1ED1) & Right(sText, Len(sText) - i) Case ChrW$(&HD4): sText = sPreTxt & ChrW$(&H1ED0) & Right(sText, Len(sText) - i) Case ChrW$(&H1A1): sText = sPreTxt & ChrW$(&H1EDB) & Right(sText, Len(sText) - i) Case ChrW$(&H1A0): sText = sPreTxt & ChrW$(&H1EDA) & Right(sText, Len(sText) - i) 'u Case "u": sText = sPreTxt & ChrW$(&HFA) & Right(sText, Len(sText) - i) Case "U": sText = sPreTxt & ChrW$(&HDA) & Right(sText, Len(sText) - i) Case ChrW$(&H1B0): sText = sPreTxt & ChrW$(&H1EE9) & Right(sText, Len(sText) - i) Case ChrW$(&H1AF): sText = sPreTxt & ChrW$(&H1EE8) & Right(sText, Len(sText) - i) 'y Case "y": sText = sPreTxt & ChrW$(&HFD) & Right(sText, Len(sText) - i) Case "Y": sText = sPreTxt & ChrW$(&HDD) & Right(sText, Len(sText) - i) End Select Case "2" Select Case sPreChar 'a Case "a": sText = sPreTxt & ChrW$(&HE0) & Right(sText, Len(sText) - i) Case "A": sText = sPreTxt & ChrW$(&HC0) & Right(sText, Len(sText) - i) Case ChrW$(&HE2): sText = sPreTxt & ChrW$(&H1EA7) & Right(sText, Len(sText) - i) Case ChrW$(&HC2): sText = sPreTxt & ChrW$(&H1EA6) & Right(sText, Len(sText) - i) Case ChrW$(&H103): sText = sPreTxt & ChrW$(&H1EB1) & Right(sText, Len(sText) - i) Case ChrW$(&H102): sText = sPreTxt & ChrW$(&H1EB0) & Right(sText, Len(sText) - i) 'e Case "e": sText = sPreTxt & ChrW$(&HE8) & Right(sText, Len(sText) - i) Case "E": sText = sPreTxt & ChrW$(&HC8) & Right(sText, Len(sText) - i) Case ChrW$(&HEA): sText = sPreTxt & ChrW$(&H1EC1) & Right(sText, Len(sText) - i) Case ChrW$(&HCA): sText = sPreTxt & ChrW$(&H1EC0) & Right(sText, Len(sText) - i) 'i Case "i": sText = sPreTxt & ChrW$(&HEC) & Right(sText, Len(sText) - i) Case "I": sText = sPreTxt & ChrW$(&HCC) & Right(sText, Len(sText) - i) 'o Case "o": sText = sPreTxt & ChrW$(&HF2) & Right(sText, Len(sText) - i) Case "O": sText = sPreTxt & ChrW$(&HD2) & Right(sText, Len(sText) - i) Case ChrW$(&HF4): sText = sPreTxt & ChrW$(&H1ED3) & Right(sText, Len(sText) - i) Case ChrW$(&HD4): sText = sPreTxt & ChrW$(&H1ED2) & Right(sText, Len(sText) - i) Case ChrW$(&H1A1): sText = sPreTxt & ChrW$(&H1EDD) & Right(sText, Len(sText) - i) Case ChrW$(&H1A0): sText = sPreTxt & ChrW$(&H1EDC) & Right(sText, Len(sText) - i) 'u Case "u": sText = sPreTxt & ChrW$(&HF9) & Right(sText, Len(sText) - i) Case "U": sText = sPreTxt & ChrW$(&HD9) & Right(sText, Len(sText) - i) Case ChrW$(&H1B0): sText = sPreTxt & ChrW$(&H1EEB) & Right(sText, Len(sText) - i) Case ChrW$(&H1AF): sText = sPreTxt & ChrW$(&H1EEA) & Right(sText, Len(sText) - i) 'y Case "y": sText = sPreTxt & ChrW$(&H1EF3) & Right(sText, Len(sText) - i) Case "Y": sText = sPreTxt & ChrW$(&H1EF2) & Right(sText, Len(sText) - i) End Select Case "3" Select Case sPreChar 'a Case "a": sText = sPreTxt & ChrW$(&H1EA3) & Right(sText, Len(sText) - i) Case "A": sText = sPreTxt & ChrW$(&H1EA2) & Right(sText, Len(sText) - i) Case ChrW$(&HE2): sText = sPreTxt & ChrW$(&H1EA9) & Right(sText, Len(sText) - i) Case ChrW$(&HC2): sText = sPreTxt & ChrW$(&H1EA8) & Right(sText, Len(sText) - i) Case ChrW$(&H103): sText = sPreTxt & ChrW$(&H1EB3) & Right(sText, Len(sText) - i) Case ChrW$(&H102): sText = sPreTxt & ChrW$(&H1EB2) & Right(sText, Len(sText) - i) 'e Case "e": sText = sPreTxt & ChrW$(&H1EBB) & Right(sText, Len(sText) - i) Case "E": sText = sPreTxt & ChrW$(&H1EBA) & Right(sText, Len(sText) - i) Case ChrW$(&HEA): sText = sPreTxt & ChrW$(&H1EC3) & Right(sText, Len(sText) - i) Case ChrW$(&HCA): sText = sPreTxt & ChrW$(&H1EC2) & Right(sText, Len(sText) - i) 'i Case "i": sText = sPreTxt & ChrW$(&H1EC9) & Right(sText, Len(sText) - i) Case "I": sText = sPreTxt & ChrW$(&H1EC8) & Right(sText, Len(sText) - i) 'o Case "o": sText = sPreTxt & ChrW$(&H1ECF) & Right(sText, Len(sText) - i) Case "O": sText = sPreTxt & ChrW$(&H1ECE) & Right(sText, Len(sText) - i) Case ChrW$(&HF4): sText = sPreTxt & ChrW$(&H1ED5) & Right(sText, Len(sText) - i) Case ChrW$(&HD4): sText = sPreTxt & ChrW$(&H1ED4) & Right(sText, Len(sText) - i) Case ChrW$(&H1A1): sText = sPreTxt & ChrW$(&H1EDF) & Right(sText, Len(sText) - i) Case ChrW$(&H1A0): sText = sPreTxt & ChrW$(&H1EDE) & Right(sText, Len(sText) - i) 'u Case "u": sText = sPreTxt & ChrW$(&H1EE7) & Right(sText, Len(sText) - i) Case "U": sText = sPreTxt & ChrW$(&H1EE6) & Right(sText, Len(sText) - i) Case ChrW$(&H1B0): sText = sPreTxt & ChrW$(&H1EED) & Right(sText, Len(sText) - i) Case ChrW$(&H1AF): sText = sPreTxt & ChrW$(&H1EEC) & Right(sText, Len(sText) - i) 'y Case "y": sText = sPreTxt & ChrW$(&H1EF7) & Right(sText, Len(sText) - i) Case "Y": sText = sPreTxt & ChrW$(&H1EF6) & Right(sText, Len(sText) - i) End Select Case "4" Select Case sPreChar 'a Case "a": sText = sPreTxt & ChrW$(&HE3) & Right(sText, Len(sText) - i) Case "A": sText = sPreTxt & ChrW$(&HC3) & Right(sText, Len(sText) - i) Case ChrW$(&HE2): sText = sPreTxt & ChrW$(&H1EAB) & Right(sText, Len(sText) - i) Case ChrW$(&HC2): sText = sPreTxt & ChrW$(&H1EAA) & Right(sText, Len(sText) - i) Case ChrW$(&H103): sText = sPreTxt & ChrW$(&H1EB5) & Right(sText, Len(sText) - i) Case ChrW$(&H102): sText = sPreTxt & ChrW$(&H1EB4) & Right(sText, Len(sText) - i) 'e Case "e": sText = sPreTxt & ChrW$(&H1EBD) & Right(sText, Len(sText) - i) Case "E": sText = sPreTxt & ChrW$(&H1EBC) & Right(sText, Len(sText) - i) Case ChrW$(&HEA): sText = sPreTxt & ChrW$(&H1EC5) & Right(sText, Len(sText) - i) Case ChrW$(&HCA): sText = sPreTxt & ChrW$(&H1EC4) & Right(sText, Len(sText) - i) 'i Case "i": sText = sPreTxt & ChrW$(&H129) & Right(sText, Len(sText) - i) Case "I": sText = sPreTxt & ChrW$(&H128) & Right(sText, Len(sText) - i) 'o Case "o": sText = sPreTxt & ChrW$(&HF5) & Right(sText, Len(sText) - i) Case "O": sText = sPreTxt & ChrW$(&HD5) & Right(sText, Len(sText) - i) Case ChrW$(&HF4): sText = sPreTxt & ChrW$(&H1ED7) & Right(sText, Len(sText) - i) Case ChrW$(&HD4): sText = sPreTxt & ChrW$(&H1ED6) & Right(sText, Len(sText) - i) Case ChrW$(&H1A1): sText = sPreTxt & ChrW$(&H1EE1) & Right(sText, Len(sText) - i) Case ChrW$(&H1A0): sText = sPreTxt & ChrW$(&H1EE0) & Right(sText, Len(sText) - i) 'u Case "u": sText = sPreTxt & ChrW$(&H169) & Right(sText, Len(sText) - i) Case "U": sText = sPreTxt & ChrW$(&H168) & Right(sText, Len(sText) - i) Case ChrW$(&H1B0): sText = sPreTxt & ChrW$(&H1EEF) & Right(sText, Len(sText) - i) Case ChrW$(&H1AF): sText = sPreTxt & ChrW$(&H1EEE) & Right(sText, Len(sText) - i) 'y Case "y": sText = sPreTxt & ChrW$(&H1EF9) & Right(sText, Len(sText) - i) Case "Y": sText = sPreTxt & ChrW$(&H1EF8) & Right(sText, Len(sText) - i) End Select Case "5" Select Case sPreChar 'a Case "a": sText = sPreTxt & ChrW$(&H1EA1) & Right(sText, Len(sText) - i) Case "A": sText = sPreTxt & ChrW$(&H1EA0) & Right(sText, Len(sText) - i) Case ChrW$(&HE2): sText = sPreTxt & ChrW$(&H1EAD) & Right(sText, Len(sText) - i) Case ChrW$(&HC2): sText = sPreTxt & ChrW$(&H1EAC) & Right(sText, Len(sText) - i) Case ChrW$(&H103): sText = sPreTxt & ChrW$(&H1EB7) & Right(sText, Len(sText) - i) Case ChrW$(&H102): sText = sPreTxt & ChrW$(&H1EB6) & Right(sText, Len(sText) - i) 'e Case "e": sText = sPreTxt & ChrW$(&H1EB9) & Right(sText, Len(sText) - i) Case "E": sText = sPreTxt & ChrW$(&H1EB8) & Right(sText, Len(sText) - i) Case ChrW$(&HEA): sText = sPreTxt & ChrW$(&H1EC7) & Right(sText, Len(sText) - i) Case ChrW$(&HCA): sText = sPreTxt & ChrW$(&H1EC6) & Right(sText, Len(sText) - i) 'i Case "i": sText = sPreTxt & ChrW$(&H1ECB) & Right(sText, Len(sText) - i) Case "I": sText = sPreTxt & ChrW$(&H1ECA) & Right(sText, Len(sText) - i) 'o Case "o": sText = sPreTxt & ChrW$(&H1ECD) & Right(sText, Len(sText) - i) Case "O": sText = sPreTxt & ChrW$(&H1ECC) & Right(sText, Len(sText) - i) Case ChrW$(&HF4): sText = sPreTxt & ChrW$(&H1ED9) & Right(sText, Len(sText) - i) Case ChrW$(&HD4): sText = sPreTxt & ChrW$(&H1ED8) & Right(sText, Len(sText) - i) Case ChrW$(&H1A1): sText = sPreTxt & ChrW$(&H1EE3) & Right(sText, Len(sText) - i) Case ChrW$(&H1A0): sText = sPreTxt & ChrW$(&H1EE2) & Right(sText, Len(sText) - i) 'u Case "u": sText = sPreTxt & ChrW$(&H1EE5) & Right(sText, Len(sText) - i) Case "U": sText = sPreTxt & ChrW$(&H1EE4) & Right(sText, Len(sText) - i) Case ChrW$(&H1B0): sText = sPreTxt & ChrW$(&H1EF1) & Right(sText, Len(sText) - i) Case ChrW$(&H1AF): sText = sPreTxt & ChrW$(&H1EF0) & Right(sText, Len(sText) - i) 'y Case "y": sText = sPreTxt & ChrW$(&H1EF5) & Right(sText, Len(sText) - i) Case "Y": sText = sPreTxt & ChrW$(&H1EF4) & Right(sText, Len(sText) - i) End Select Case "6" Select Case sPreChar 'a Case "a": sText = sPreTxt & ChrW$(&HE2) & Right(sText, Len(sText) - i) Case "A": sText = sPreTxt & ChrW$(&HC2) & Right(sText, Len(sText) - i) 'e Case "e": sText = sPreTxt & ChrW$(&HEA) & Right(sText, Len(sText) - i) Case "E": sText = sPreTxt & ChrW$(&HCA) & Right(sText, Len(sText) - i) 'o Case "o": sText = sPreTxt & ChrW$(&HF4) & Right(sText, Len(sText) - i) Case "O": sText = sPreTxt & ChrW$(&HD4) & Right(sText, Len(sText) - i) End Select Case "7" Select Case sPreChar 'o Case "o": sText = sPreTxt & ChrW$(&H1A1) & Right(sText, Len(sText) - i) Case "O": sText = sPreTxt & ChrW$(&H1A0) & Right(sText, Len(sText) - i) 'u Case "u": sText = sPreTxt & ChrW$(&H1B0) & Right(sText, Len(sText) - i) Case "U": sText = sPreTxt & ChrW$(&H1AF) & Right(sText, Len(sText) - i) End Select Case "8" Select Case sPreChar 'a Case "a": sText = sPreTxt & ChrW$(&H103) & Right(sText, Len(sText) - i) Case "A": sText = sPreTxt & ChrW$(&H102) & Right(sText, Len(sText) - i) End Select Case "9" Select Case sPreChar 'd Case "d": sText = sPreTxt & ChrW$(&H111) & Right(sText, Len(sText) - i) Case "D": sText = sPreTxt & ChrW$(&H110) & Right(sText, Len(sText) - i) End Select End Select Next i Next j ConvertToUnicode = sText End Function
-
10-14-2010, 07:07 AM #7Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Các bác ơi! bác nào có code VBA: Chuyển đổi mã VNI, Unicode, TCVN3-ACB trong word cho em xin nhé! Hoặc post lên đây hoặc gửi mail cho em theo ĐC: tocmay_kn[MENTION=91118]YAHOO[/MENTION].com hay dinhthithu88[MENTION=162562]gmail[/MENTION].com. Em cảm ơn lắm lắm!
Khu dự án cao cấp Moonlight Avenue được phát triển bởi Tập đoàn Hưng Thịnh phù hợp khách hàng đẳng cấp nhất tiện ích phù hợp. Moonlight Thủ Đức phù hợp khách hàng khu an ninh phong cách nghỉ dưỡng....
Moonlight Avenue Dự án chung cư không gian thoáng mát thoải mái nhất