• 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 tự động thay thế văn bản excel - Auto replace text 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ách bạn các tự động thay thế văn bản trên excel

52238083324_a5019077f8_o.png


Để 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
Code:
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
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!
 
Bạn có thể hướng dẫn cách xuống dòng trong excel không?
 

Facebook Comments

Similar threads
Thread starter Title Forum Replies Date
Admin S60 phần mềm tự động thay đổi hình nền theo thời gian S60 0
DragonHunter Hướng dẫn Tự động thay đổi hình nền desktop Sử dụng, chia sẻ, hỏi đáp 0
G Tự động thay thế link ảnh die Johncms 0
Admin Hướng dẫn tạo javascript tự động thay đổi hình ảnh, link JavaScript / Ajax 2
Admin Share mod tự động thay đổi giao diện Wap / Web (auto wap web cho johncms 4 .x) Johncms 0
Lang Tu Sau Tự động thay thế link ảnh hỏng bằng ảnh của bạn All Shared Scripts 3
dinhtrungtek Phần mềm PC Phần mềm tạo USB cài win tự động dành cho cửa hàng - TekDT USB Creator Phần mềm 0
cuongpro9x Share Script tự động gửi tin nhắn hàng loạt trên Facebook Thủ thuật máy tính 1
Admin Hướng dẫn tự động phân cách phần nghìn khi nhập số C# giống tiền C# / C++ 0
Admin Share code leech ảnh girl xinh tự động Mã nguồn wap 0
Admin Tình hình nhiễm virus corona trên toàn thế giới cập nhật liên tục và hoàn toàn tự động Tin tức, sự kiện thường ngày 25
P Phần mềm PC Tiện ích hỗ trợ phần mềm chấm trắc nghiệm tự động Zipgrade - Tiện ích Zipgrade v1.0.5 Phần mềm 1
Admin Hướng dẫn tìm và cài full driver tự động cho boot camp Macbook - How to download boot camp drivers without boot camp assistant Máy tính 1
dammechiase Phần mềm PC DowLoad Tải Driver Easy PRO Mới Nhất 5.6.8.35406 Full Crack – Tự Động Tìm, Cài Đặt Và Update Driver Mới Nhất Trò chơi 0
Npnken Share Share code shop nick tự động - shopbumma.com PHP 3
N Mobifone cung cấp dịch vụ Thanh toán và nạp tiền tự động qua AutoPay Thông tin các mạng di động 2
N Thanh toán và nạp tiền tự động qua AutoPay – Tiện ích vàng Thông tin các mạng di động 12
H Auto Clicker một tiện ít giúp người dùng tự động click Phần mềm 1
N Kiểm thử Thủ Công và kiểm thử Tự Động – giống và khác nhau như thế nào??? Kiến thức lập trình 0
Dean.Winchester Thủ thuật Mẹo nhỏ để tắt Windows 10 tự động Update Hệ điều hành 0
5 Hướng dẫn Cách tắt IDM tự động download nhạc, phim không nghe và xem được online Phần mềm 1
Admin Bảng tổng sắp huy chương Seagames 28 tự động cập nhật Tin tức, sự kiện thường ngày 4
Admin Hướng dẫn đặt chỗ để tự động nâng cấp windows 10 miễn phí Hệ điều hành 0
Admin Hướng dẫn tắt tính năng tự động chạy video Facebook Sử dụng, chia sẻ, hỏi đáp 0
roboconz Hướng dẫn Tự động lấy hình ảnh đầu tiên trong bài viết làm ảnh đại diện Wordpress Wordpress 5
khanhsak3r Help Tự động lấy ảnh bài viết làm ảnh đại diện trong wordpress Wordpress 2
Admin Hướng dẫn tự động đóng ứng dụng đang chạy khi tắt hay khởi động lại máy - Auto end task when shutdown in wind Sử dụng, chia sẻ, hỏi đáp 0
Admin Hướng dẫn tắt tính năng tự động vào chế độ sleep trên máy tính Sử dụng, chia sẻ, hỏi đáp 0
Admin Hướng dẫn fix lỗi thư mục Libraries tự bật khi khởi động máy tính Sử dụng, chia sẻ, hỏi đáp 0
Admin Hướng dẫn cài đặt tự động Nginx, PHP-FPM, MySQL và phpMyAdmin trên CentOS đơn giản VPS & Dedicated Server 1
hungnv239 Mobifone CTKM tự động chuyển tiền thành ngày sử dụng TB MobiCard, MobiZone, Mobi365 Thông tin các mạng di động 9
Admin Hướng dẫn cài Nginx - Php-fpm - MariaDB - APC opcode cache tự động đơn giản VPS & Dedicated Server 0
Tuzoro Share Tự động phân trang bài viết WordPress khi quá dài Wordpress 0
tubotocdo Share code tự động refresh trang Javascript/ajax 1
Admin Share add-ons tự động nhận diện tiêu đề link cho xenforo Xenforo 0
Admin SkyDrive cho iOS cập nhật bản mới, hỗ trợ sao lưu tự động ảnh và video, giao diện phong cách iOS 7 Android, iOS 0
Admin Hướng dẫn lấy lại tiền khi hostgator tự động gia hạn (auto renew) Hosting / Domain 0
Admin Hướng dẫn tự động xóa admin log và moderator log cho xenforo Xenforo 0
VMS-Mobifone Gia hạn tự động chương trình VNPT hết hạn ưu đãi ngày 31/10/2013 (gói KN45, KN80, KN145, KN180) Thông tin các mạng di động 2
Admin Hướng dẫn tự động backup data cho vps VPS & Dedicated Server 0
blog4me Share HOt - Thuốc trị bệnh Auto Đăng ký thành viên VBB tự động Vbulletin 0
D Share Sửa lỗi IDM tự động download fileM4A khi nghe nhạc Thủ thuật máy tính 0
Admin Share code tự động get thumbnails youtube cho xenforo Xenforo 1
T Tự động hóa Trò chuyện linh tinh 0
T Anti virus Tự động hóa Máy tính 0
T Tự động hóa Trò chuyện linh tinh 0
N Help Lỗi tự động xem thông tin file download Mã nguồn web 0
S Yahoo!Mail sẽ bị tự động quét, phân tích nội dung Tin tức CNTT 1
Admin Hướng dẫn tự động check ghi nhớ khi đăng nhập user thành viên Xenforo 0
Admin Share code tự động like facebook - facebook onclick auto like script Mã nguồn web 0

Similar threads

New posts New threads New resources

Back
Top