Tiếng Nhật trong VBA (1 người xem)

[platuan]

Các bạn cao thủ giúp mình thể hiện tiếng Nhật trong VBA nha.

Khi mình gõ 今日 vào VBA thì nó hiện ra ??.

 

[Hai Lúa Miền Tây]

Các bạn cao thủ giúp mình thể hiện tiếng Nhật trong VBA nha.

Khi mình gõ 今日 vào VBA thì nó hiện ra ??.

Bạn không thể đánh trực tiếp vào, bạn thử như sau:

Sub test()
[a1] = ChrW(20170) & ChrW(26085)

End Sub

 

[platuan]

Bạn không thể đánh trực tiếp vào, bạn thử như sau:

Sub test()
[a1] = ChrW(20170) & ChrW(26085)

End Sub

Bạn giúp mình các từ sau nha.
大阪
様
①
モービル

Hoặc bạn chỉ giúp mình cách tra được ko?
Thanks bạn

 

[ndu96081631]

Bạn giúp mình các từ sau nha.
大阪
様
①
モービル

Hoặc bạn chỉ giúp mình cách tra được ko?
Thanks bạn

Cách làm chung:
- Đầu tiên bạn cho code dưới đây vào 1 Module:

Function CodeW(Text As String)
  Dim i As Long, Temp
  ReDim Temp(1 To Len(Text))
  For i = 1 To Len(Text)
    Temp(i) = AscW(Mid(Text, i, 1))
  Next
  CodeW = Temp
End Function

- Xong, bạn cứ gõ từng chữ tiếng Nhật ấy vào cột A
- Tại cột B, gõ công thức =CodeW(A1) ---> Kéo fill xuống để lấy mã code nhé

 

[jack nt]

tạo 1 UserForm tên là Nihon có các TextBoxes:

Kyou, Ohsaka, Sama, Mobiru

nhập vào các chữ Nhật tương ứng: 今日, 大阪, 様, モービル

xuất ra bằng cách gọi Nihon.Kyou, Nihon.Ohsaka, Nihon.Sama, Nihon.Mobiru. Viết theo lối Unicode rối lắm bạn ạ.