• Downloading from our site will require you to have a paid membership. Upgrade to a Premium Membership from 10$ a month today!

    Dont forget read our Rules! Also anyone caught Sharing this content will be banned. By using this site you are agreeing to our rules so read them. Saying I did not know is simply not an excuse! You have been warned.

Hướng dẫn gõ tiếng việt có dấu trên vba - Fix lỗi font tiếng việt excel vba

Admin

Well-Known Member
Staff member
Administrator
Chào các bạn. hôm nay tuoitreit.vn xin hướng dẫn các bạn cách gõ tiếng việt có dấu trên vba

Để không bị lỗi font khi gõ tiếng việt có dấu trên excel vba bạn nhấn tổ hợp phím Fn + Alt + F11 để mở Macro và dán code sau
Code:
Function ChuyenDoi(Text As String, InputMethod As String) As String
  Dim VNI_Type, Telex_Type, CharCode, Temp, i As Long
  ChuyenDoi = Text
  VNI_Type = Array("a81", "a82", "a83", "a84", "a85", "a61", "a62", "a63", "a64", "a65", "e61", _
      "e62", "e63", "e64", "e65", "o61", "o62", "o63", "o64", "o65", "o71", "o72", "o73", "o74", _
      "o75", "u71", "u72", "u73", "u74", "u75", "a1", "a2", "a3", "a4", "a5", "a8", "a6", "d9", _
      "e1", "e2", "e3", "e4", "e5", "e6", "i1", "i2", "i3", "i4", "i5", "o1", "o2", "o3", "o4", _
      "o5", "o6", "o7", "u1", "u2", "u3", "u4", "u5", "u7", "y1", "y2", "y3", "y4", "y5")
  Telex_Type = Array("aws", "awf", "awr", "awx", "awj", "aas", "aaf", "aar", "aax", "aaj", "ees", _
      "eef", "eer", "eex", "eej", "oos", "oof", "oor", "oox", "ooj", "ows", "owf", "owr", "owx", _
      "owj", "uws", "uwf", "uwr", "uwx", "uwj", "as", "af", "ar", "ax", "aj", "aw", "aa", "dd", _
      "es", "ef", "er", "ex", "ej", "ee", "is", "if", "ir", "ix", "ij", "os", "of", "or", "ox", _
      "oj", "oo", "ow", "us", "uf", "ur", "ux", "uj", "uw", "ys", "yf", "yr", "yx", "yj")
  CharCode = Array(ChrW(7855), ChrW(7857), ChrW(7859), ChrW(7861), ChrW(7863), ChrW(7845), ChrW(7847), _
      ChrW(7849), ChrW(7851), ChrW(7853), ChrW(7871), ChrW(7873), ChrW(7875), ChrW(7877), ChrW(7879), _
      ChrW(7889), ChrW(7891), ChrW(7893), ChrW(7895), ChrW(7897), ChrW(7899), ChrW(7901), ChrW(7903), _
      ChrW(7905), ChrW(7907), ChrW(7913), ChrW(7915), ChrW(7917), ChrW(7919), ChrW(7921), ChrW(225), _
      ChrW(224), ChrW(7843), ChrW(227), ChrW(7841), ChrW(259), ChrW(226), ChrW(273), ChrW(233), ChrW(232), _
      ChrW(7867), ChrW(7869), ChrW(7865), ChrW(234), ChrW(237), ChrW(236), ChrW(7881), ChrW(297), ChrW(7883), _
      ChrW(243), ChrW(242), ChrW(7887), ChrW(245), ChrW(7885), ChrW(244), ChrW(417), ChrW(250), ChrW(249), _
      ChrW(7911), ChrW(361), ChrW(7909), ChrW(432), ChrW(253), ChrW(7923), ChrW(7927), ChrW(7929), ChrW(7925))
  Select Case InputMethod
    Case Is = "VNI": Temp = VNI_Type
    Case Is = "Telex": Temp = Telex_Type
  End Select
  For i = 0 To UBound(CharCode)
    ChuyenDoi = Replace(ChuyenDoi, Temp(i), CharCode(i))
    ChuyenDoi = Replace(ChuyenDoi, UCase(Temp(i)), UCase(CharCode(i)))
  Next i
End Function

Để dùng hàm bạn chỉ cần nhập ChuyenDoi("Nội dung","Telex")
Mình có chia sẻ file bên dưới cho ai chưa làm được
Tải xuống fshare
Hidden content
You need to react to this post in order to see this content.
Mọi thắc mắc vui lòng phản hồi bên dưới
Chúc các bạn thành công!
 

Facebook Comments

