Hướng dẫn tự động thay thế văn bản excel - Auto replace text VBA

[Admin]

Chào các bạn. hôm nay tuoitreit.vn xin hướng dẫn cách bạn các tự động thay thế văn bản trên excel

Để tự động thay thế văn bản bạn tạo 1 file excel mới, rồi nhấn tổ hợp phím Fn + Alt + F11 để mở Macro và dán code sau

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim tumuonthay(1 To 10) As String
Dim thaythanh(1 To 10) As String

tumuonthay(1) = "tuoori trer it1"
tumuonthay(2) = "tuoitreit2"
tumuonthay(3) = "tuoitreit3"
tumuonthay(4) = "tuoitreit4"
tumuonthay(5) = "tuoitreit5"
tumuonthay(6) = "tuoitreit6"
tumuonthay(7) = "tuoitreit7"
tumuonthay(8) = "tuoitreit8"
tumuonthay(9) = "tuoitreit9"
tumuonthay(10) = "tuoitreit10"

thaythanh(1) = "tuoori trer it.vn"
thaythanh(2) = "tuoitreit.vn"
thaythanh(3) = "tuoitreit.vn"
thaythanh(4) = "tuoitreit.vn"
thaythanh(5) = "tuoitreit.vn"
thaythanh(6) = "tuoitreit.vn"
thaythanh(7) = "tuoitreit.vn"
thaythanh(8) = "tuoitreit.vn"
thaythanh(9) = "tuoitreit.vn"
thaythanh(10) = "tuoitreit.vn"


    Cells.Replace ChuyenDoi(tumuonthay(1), "Telex"), ChuyenDoi(thaythanh(1), "Telex"), xlPart, , True

    Cells.Replace tumuonthay(2), ChuyenDoi(thaythanh(2), "Telex"), xlPart, , True

    Cells.Replace tumuonthay(3), ChuyenDoi(thaythanh(3), "Telex"), xlPart, , True

    Cells.Replace tumuonthay(4), ChuyenDoi(thaythanh(4), "Telex"), xlPart, , True

    Cells.Replace tumuonthay(5), ChuyenDoi(thaythanh(5), "Telex"), xlPart, , True

    Cells.Replace tumuonthay(6), ChuyenDoi(thaythanh(6), "Telex"), xlPart, , True

    Cells.Replace tumuonthay(7), ChuyenDoi(thaythanh(7), "Telex"), xlPart, , True

    Cells.Replace tumuonthay(8), ChuyenDoi(thaythanh(8), "Telex"), xlPart, , True

    Cells.Replace tumuonthay(9), ChuyenDoi(thaythanh(9), "Telex"), xlPart, , True

    Cells.Replace tumuonthay(10), ChuyenDoi(thaythanh(10), "Telex"), xlPart, , True

End Sub

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

Tại sau đó bạn lưu lại và trải nghiệm
Sau đó bạn nhập tuổi trẻ it1 hoặc tuoitreit2 đến tuoitreit10 sẽ tự động thay thành tuoitreit.vn
Mình cũng chia sẻ thêm hàm gõ tiếng việt trên VBA không lỗi font
Mình có chia sẻ file bên dưới cho ai chưa làm được
Tải xuống fshare

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!

 

[anhdavid]

Bạn có thể hướng dẫn cách đổi inch sang cm không?