• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Hàm chuyển chuỗi Unicode tiếng Việt thành Chuỗi mã Unicode trong VBA

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thư Viện Hàm
  • Hàm chuyển chuỗi Unicode tiếng Việt thành Chuỗi mã Unicode trong VBA
• Hàm chuyển chuỗi Unicode tiếng Việt thành Chuỗi mã Unicode trong VBA

• RE: Hàm chuyển chuỗi Unicode tiếng Việt thành Chuỗi mã Unicode trong VBA

  vulhu06 > 07-04-14, 09:56 AM

  (06-10-11, 04:30 PM)Noname Đã viết: Ta đã biết, trong VBA của office 2k3 về trước, ta vô phương nhập được chuỗi tiếng Việt Unicode. Đa số ta quay lại bảng mã VNI hoặc ABC.
  Tuy nhiên, theo xu hướng, càng ngày càng ít người dùng hai bảng mã này.
  Một giải pháp khác là ta thể hiện chuỗi Unicode tiếng Việt đó nhờ hàm Chrw( mã unicode)
  Ví dụ: Để nhập 1 câu sau:
  text1.value= "ngày tháng năm, một hai ba bốn, những"
  Trong VBA ta phải nhập là:
  text1.value="ngày tháng n" & ChrW(259) & "m, m" & ChrW(7897) & "t hai ba b" & ChrW(7889) & "n, nh" & ChrW(7919) & "ng"
  Việc dùng hàm này rất mất thời gian và dễ nhầm lẫn vì bảng mã Unicode có tới gần 65000 ký tự.
  
  
  
  Rất may, chúng ta có 1 hàm hỗ trợ ta dịch 1 chuỗi Unicode thành chuỗi VBA Unicode.
  
  

  Mã:

  Function VbaUni(chuoi As String) As String
