Chuyển font chữ của TCVN3 sang font chữ của Unicode trực tiếp trên excel

Cao Cường
Cao Cường
Apr 28 2022

Bài viết này sẽ hướng dẫn các bạn chuyển font chữ thuộc bảng mã TCVN3 sang font chữ thuộc bảng mã Unicode trực tiếp trên excel mà không phải dùng các phần mềm thứ ba như Unikey…

Trước khi vào nội dung chính của bài viết mình sẽ giới thiệu qua một vài khái niệm cơ bản cho các bạn dễ hình dung hơn.

Font chữ là gì?

Font chữ là kiểu chữ mà bạn dùng để soạn thảo văn bản, hiện nay có rất nhiều font chữ khác nhau, phổ biến và được sử dụng để soạn thảo văn bản nhiều nhất phải để đến là Arial, Time New Roman…

font-chu-cua-unicode

Bảng mã là gì?

Bảng mã hiểu đơn giản là tập hợp gồm nhiều font chữ khác nhau, có nhiều bảng mã nhưng phổ biến nhất gồm ba loại sau:

  • Unicode: Gồm các font chữ như Arial, Time New Roman…
  • TCVN3: Gồm các font chữ bắt đầu bằng dấu chấm như .VnTime, .VnArial…
  • VNI-Windows: Gồm các font chữ bắt đầu bằng chữ VNI như Vni-Times, Vni-NTime…

Những trường hợp nào cần chuyển font chữ?

Với nhiều người thì sẽ có nhiều mục đích, lý do khác nhau dẫn đến cần phải chuyển font chữ nhưng mình thì thấy như thế này, đối với các font chữ thuộc bảng mã Unicode thì nó có sẵn trên hệ điều hành Windows rồi, do vậy nếu bạn nhận một văn bản nào đó người khác họ gửi cho bạn, nếu máy tính bạn không có font chữ đó thì bạn cũng có thể đọc được bằng cách chọn lại font chữ như Arial…hoặc đơn giản máy tính bạn cũng hiển thị cho bạn đọc được (Trên các hệ điều hành mới như Windows 10, Windows 11).

Nhưng khi bạn nhận được hoặc khi bạn gửi file cho một ai đó mà sử dụng các font chữ thuộc bảng mã như TCVN3, VNI-Windows, lúc này nếu máy tính họ không có font chữ thuộc bảng mả đó thì sẽ không đọc được, vì các font chữ thuộc hai bảng mã này mặc định không có khi máy tính cài xong hệ điều hành Windows, mà bắt buộc bạn phải tải font chữ và cài thêm vào, và không phải ai cũng hiểu điều này, do vậy chúng ta cần lưu ý khi gửi văn bản đi nếu sử dụng font chữ nói trên bằng hai cách cơ bản sau:

  • Cách 1: Khi gửi kèm file bạn hãy gửi kèm luốn font chữ và thông báo người nhận vài vào nếu chưa có, hoặc bạn nhúng luôn font chữ đó vào file (cách này mình sẽ viết một bài khác nhé).
  • Cách 2: Chuyển đổi font chữ trước khi gửi file đi, và đây chính là nội dung chính của bài viết này.

Chuyển font chữ của TCVN3 sang Unicode

font-chu-cua-unicode

Bước 1: Vào Developer\Visual Basic

Mẹo: Bạn cũng có thể nhấn phím tắt Alt + F11 để mở nhanh chương trình vba

font-chu-cua-unicode

Bước 2: Chọn Insert\Module

font-chu-cua-unicode

Bước 3: Copy đoạn code sau dán vào khung soạn thảo (Đây là đoạn code mình sưu tầm và đã kiểm tra, chạy thử thành công nên các bạn yên tâm sử dụng)

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

Như thế này

font-chu-cua-unicode

Bước 4: Quay trở lại file excel, ở ô D2 nhập công thức =TCVN3toUNICODE(C2) vào và nhấn enter

font-chu-cua-unicode

Kết quả 

font-chu-cua-unicode

Kết luận

Như vậy là mình vừa giới thiệu với các bạn cách chuyển đổi từ font chữ thuộc bảng mã TCVN3 sang font chữ thuộc bảng mã Unicode rồi, nếu có thắc mắc gì hãy bình luận bên dưới bài viết nhé.

 

0/5 - (0 bình chọn)

0/5 - (0 bình chọn)

Bài viết liên quan

Cách ứng dụng hàm INT và MOD cho lễ tân và các công việc khác

Cách ứng dụng hàm INT và MOD cho lễ tân và các công việc khác

Hướng dẫn cách tách địa chỉ ra khỏi chuỗi

Hướng dẫn cách tách địa chỉ ra khỏi chuỗi

CÁCH TÍNH ĐIỂM TRUNG BÌNH VÀ XẾP LOẠI TRONG EXCEL (KÈM BÀI TẬP)

CÁCH TÍNH ĐIỂM TRUNG BÌNH VÀ XẾP LOẠI TRONG EXCEL (KÈM BÀI TẬP)

Hướng dẫn kiểm tra giá trị trùng lặp cực đơn giản trên Excel 2010, 2013, 2016, 2019

Hướng dẫn kiểm tra giá trị trùng lặp cực đơn giản trên Excel 2010, 2013, 2016, 2019

Cách cộng, trừ ngày tháng năm trong Excel để tính số ngày siêu nhanh cho kế toán

Cách cộng, trừ ngày tháng năm trong Excel để tính số ngày siêu nhanh cho kế toán

Hướng dẫn 4 cách bôi đen trong Excel đơn giản và nhanh chóng

Hướng dẫn 4 cách bôi đen trong Excel đơn giản và nhanh chóng

@ 2020 - Bản quyền của Công ty cổ phần công nghệ giáo dục Gitiho Việt Nam
Giấy chứng nhận Đăng ký doanh nghiệp số: 0109077145, cấp bởi Sở kế hoạch và đầu tư TP. Hà Nội