Em dùng bên Excel MacOS thì không được chuẩn như Excel Windows ah (1 người xem)

[Lequocvan]

Em có biết đoạn code sau của anh Bình OverAC, dùng trên Excel Windows thì vô tư nhưng em copy đoạn code sau sang Excel MacOS thì không được. Mong mọi người chỉ giúp em cách với ah? Em muốn dùng hàm chuyển đoạn text .VnTime TCVN3 sang UNICODE ah.
(Để sau khi có UNICODE thì em dùng lệnh với mysql workbench: INSERT INTO `ipcas_thunhap_theo_kh`.`thunhap_tk7_theo_kh` (`Tr.Date`, `Tr.Brcd`, `Custseq`, `CustName`, `Custtpcd`, `Locac`, `Dr.Amount`, `Cr.Amount`) VALUES ('20190131', '1507', '1507-010176388', 'Nguyễn Thị Khánh Ly', '100', '711001', '0', '1000')

NguyÔn ThÞ Kh¸nh Ly => Nguyễn Thị Khánh Ly

'Ham TCVN3toUNICODE, VNItoUNICODE duoc viet boi Binh - OverAC
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 "fl": 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 "fi": 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

 

[AutoReply]

Mới mấy dòng đầu tiên đã thấy khác nhau mà sao code chạy được trên Windows hay vậy bạn ?

 

[batman1]

Mới mấy dòng đầu tiên đã thấy khác nhau mà sao code chạy được trên Windows hay vậy bạn ?

Cái này theo tôi là do tác giả code thôi. Tác giả gõ trực tiếp các ký tự unicode trong VBE nên tùy theo máy mà chúng sẽ bị biến dạng.

Giả sử tác giả gõ "***" (vd. ký tự ở Case thứ 2). Nhưng khi tôi copy về và dán vào tập tin của tôi trong VBE thì nó lại là ký tự khác rồi nếu thiết lập của tôi khác một chút ở đâu đó.

Vd. tôi copy code từ trang GPE -> chuyển sang Excel vào VBE tôi dán thì có như hình. Một số ký tự bị biến thành dấu hỏi. Nếu chủ thớt dán code vào máy mình mà có biến dạng chút thì sau khi copy và paste vào trang GPE để hỏi thì code đã bị biến dạng rồi: cả khi copy từ đâu đó (vd. từ tác giả code, trang GPE) về máy mình, và cả khi copy sau đó từ máy mình rồi paste ở đâu đó (vd. trang GPE).

 

[VetMini]

Tôi xài Mac OS nè. Nhìn cái code loại "magic numbers" như thế là biết nó không thuộc dạng "ở đâu xài cũng được" rồi. Không bận bịu chi nữa cho mất công.