Tùy chọn
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
Noname > 29-08-19, 03:57 PM
Mình chuối vãi, Excel có hàm Hex2Dec để chuyển từ thập lục phân ra thập phân.
Sau khi thấy mã code trong Character Map, qua Excel chuyển thành thập phân là được:
= HEX2DEC(EA) => kết quả: 234
Access thì có thể dùng hàm: CLng("&H+CodeHex ") với Codehex lấy được từ Character Map.
Ví dụ: CLng("&HEA") =234 -
RE: Hàm chuyển chuỗi Unicode tiếng Việt thành Chuỗi mã Unicode trong VBA
maidinhdan > 14-05-20, 02:15 PM
Bổ sung Demo khắc phục lỗi không thể chuyển một số từ:
[Thủ Thuật] [Demo-Phần 2] Chuyển chữ Uni to ChrW để hiện thông báo tiếng việt
![[Hình: DemohinhUnitoChrPhan2.png]](https://sites.google.com/site/thuthuataccessdemoanh/home/demo-anh-access/DemohinhUnitoChrPhan2.png)
-
RE: Hàm chuyển chuỗi Unicode tiếng Việt thành Chuỗi mã Unicode trong VBA
tranthanhan1962 > 10-06-23, 10:16 PM
Tôi bị lỗi này mà xử lý mãi không xong. Tôi sử dụng bộ gõ telex của window 11. Khi sử dụng tool của Nonam thì nó dịch chữ [ợ] ra thành ChrW(7907). dùng MsgBoxUni để chuyển ra thông báo thì nó dịch ChrW(7907) thành [ś]. vào word kiểm tra thì đúng là chữ [ợ] là ChrW(7907) thật.Có khi nào MsgBoxUni bị lỗi không nhỉ? -
RE: Hàm chuyển chuỗi Unicode tiếng Việt thành Chuỗi mã Unicode trong VBA
ongke0711 > 11-06-23, 09:57 AM
(10-06-23, 10:16 PM)tranthanhan1962 Đã viết: Tôi bị lỗi này mà xử lý mãi không xong. Tôi sử dụng bộ gõ telex của window 11. Khi sử dụng tool của Nonam thì nó dịch chữ [ợ] ra thành ChrW(7907). dùng MsgBoxUni để chuyển ra thông báo thì nó dịch ChrW(7907) thành [ś]. vào word kiểm tra thì đúng là chữ [ợ] là ChrW(7907) thật.Có khi nào MsgBoxUni bị lỗi không nhỉ?
Anh dùng cái hàm MsgboxUni() này xem thử.
Mã PHP:Option Explicit
#If VBA7 Then
Private Declare PtrSafe Function GetActiveWindow Lib "user32" () As LongPtr
Public Declare PtrSafe Function MessageBoxW Lib "user32" _
(ByVal hwnd As LongPtr, _
ByVal lpText As LongPtr, _
ByVal lpCaption As LongPtr, _
ByVal wType As Long) As Long
#Else
Private Declare Function GetActiveWindow Lib "user32" () As Long
Public Declare Function MessageBoxW Lib "user32" _
(ByVal hwnd As Long, _
ByVal lpText As Long, _
ByVal lpCaption As Long, _
ByVal wType As Long) As Long
#End If
Public Function MsgBoxUni(ByVal sMsgUni As String, Optional ByVal Buttons As VbMsgBoxStyle = vbOKOnly, Optional ByVal sTitleUni As String = "Thông báo") As VbMsgBoxResult
MsgBoxUni = MessageBoxW(GetActiveWindow, StrPtr(sMsgUni), StrPtr(sTitleUni), Buttons)
End Function -
RE: Hàm chuyển chuỗi Unicode tiếng Việt thành Chuỗi mã Unicode trong VBA
AnNguyen > 13-06-23, 08:51 AM
(11-06-23, 09:57 AM)ongke0711 Đã viết:
(10-06-23, 10:16 PM)tranthanhan1962 Đã viết: Tôi bị lỗi này mà xử lý mãi không xong. Tôi sử dụng bộ gõ telex của window 11. Khi sử dụng tool của Nonam thì nó dịch chữ [ợ] ra thành ChrW(7907). dùng MsgBoxUni để chuyển ra thông báo thì nó dịch ChrW(7907) thành [ś]. vào word kiểm tra thì đúng là chữ [ợ] là ChrW(7907) thật.Có khi nào MsgBoxUni bị lỗi không nhỉ?
Anh dùng cái hàm MsgboxUni() này xem thử.
Mã PHP:Option Explicit
#If VBA7 Then
Private Declare PtrSafe Function GetActiveWindow Lib "user32" () As LongPtr
Public Declare PtrSafe Function MessageBoxW Lib "user32" _
(ByVal hwnd As LongPtr, _
ByVal lpText As LongPtr, _
ByVal lpCaption As LongPtr, _
ByVal wType As Long) As Long
#Else
Private Declare Function GetActiveWindow Lib "user32" () As Long
Public Declare Function MessageBoxW Lib "user32" _
(ByVal hwnd As Long, _
ByVal lpText As Long, _
ByVal lpCaption As Long, _
ByVal wType As Long) As Long
#End If
Public Function MsgBoxUni(ByVal sMsgUni As String, Optional ByVal Buttons As VbMsgBoxStyle = vbOKOnly, Optional ByVal sTitleUni As String = "Thông báo") As VbMsgBoxResult
MsgBoxUni = MessageBoxW(GetActiveWindow, StrPtr(sMsgUni), StrPtr(sTitleUni), Buttons)
End Function
Em hiện tại cũng đang dùng hàm này anh ạ.
Nhưng có 1 vài máy mà dùng windown cũ hơn nó có vài ký tự lạ. còn lại ok hết.