Hàm chuyển Chuỗi UNICODE sang Code VBA

tranhoe · Đăng lúc 7/8/2014 10:20

Hãy đăng nhập để có nhiều chức năng hữu dụng hơn và xem ảnh rõ hơn!

Bạn phải đăng nhập để xem được nội dung, nếu bạn chưa có tài khoản? hãy Đăng ký mới

x

Do VBA không hổ trợ font UNICODE do đó khi viết code sẽ rất khó khăn.
Dưới đây là Hàm (do người dùng viết) mình sưu tầm đã lâu mà không nhớ nguồn, giới thiệu với các Bạn.
Chỉ cần copy lại và dán vào cửa sổ soạn thảo VBA. Rất tiện lợi.

Cú pháp của hàm: =UNItoVBA(MyStr As String)

[Visual Basic] 纯文本查看 复制代码

Function UNItoVBA(ByVal MyStr As String) As String
     'Chuyen chuoi tu UNICODE sang Code VBA
     Dim Str As String, i As Integer, CStart As Integer, CCount As Integer, Status As Boolean
     Str = "-225-224-7843-227-7841-259-7855-7857-7859-7861-7863-226-7845-7847-7849-7851-7853-273-233-232-7867-7869-7865-234-7871-7873-7875-7877-7879-237-236-7881-297-7883-243-242-7887-245-7885-244-7889-7891-7893-7895-7897-417-7899-7901-7903-7905-7907-250-249-7911-361-7909-432-7913-7915-7917-7919-7921-253-7923-7927-7929-7925-193-192-7842-195-7840-258-7854-7856-7858-7860-7862-194-7844-7846-7848-7850-7852-272-201-200-7866-7868-7864-202-7870-7872-7874-7876-7878-205-204-7880-296-7882-211-210-7886-213-7884-212-7888-7890-7892-7894-7896-416-7898-7900-7902-7904-7906-218-217-7910-360-7908-431-7912-7914-7916-7918-7920-221-7922-7926-7928-7924-10-"
     For i = 1 To Len(MyStr)
          If InStr(Str, "-" & AscW(Mid(MyStr, i, 1)) & "-") = 0 Then
               If Not Status Then
                    CStart = i:        Status = True
               End If
               CCount = CCount + 1
          Else
               If Status Then UNItoVBA = UNItoVBA & IIf(UNItoVBA = "", "", " & ") & """" & Replace(Mid(MyStr, CStart, CCount), """", """""") & """"
               Status = False
               CCount = 0
               UNItoVBA = UNItoVBA & IIf(UNItoVBA = "", "", " & ") & "ChrW(" & AscW(Mid(MyStr, i, 1)) & ")"
          End If
     Next
     If Status Then UNItoVBA = UNItoVBA & IIf(UNItoVBA = "", "", " & ") & """" & Replace(Mid(MyStr, CStart, CCount), """", """""") & """"
End Function

File đính kèm:

UNItoVBA.xls (28.5 KB, Lượt tải về: 3147)

tranhungdao12a3 · Đăng lúc 9/8/2014 09:16

Anh TranHoe có thể chú thích cho em biết các số sau:
"225-224-7843-227-7841-259-7855-7857-7859-7861-7863-226-7845-7847-7849-7851-7853-273-233-232-7867-7869-7865-234-7871-7873-7875-7877-7879-237-236-7881-297-7883-243-242-7887-245-7885-244-7889-7891-7893-7895-7897-417-7899-7901-7903-7905-7907-250-249-7911-361-7909-432-7913-7915-7917-7919-7921-253-7923-7927-7929-7925-193-192-7842-195-7840-258-7854-7856-7858-7860-7862-194-7844-7846-7848-7850-7852-272-201-200-7866-7868-7864-202-7870-7872-7874-7876-7878-205-204-7880-296-7882-211-210-7886-213-7884-212-7888-7890-7892-7894-7896-416-7898-7900-7902-7904-7906-218-217-7910-360-7908-431-7912-7914-7916-7918-7920-221-7922-7926-7928-7924-10"
Trong hàn UnitoVBA của anh tương ứng với các ký tự nào không? Ví dụ em muốn viết "Â","Ơ","Ê",... em không biết là lấy số nào trong chuỗi số trên!
Thanks Anh!

tranhoe · Đăng lúc 9/8/2014 10:35

tranhungdao12a3 gửi lúc 9/8/2014 09:16
Anh TranHoe có thể chú thích cho em biết các số sau:
"225-224-7843-227-7841-259-7855-7857-785 ...

Trong VBA:
- Muốn biết một ký tự có charcode là bao nhiêu thì dùng hàm AscW
- Muốn biết một ký tự tương ứng với charcode là ký tự gì thì dùng hàm ChrW$
Xem trong file đính kèm sẽ hiểu

[Visual Basic] 纯文本查看 复制代码

Function chcode(text)
    chcode = AscW(text)
End Function

Function txt(vrange As Long) As String
    txt = ChrW$(vrange)
End Function

Bảng charcode:

Bang charcode.xls (83.5 KB, Lượt tải về: 2339)

Tài khoản		Ghi nhớ?	Quên mật khẩu
Mật khẩu			Đăng ký mới

Hàm chuyển Chuỗi UNICODE sang Code VBA

Hãy đăng nhập để có nhiều chức năng hữu dụng hơn và xem ảnh rõ hơn!

Đánh giá

Cảm ơn!

Cảm ơn!