Hỏi về Unicode trong VBA (1 người xem)

[tamthat]

Mình có tìm được hàm như sau:

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

Mình chuyển từ: ngày tháng năm thành ngày tháng n" & ChrW(259) & "m rồi, bây h mình muốn chuyển ngược lại từ ngày tháng n" & ChrW(259) & "m thành ngày tháng năm
thì mình phải làm thế nào?
P/s: Cells A1 của mình có chữ ngày tháng năm và mình muốn hiện nó lên msgbox đúng theo tiếng việt. Mong mọi người giúp đỡ

 

[Gió Đông]

thì

Msgbox "[COLOR=#000000][I][B]ngày tháng n" & ChrW(259) & "m"

[/B]

hoặc

Msgbox [B]univba([A1].value)
[/B]

[/I][/COLOR]

 

[tamthat]

Ẹc, nó ra "ngày tháng n" & ChrW(259) & "m" chứ có ra ngày tháng năm đâu bạn
P/s: đợt này diễn đàn mất nút thanks à các bạn?
Theo như cách làm của bạn, chữ thời tiết sẽ được hiển thị là

 

[Gió Đông]

Ẹc, nó ra "ngày tháng n" & ChrW(259) & "m" chứ có ra ngày tháng năm đâu bạn
P/s: đợt này diễn đàn mất nút thanks à các bạn?
Theo như cách làm của bạn, chữ thời tiết sẽ được hiển thị là
View attachment 173538

Vậy tìm cách khác trên diễn đàn nhé

Nhưng tốt nhất là làm Hộp thoại (vẽ form) riêng cho mình (tôi thường làm thế) không dùng Msgbox nếu động dến tiếng Việt