Giúp sửa Hàm VBA bỏ dấu tiếng việt áp dụng cho tất cả loại bảng mã (5 người xem)

[Minh Tam 2024]

Chào tất cả thành viên. hiện tôi đang dùng code bên dưới để loại bỏ dấu tiếng việt. Nhưng code chỉ đúng khi bảng mã Unikey chọn là unicode, nhưng nếu thay đổi bảng mã khác thì code không loại bỏ dấu được

Function TV(ByVal Text As String) As String ' bo dau tieng viet
  Dim CharCode, ResText As String, i As Long, tmp As String
  On Error Resume Next
  tmp = Text
  CharCode = Array(ChrW(7855), ChrW(7857), ChrW(7859), ChrW(7861), ChrW(7863), ChrW(7845), ChrW(7847), _
                   ChrW(7849), ChrW(7851), ChrW(7853), ChrW(225), ChrW(224), ChrW(7843), ChrW(227), ChrW(7841), _
                   ChrW(259), ChrW(226), ChrW(273), ChrW(7871), ChrW(7873), ChrW(7875), ChrW(7877), ChrW(7879), _
                   ChrW(233), ChrW(232), ChrW(7867), ChrW(7869), ChrW(7865), ChrW(234), ChrW(237), ChrW(236), _
                   ChrW(7881), ChrW(297), ChrW(7883), ChrW(7889), ChrW(7891), ChrW(7893), ChrW(7895), ChrW(7897), _
                   ChrW(7899), ChrW(7901), ChrW(7903), ChrW(7905), ChrW(7907), ChrW(243), ChrW(242), ChrW(7887), _
                   ChrW(245), ChrW(7885), ChrW(244), ChrW(417), ChrW(7913), ChrW(7915), ChrW(7917), ChrW(7919), _
                   ChrW(7921), ChrW(250), ChrW(249), ChrW(7911), ChrW(361), ChrW(7909), ChrW(432), ChrW(253), _
                   ChrW(7923), ChrW(7927), ChrW(7929), ChrW(7925))
  ResText = "aaaaaaaaaaaaaaaaadeeeeeeeeeeeiiiiiooooooooooooooooouuuuuuuuuuuyyyyy"
  For i = 0 To UBound(CharCode)
    tmp = Replace(tmp, CharCode(i), Mid(ResText, i + 1, 1))
    tmp = Replace(tmp, UCase(CharCode(i)), UCase(Mid(ResText, i + 1, 1)))
  Next
  TV = tmp
End Function

 

[Hoàng Tuấn 868]

Chào tất cả thành viên. hiện tôi đang dùng code bên dưới để loại bỏ dấu tiếng việt. Nhưng code chỉ đúng khi bảng mã Unikey chọn là unicode, nhưng nếu thay đổi bảng mã khác thì code không loại bỏ dấu đượcView attachment 307689

Function TV(ByVal Text As String) As String ' bo dau tieng viet
  Dim CharCode, ResText As String, i As Long, tmp As String
  On Error Resume Next
  tmp = Text
  CharCode = Array(ChrW(7855), ChrW(7857), ChrW(7859), ChrW(7861), ChrW(7863), ChrW(7845), ChrW(7847), _
                   ChrW(7849), ChrW(7851), ChrW(7853), ChrW(225), ChrW(224), ChrW(7843), ChrW(227), ChrW(7841), _
                   ChrW(259), ChrW(226), ChrW(273), ChrW(7871), ChrW(7873), ChrW(7875), ChrW(7877), ChrW(7879), _
                   ChrW(233), ChrW(232), ChrW(7867), ChrW(7869), ChrW(7865), ChrW(234), ChrW(237), ChrW(236), _
                   ChrW(7881), ChrW(297), ChrW(7883), ChrW(7889), ChrW(7891), ChrW(7893), ChrW(7895), ChrW(7897), _
                   ChrW(7899), ChrW(7901), ChrW(7903), ChrW(7905), ChrW(7907), ChrW(243), ChrW(242), ChrW(7887), _
                   ChrW(245), ChrW(7885), ChrW(244), ChrW(417), ChrW(7913), ChrW(7915), ChrW(7917), ChrW(7919), _
                   ChrW(7921), ChrW(250), ChrW(249), ChrW(7911), ChrW(361), ChrW(7909), ChrW(432), ChrW(253), _
                   ChrW(7923), ChrW(7927), ChrW(7929), ChrW(7925))
  ResText = "aaaaaaaaaaaaaaaaadeeeeeeeeeeeiiiiiooooooooooooooooouuuuuuuuuuuyyyyy"
  For i = 0 To UBound(CharCode)
    tmp = Replace(tmp, CharCode(i), Mid(ResText, i + 1, 1))
    tmp = Replace(tmp, UCase(CharCode(i)), UCase(Mid(ResText, i + 1, 1)))
  Next
  TV = tmp
End Function

Thử tham khảo từ chủ đề của một thành viên có nhiều kinh nghiệm về code vba đối với vấn đề phông chữ tại đây.

 

[Minh Tam 2024]

Thử tham khảo từ chủ đề của một thành viên có nhiều kinh nghiệm về code vba đối với vấn đề phông chữ tại đây.

mình đã xử lý xong rồi dùng công nghệ cổ điển đã fix code dài chỉ 5 dòng

 

[Hoàng Tuấn 868]

mình đã xử lý xong rồi dùng công nghệ cổ điển đã fix code dài chỉ 5 dòng

Trăm nghe không bằng một thấy.

 

[Minh Tam 2024]

Trăm nghe không bằng một thấy.

tự nghiên cứu đi nhóc. không ai dọn cơm sẳng cho ngồi ăn hoài đâu

 

[Hoàng Tuấn 868]

tự nghiên cứu đi nhóc. không ai dọn cơm sẳng cho ngồi ăn hoài đâu

Hỗn quá đi thôi. .

 

[ptm0412]

tự nghiên cứu đi nhóc. không ai dọn cơm sẳng cho ngồi ăn hoài đâu

Cảnh cáo nick Minh Tam 2024 do xúc phạm thành viên khác.

 

[Minh Tam 2024]

Cảnh cáo nick Minh Tam 2024 do xúc phạm thành viên khác.

Chổ nào xúc phạm vui lòng nói rõ. Bài viết của anh tô màu đỏ sao lại cấm người khác tô màu đỏ. Nói phải rõ ràng. tôi yêu cầu anh giải thích thỏa đáng

Bài đã được tự động gộp: Hôm qua, lúc 11:45

Hỗn quá đi thôi. .

Chứng Minh Hỗn trong bài viết = True

 

[ptm0412]

Chổ nào xúc phạm vui lòng nói rõ (1). Bài viết của anh tô màu đỏ sao lại cấm người khác tô màu đỏ. (2)
(2)

1. Có trong văn hóa
2. Có trong nội quy