Chuyển từ UNICODE sang TCVN3 không cần dùng Unikey

[Thanhb5240]

Gửi các bạn,
Mình dò tên Công ty qua mã số thuế Trên Google và dán vào Exel. Vấn đề là mình muốn chuyển tên cty từ Unicode về TCVN3 nhưng không muốn chuyển trong Unikey. Chi tiết như trong File đính kèm. Nhờ các bạn giúp
CHân thành cám ơn
THanh

 

[befaint]

mã số thuế

Có zời Unikey cũng không chuyển được chứ huống hồ bạn chê "không muốn chuyển trong Unikey".

Lý do: Thập niên trước, cơ quan chủ quản lập dữ liệu thuế dùng loại TCVN3 nên dữ liệu gốc bị nát bét thế rồi.

Giờ không có cách nào chuyển được. Chỉ có nước nhập lại dữ liệu gốc thôi.

 

[Thanhb5240]

Có zời Unikey cũng không chuyển được chứ huống hồ bạn chê "không muốn chuyển trong Unikey".

Lý do: Thập niên trước, cơ quan chủ quản lập dữ liệu thuế dùng loại TCVN3 nên dữ liệu gốc bị nát bét thế rồi.

Giờ không có cách nào chuyển được. Chỉ có nước nhập lại dữ liệu gốc thôi.

Cám ơn bạn đã thông báo
THanh

 

[snow25]

Gửi các bạn,
Mình dò tên Công ty qua mã số thuế Trên Google và dán vào Exel. Vấn đề là mình muốn chuyển tên cty từ Unicode về TCVN3 nhưng không muốn chuyển trong Unikey. Chi tiết như trong File đính kèm. Nhờ các bạn giúp
CHân thành cám ơn
THanh

Mình thấy mấy bạn có hàm này bạn xem dùng được không nhé.

Function TCVN3toUNICODE(vnStr As String)
Dim c As String, i As Integer
   For i = 1 To Len(vnStr)
      c = Mid(vnStr, i, 1)
      Select Case c
         Case "a": c = ChrW$(97)
         Case "¸": c = ChrW$(225)
         Case "µ": c = ChrW$(224)
         Case "¶": c = ChrW$(7843)
         Case "·": c = ChrW$(227)
         Case "¹": c = ChrW$(7841)
         Case "¨": c = ChrW$(259)
         Case "¾": c = ChrW$(7855)
         Case "»": c = ChrW$(7857)
         Case "¼": c = ChrW$(7859)
         Case "½": c = ChrW$(7861)
         Case "Æ": c = ChrW$(7863)
         Case "©": c = ChrW$(226)
         Case "Ê": c = ChrW$(7845)
         Case "Ç": c = ChrW$(7847)
         Case "È": c = ChrW$(7849)
         Case "É": c = ChrW$(7851)
         Case "Ë": c = ChrW$(7853)
         Case "e": c = ChrW$(101)
         Case "Ð": c = ChrW$(233)
         Case "Ì": c = ChrW$(232)
         Case "Î": c = ChrW$(7867)
         Case "Ï": c = ChrW$(7869)
         Case "Ñ": c = ChrW$(7865)
         Case "ª": c = ChrW$(234)
         Case "Õ": c = ChrW$(7871)
         Case "Ò": c = ChrW$(7873)
         Case "Ó": c = ChrW$(7875)
         Case "Ô": c = ChrW$(7877)
         Case "Ö": c = ChrW$(7879)
         Case "o": c = ChrW$(111)
         Case "ã": c = ChrW$(243)
         Case "ß": c = ChrW$(242)
         Case "á": c = ChrW$(7887)
         Case "â": c = ChrW$(245)
         Case "ä": c = ChrW$(7885)
         Case "«": c = ChrW$(244)
         Case "è": c = ChrW$(7889)
         Case "å": c = ChrW$(7891)
         Case "æ": c = ChrW$(7893)
         Case "ç": c = ChrW$(7895)
         Case "é": c = ChrW$(7897)
         Case "¬": c = ChrW$(417)
         Case "í": c = ChrW$(7899)
         Case "ê": c = ChrW$(7901)
         Case "ë": c = ChrW$(7903)
         Case "ì": c = ChrW$(7905)
         Case "î": c = ChrW$(7907)
         Case "i": c = ChrW$(105)
         Case "Ý": c = ChrW$(237)
         Case "×": c = ChrW$(236)
         Case "Ø": c = ChrW$(7881)
         Case "Ü": c = ChrW$(297)
         Case "Þ": c = ChrW$(7883)
         Case "u": c = ChrW$(117)
         Case "ó": c = ChrW$(250)
         Case "ï": c = ChrW$(249)
         Case "ñ": c = ChrW$(7911)
         Case "ò": c = ChrW$(361)
         Case "ô": c = ChrW$(7909)
         Case "": c = ChrW$(432)
         Case "ø": c = ChrW$(7913)
         Case "õ": c = ChrW$(7915)
         Case "ö": c = ChrW$(7917)
         Case "÷": c = ChrW$(7919)
         Case "ù": c = ChrW$(7921)
         Case "y": c = ChrW$(121)
         Case "ý": c = ChrW$(253)
         Case "ú": c = ChrW$(7923)
         Case "û": c = ChrW$(7927)
         Case "ü": c = ChrW$(7929)
         Case "þ": c = ChrW$(7925)
         Case "®": c = ChrW$(273)
         Case "A": c = ChrW$(65)
         Case "¡": c = ChrW$(258)
         Case "¢": c = ChrW$(194)
         Case "E": c = ChrW$(69)
         Case "£": c = ChrW$(202)
         Case "O": c = ChrW$(79)
         Case "¤": c = ChrW$(212)
         Case "¥": c = ChrW$(416)
         Case "I": c = ChrW$(73)
         Case "U": c = ChrW$(85)
         Case "¦": c = ChrW$(431)
         Case "Y": c = ChrW$(89)
         Case "§": c = ChrW$(272)
      End Select
      TCVN3toUNICODE = TCVN3toUNICODE + c
   Next i
End Function

=TCVN3toUNICODE(A3)

 

[batman1]

1. Tại sao bạn muốn chuyển về TCVN3? Thế kỷ 21, thời đại hội nhập toàn cầu, thì dùng unicode thôi. Hồi xưa người ta mơ không được mới phải bỏ công ra bịa những bảng mã khác nhau để hiển thị tiếng Việt. Ngày nay dâng tận miệng mà lại gạt đi?

2. Bạn đã dán thế nào vào Excel để đến nông nỗi này? Trên trang bạn đưa link tôi bôi đen -> Ctrl+C -> chọn ô Excel -> Ctrl+V thì ra bình thường (mã unicode)

 

[Thanhb5240]

1. Tại sao bạn muốn chuyển về TCVN3? Thế kỷ 21, thời đại hội nhập toàn cầu, thì dùng unicode thôi. Hồi xưa người ta mơ không được mới phải bỏ công ra bịa những bảng mã khác nhau để hiển thị tiếng Việt. Ngày nay dâng tận miệng mà lại gạt đi?

2. Bạn đã dán thế nào vào Excel để đến nông nỗi này? Trên trang bạn đưa link tôi bôi đen -> Ctrl+C -> chọn ô Excel -> Ctrl+V thì ra bình thường (mã unicode)

Thanks ban da phan hoi