Xin code hoặc hàm biến 1 chuỗi tiếng việt có dấu thành tiếng việt không dấu! (1 người xem)

[Backy1990]

Chào các bạn!
Mình muốn hỏi là có hàm hoặc đoạn code nào làm được cái vụ đổi chữ tiếng việt có dấu thành tiếng việt không dấu không nhỉ?
Bạn nào biết thì chỉ giùm mình với.
Cám ơn rất nhiều!

 

[TrungChinhs]

Chào các bạn!
Mình muốn hỏi là có hàm hoặc đoạn code nào làm được cái vụ đổi chữ tiếng việt có dấu thành tiếng việt không dấu không nhỉ?
Bạn nào biết thì chỉ giùm mình với.
Cám ơn rất nhiều!

Code này của thầy Phạm Duy Long. Bạn Copy vào Module. Khi sử dụng chọn vùng cần bỏ dấu và chạy code

Const CodUni = "225  224  7843 227  7841 259  7855 7857 7859 7861 7863 226  7845 7847 7849 7851 7853 233  232  7867 7869 7865 234  7871 7873 7875 7877 7879 237  236  7881 297  7883 243  242  7887 245  7885 244  7889 7891 7893 7895 7897 417  7899 7901 7903 7905 7907 250  249  7911 361  7909 432  7913 7915 7917 7919 7921 253  7923 7927 7929 7925 273  193  193  192  192  7842 7842 195  195  7840 7840 258  258  7854 7854 7856 7856 7858 7858 7860 7860 7862 7862 194  194  7844 7844 7846 7846 7848 7848 7850 7850 7852 7852 201  201  200  200  7866 7866 7868 7868 7864 7864 202  202  7870 7870 7872 7872 7874 7874 7876 7876 7878 7878 205  204  7880 296  7882 211  211  210  210  7886 7886 213  213  7884 7884 212  212  7888 7888 7890 7890 7892 7892 7894 7894 7896 7896 416  7898 7898 7900 7900 7902 7902 7904 7904 7906 7906 218  218  217  217  7910 7910 360  360  7908 7908 431  7912 7912 7914 7914 7916 7916 7918 7918 7920 7920 221  221  7922 7922 7926 7926 7928 7928 7924 272  "
Const StrDau = "12345 12345 1234512345 123451234512345 12345 1234512345 1234512345 1122334455  1122334455  11223344551122334455  1122334455123451122334455  1122334455 11223344551122334455 1122334455112233445 "
Const StrMa = "a  a  a  a  a  az az az az az az azzazzazzazzazzazze  e  e  e  e  ez ez ez ez ez ez i  i  i  i  i  o  o  o  o  o  oz oz oz oz oz oz ozzozzozzozzozzozzu  u  u  u  u  uz uz uz uz uz uz y  y  y  y  y  dz a  a  a  a  a  a  a  a  a  a  az az az az az az az az az az az az azzazzazzazzazzazzazzazzazzazzazzazze  e  e  e  e  e  e  e  e  e  ez ez ez ez ez ez ez ez ez ez ez ez i  i  i  i  i  o  o  o  o  o  o  o  o  o  o  oz oz oz oz oz oz oz oz oz oz oz oz ozzozzozzozzozzozzozzozzozzozzozzu  u  u  u  u  u  u  u  u  u  uz uz uz uz uz uz uz uz uz uz uz y  y  y  y  y  y  y  y  y  dz"
Const Str0dau = "aaaaaaaaaaaaaaaaaeeeeeeeeeeeiiiiiooooooooooooooooouuuuuuuuuuuyyyyydAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEEEEEEEEEEEEEEEEEEEEEEIIIIIOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOUUUUUUUUUUUUUUUUUUUUUYYYYYYYYYD"
Function LoaiDauUni(Text As String) As String
    Text = Text & " "
    madau = " "
    For n = 1 To Len(Text) - 1
        kytu = Mid(Text, n, 1)
        codkytu = AscW(kytu) & String(5 - Len(CStr(AscW(kytu))), " ")
        vitri = (InStr(1, CodUni, codkytu, 0) + 4) / 5
        If vitri >= 1 Then
            NewText = NewText & Mid(Str0dau, vitri, 1)
        Else
            NewText = NewText & kytu
        End If
    Next
    LoaiDauUni = NewText
End Function
Sub Loai_Dau()
    For Each mycell In Selection
        mycell.Value = LoaiDauUni(mycell.Value)
    Next
End Sub

 

[thelamdungvan]

TKs! thật là hay khi dc giúp đõ