If chuoi = "" Then
VbaUni = """"""
Else
chuoi = chuoi & " "
If AscW(Left(chuoi, 1)) < 256 Then VbaUni = """"
For n = 1 To Len(chuoi) - 1
uni1 = Mid(chuoi, n, 1)
uni2 = AscW(Mid(chuoi, n + 1, 1))
If AscW(uni1) > 255 And uni2 > 255 Then
VbaUni = VbaUni & "ChrW(" & AscW(uni1) & ") & "
ElseIf AscW(uni1) > 255 And uni2 < 256 Then
VbaUni = VbaUni & "ChrW(" & AscW(uni1) & ") & """
ElseIf AscW(uni1) < 256 And uni2 > 255 Then
VbaUni = VbaUni & uni1 & """ & "
Else
VbaUni = VbaUni & uni1
End If
Next
If Right(VbaUni, 4) = " & """ Then
VbaUni = Mid(VbaUni, 1, Len(VbaUni) - 4)
Else
VbaUni = VbaUni & """"
End If
End If
End Function

  
  Dưới đây là 1 ứng dụng của hàm này.
  
  
  Ta nhập chuỗi tiếng Việt vào ô phía trên, nhấn chuyển, và copy giá trị trả về ở ô phía dưới vào chỗ cần điền tiếng Việt là được!
  
  Chúc thành công!
  Download

  
  Chào anh Noname! Nhờ bài viết này mà e giải quyết được rất nhiều việc, cám ơn bác nhé
  Nhân đây xin hỏi anh em muốn nhập "&" trong label thì sao ah, em nhập vào là nó hiểu là hotkey cho chữ cái đó. Ví dụ em muốn nhập "PCC & CC" thì sao ah??

• RE: Hàm chuyển chuỗi Unicode tiếng Việt thành Chuỗi mã Unicode trong VBA

  paulsteigel > 07-04-14, 02:06 PM

  (07-04-14, 09:56 AM)vulhu06 Đã viết: Chào anh Noname! Nhờ bài viết này mà e giải quyết được rất nhiều việc, cám ơn bác nhé
  Nhân đây xin hỏi anh em muốn nhập "&" trong label thì sao ah, em nhập vào là nó hiểu là hotkey cho chữ cái đó. Ví dụ em muốn nhập "PCC & CC" thì sao ah??

  Bạn chỉ cần nhân đôi chữ &. Ví dụ "BKH && ĐT", "PC && CC"
  Thân!

• RE: Hàm chuyển chuỗi Unicode tiếng Việt thành Chuỗi mã Unicode trong VBA

  vulhu06 > 08-04-14, 08:17 PM

  (07-04-14, 02:06 PM)paulsteigel Đã viết:

  (07-04-14, 09:56 AM)vulhu06 Đã viết: Chào anh Noname! Nhờ bài viết này mà e giải quyết được rất nhiều việc, cám ơn bác nhé
  Nhân đây xin hỏi anh em muốn nhập "&" trong label thì sao ah, em nhập vào là nó hiểu là hotkey cho chữ cái đó. Ví dụ em muốn nhập "PCC & CC" thì sao ah??

  Bạn chỉ cần nhân đôi chữ &. Ví dụ "BKH && ĐT", "PC && CC"
  Thân!

  
  Oh, cảm ơn rất nhiều

• RE: Hàm chuyển chuỗi Unicode tiếng Việt thành Chuỗi mã Unicode trong VBA

  tranthanhan1962 > 29-08-19, 08:06 AM

  Trước giờ hàm này vẫn OK, nhưng mình vừa mới phát hiện nó bị lỗi một số ký tự, trước mắt là chữ â, chữ ê.
  Ví dụ khi đổi chuỗi:
  MsgBox "Đang ở mẫu tiên đầu tiên", vbExclamation, "Ân Soft",
  Sau khi chuyễn mã nó trở thành:
  MsgBox ChrW(272) & "ang " & ChrW(7903) & " m" & ChrW(7851) & "u tin " & ChrW(273) & ChrW(7847) & "u tiên", vbExclamation, "Ân Soft"
  Nhưng khi hiển thị thì nó như thế này:
  
  tìm tới tìm lui thì thấy mã unicode của â và ê vẫn là â và ê chứ không còn mã nào khác, Noname có cách nào xử lý không hay tại do windows 10 và access 2019

• RE: Hàm chuyển chuỗi Unicode tiếng Việt thành Chuỗi mã Unicode trong VBA

  Noname > 29-08-19, 10:37 AM

  Em nghĩ là do bộ font Unicode, bên em chữ Â và ê hiện bình thường, những chữ khác lại lỗi.
  mà giờ đang bận quá chưa xem được

• RE: Hàm chuyển chuỗi Unicode tiếng Việt thành Chuỗi mã Unicode trong VBA

  tranthanhan1962 > 29-08-19, 10:45 AM

  Mình thử lại bằng cách tạo một table rồi dùng dlookup lấy kết quả tiếng Việt từ trong table thì không bị lỗi nữa

• RE: Hàm chuyển chuỗi Unicode tiếng Việt thành Chuỗi mã Unicode trong VBA

  ongke0711 > 29-08-19, 12:09 PM

  Anh đổi lại thử xem
  
  -  â -> ChrW$(226) 
  -  ê -> ChrW$(234)

• RE: Hàm chuyển chuỗi Unicode tiếng Việt thành Chuỗi mã Unicode trong VBA

  tranthanhan1962 > 29-08-19, 12:23 PM

  Good! hay quá ta, cảm ơn nhiều. Định hỏi ongke0711 tìm đâu ra hay vậy? Bổng nhiên nghĩ ra một cách, Mở Word lên, record macro rồi gõ chuỗi tiếng Việt. Xong, xem code macro đó. Copy kết quả là OK

• RE: Hàm chuyển chuỗi Unicode tiếng Việt thành Chuỗi mã Unicode trong VBA

  ongke0711 > 29-08-19, 01:08 PM

  Windows dùng CP1252 codepage nên anh cứ đối chiếu cái table charset của nó mà lấy CharNum.
  
  https://mainfacts.com/charset-characters...ndows-1252

• RE: Hàm chuyển chuỗi Unicode tiếng Việt thành Chuỗi mã Unicode trong VBA

  Noname > 29-08-19, 02:27 PM

  TRong Windows có sẵn phần mềm Character map đó, mình click vào ô nào nó hiện lên mã unicode của kí tự đó theo thập lục phân.
  ê => U+00EA
  Ta thấy EA = 14*16+10=234
  => code của ê = 234
  Tương tự:
  â => U + E2=> E2=16*14+2=226
  code của â = 226
  
  Ngoài ra ta còn tìm thấy phím tắt của key đó: ví dụ:
  Ví dụ: Ø => Alt + 0216
• Bài trước Bài tiếp