Chuyển font chữ từ .vntime sang unicode trong excel

[nguyengiang0191]

Em tìm hiểu mãi nhưng vẫn chưa thể chuyển mã được font chữ. Nhờ anh chị giúp đỡ ạ. Em xin chân thành cám ơn!
View attachment 1521(1).xls

 

[CHIP_XALA]

Em cũng đang bị giống y như bác. Không biết phải làm như thế nào vì em đang dùng 1 phần mềm kế toán chỉ có thể sao chép dữ liệu gửi cho sếp bằng phông chữ .vntime. nhưng trớ trêu thay là sếp lại vào kiểm tra dữ liệu bằng ipad(trên ipad không có phông chữ .vntime) nên không đọc được chữ. Bác nào có giải pháp giúp em với ạ! Thanks các bác nhiều!

 

[Ngoai Thanh]

Em cũng đang bị giống y như bác. Không biết phải làm như thế nào vì em đang dùng 1 phần mềm kế toán chỉ có thể sao chép dữ liệu gửi cho sếp bằng phông chữ .vntime. nhưng trớ trêu thay là sếp lại vào kiểm tra dữ liệu bằng ipad(trên ipad không có phông chữ .vntime) nên không đọc được chữ. Bác nào có giải pháp giúp em với ạ! Thanks các bác nhiều!

Bạn thử dùng cái này xem sao .

 

[hieuxd]

Em cũng đang bị giống y như bác. Không biết phải làm như thế nào vì em đang dùng 1 phần mềm kế toán chỉ có thể sao chép dữ liệu gửi cho sếp bằng phông chữ .vntime. nhưng trớ trêu thay là sếp lại vào kiểm tra dữ liệu bằng ipad(trên ipad không có phông chữ .vntime) nên không đọc được chữ. Bác nào có giải pháp giúp em với ạ! Thanks các bác nhiều!

Bạn dùng cách này nhé
1. Bạn có thể dùng PM Unikey (Free) để chuyển mã. Thực hiện như sau:
- Mở Unikey lên
- Chọn vùng cần chuyển mã Ctrl +C
- Ctrl + Shift + F6.
- Chọn Nguồn = TCVN3, Đích = Unicode ....
- Chuyển mã
- Ok
- Paste

 

[tqtvn0411]

Mình đang lúng túng bài tập này,xin trợ giúp!

Mình đang lúng túng giải bài này ,đã dùng hàm (if) để sử lý nhưng không thể ra kết qua chính xác,mong được giúp đỡ!
Xin cảm ơn mọi người!

 

[nguyengiang0191]

Bạn dùng cách này nhé
1. Bạn có thể dùng PM Unikey (Free) để chuyển mã. Thực hiện như sau:
- Mở Unikey lên
- Chọn vùng cần chuyển mã Ctrl +C
- Ctrl + Shift + F6.
- Chọn Nguồn = TCVN3, Đích = Unicode ....
- Chuyển mã
- Ok
- Paste

Em cũng đã làm thử như anh làm nhưng không được.hình như chỉ áp dụng được đối với word thôi sao a ak!

 

[hieuxd]

Em cũng đã làm thử như anh làm nhưng không được.hình như chỉ áp dụng được đối với word thôi sao a ak!

Trong một bảng tính bạn chỗ nhập TCVN3 chỗ nhập UNIco
Bạn phải biết bôi đen vùng nào cần chuyển trước nhé
mình thấy UNikey có thể chuyển cho excel, Cad word, ...
Bạn bôi đen phần B12:C275 rồi chuyển thử xem
Mình chuyển trước cho bạn vùng B12:C275

Lưu ý chuyển nhầm bảng mã 1 lần rồi thì rất khó chuyển lại

 

[PhanTuHuong]

Hàm này trên GPE up từ lâu rồi:

'Ham TCVN3toUNICODE, VNItoUNICODE duoc viet boi Binh - OverAC
'www.giaiphapexcel.com

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

 

[nguyengiang0191]

Hàm này trên GPE up từ lâu rồi:

'Ham TCVN3toUNICODE, VNItoUNICODE duoc viet boi Binh - OverAC
'www.giaiphapexcel.com

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

Dạ nếu không chạy code thì có chuyển được không ak? em chưa biết chạy mấy cái nè.mà em lại còn nhiều file cần chuyển nữa.Giờ em chưa biết xử lý như thế nào cho nhanh nhất để kịp thời gian.