Similar threads
Thread starter Title Forum Replies Date
Admin Download Unikey 4.2 RC1 cho Windows 8.1 - Phần mềm gõ tiếng việt tốt nhất hiện nay Phần mềm 1
Admin Hướng dẫn gõ tiếng việt trên AAA Logo Sử dụng, chia sẻ, hỏi đáp 0
Admin Share bộ gõ tiếng việt cho IPB mọi phiên bản JavaScript / Ajax 0
Admin Share add-ons bộ gõ tiếng việt cho xenforo Xenforo 0
Admin Laban Key, thêm một lựa chọn bộ gõ tiếng Việt tốt cho anh em dùng Android Android, iOS 0
Admin Galaxy Note 3 đã có bộ gõ tiếng Việt kiểu Telex và VNI Tin tức CNTT 0
Admin Bộ gõ tiếng việt avim vbb4 Add-ons 0
Admin UniKey 4.0.8 Final phần mềm gõ tiếng việt Phần mềm 0
S [New]Bộ gõ Tiếng Việt s60v3 dành cho người Việt S60 0
Admin Bộ gõ tiếng việt cho S60v3 S60 0
Admin Share code gõ tiếng việt có dấu cho xtgem Wap builder, wapego, xtgem, wen.ru, wapka, wap4 0
Admin Share code gõ tiếng việt có dấu Mã nguồn wap 1
katy Android mobifoneGo: Tết xài data – Thần tài gõ cửa Thông tin các mạng di động 2
Admin Thủ thuật giúp gõ phím nhanh hơn trên windows phone Windows phone 0
Admin Share bộ gõ của vn-zoom JavaScript / Ajax 0
mày.hả.bưởi Share Code gõ tv online trên web cực khủng All Shared Scripts 3
Admin Bộ gõ avim vbb 4.x.x Add-ons 0
Admin Bộ gõ mudim bản mới nhất cho vbb3, vbb4 đã fix lỗi con trỏ nhảy về đầu dòng Add-ons 0
S Hacker cải thiện gõ văn bản trên iPad, iPhone Mạng internet 0
Admin “Bí kíp” gõ máy tính “siêu tốc” cho dân văn phòng Sử dụng, chia sẻ, hỏi đáp 1
katy Android Cùng MobiEdu cải thiện Tiếng Anh, Chinh phục chứng chỉ quốc tế Cambridge Điện thoại di động 10
katy MobiEnglish: Học Tiếng anh và lướt mạng thả ga chỉ 100k/tháng Tin tức, giới thiệu về ĐTDĐ 77
katy Android Học tiếng Anh cực đỉnh – cùng MobiEnglish chỉ 159k/tháng Điện thoại di động 8
katy Android MobiEnglish: Học tiếng Anh và lướt mạng xã hội thả ga chỉ 100k/tháng Điện thoại di động 0
katy Android Vui học tiếng Anh - Nhận quà thả phanh chỉ có trên MobiEnglish Điện thoại di động 10
katy Android Học Tiếng Anh chuẩn quốc tế không khó với MobiEnglish Điện thoại di động 10
katy Android MobiFone triển khai gói cước DH - ôn luyện tiếng Anh trên MobiEdu Điện thoại di động 3
katy Android Hãy cùng MobiFone thăng hạng tiếng Anh cùng e-code giảm giá tại Apax English Điện thoại di động 10
haopro Nonstop 2021 - 3 Tiếng Rưỡi Vọng Cổ Teen Remix Căng Cực Phiêu Bạt Kéo Rít Tê Như Con Dê Âm nhạc 0
Admin Share code phpBB 3.3.3 tiếng việt mới nhất Phpbb3x 2
Admin [Fshare] PES 2021 tiếng việt và bình luận tiếng việt mới nhất Trò chơi 21
Admin 1000 cụm từ giao tiếp thông dụng nhất trong tiếng anh và kinh nghiệm học tiếng anh xuất chúng Góc thành viên học tập 2
Admin Share code phpBB 3.3.1 tiếng việt mới nhất Phpbb3x 4
tunglamed Giảm 10% học phí cho thuê bao MobiFone đăng ký khóa học tiếng Anh tại RMIT Việt Nam Thông tin các mạng di động 2
haopro NST Nhạc DJ - Vinahouse 2020 Độ Ta Không Độ Nàng Phiên Bản Tiếng Hoa Cực Hay Âm nhạc 0
MrTrieu Tiếng Anh chuyên ngành công nghệ thông tin: Từ vựng cho dân IT Sách, truyện, tài liệu 0
Admin [Fshare] tổng hợp nhạc 320kbps từ nhiều ca sĩ nổi tiếng như Đàm Vĩnh Hưng, Quang Lê, Thu Phương Âm nhạc 0
T Nhiều đại học danh tiếng đã mở lớp dạy Blockchain Tin tức CNTT 0
dammechiase Download Game GTA Vice City Full Mod Tiếng Việt – Cướp đường phố bản chuẩn Trò chơi 0
T XRP/USD trở lại với người nổi tiếng từ IMF Tin tức CNTT 0
T Hàn Quốc lên tiếng hợp pháp hoá ico Tin tức CNTT 0
G Những người nổi tiếng từng trải nghiệm dịch vụ làm đẹp tại TMV Nevada Tin tức, sự kiện thường ngày 0
cuongpro9x Share Loại bỏ Tiếng Việt và khoảng trắng của File Upload trong WordPress Xenforo 1
haopro Nonstop VIP Nonstop 2018 - 15 Tiếng Cực Mạnh Cày Nát Mọi Thùng Loa Âm nhạc 0
haopro Nonstop VIP Nonstop 2018 - 15 tiếng Nhạc Sàn Nhạc DJ cực căng đốt cháy cây xăng Âm nhạc 0
haopro Nonstop VIP Nonstop 2018 - 15 tiếng Nhạc sàn cực mạnh thể hiện đẳng cấp của dân chơi Âm nhạc 0
haopro Nonstop VIP Nonstop 2018 - 15 tiếng Nhạc sàn cực mạnh thể hiện đẳng cấp của dân chơi Âm nhạc 0
N Những tài liệu tự học Tiếng Anh hay Góc thành viên học tập 0
D Phần mềm talkit giúp cho bé phát âm tiếng anh chuẩn Tin tức, sự kiện thường ngày 0
khanhsak3r Share File ngôn ngữ tiếng việt cho 3uTools Phần mềm 2

Similar threads

New posts New threads New resources

Back
Top