Hỗ trợ tăng tốc, cải thiện hàm Replace trong Add in (1 người xem)

Elx Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
Tôi tuân thủ nội quy khi đăng bài
Có
Tình nghĩa giang hồ

Tình nghĩa giang hồ

Thanh sơn bất cải, lục thủy trường lưu
Tham gia
29/9/20
Bài viết
330
Được thích
429
Chào anh chị em có trường hợp Replace trong Add in như code, nhưng giờ tốc độ của nó đang chậm từng ngày, tương lai cứ thêm vào thì còn chậm nữa.

Bình thường add in này có ít dòng, nhưng theo ngày, theo tháng, theo năm thì nó tăng dần.
Hiện tại nó tăng lên số dòng như code, và tương lai số dòng code này sẽ tăng nữa...... có có sản phẩm mới là số dòng sẽ tăng lên.
Giờ mình có cách nào để cải thiện tốc độ của cái chức năng này không anh chị ?
Do công việc này, em không để trong một file excel cố định nào cả, mà phải để trong Add in kiểu này, để khi em mở bất cứ file excel nào đều sử dụng được.
Trường hợp lý tưởng nhất là sửa code trong duy nhất một add in luôn, mà cải thiện tốc độ thì quá tuyệt vời.
Còn trường hợp không lý tưởng thì bắt buộc phải bỏ code vào file excel cố định thì cũng được, (tức là dùng phương pháp mãng hay gì đó bỏ vào 1 file cố định, rồi khi mở file exel cố định này lên thì mấy file khác có thể sử dụng chức năng này )
Nhờ anh chị hỗ trợ giúp em trường hợp này.
Em cảm ơn anh chị.
Code bên dưới

Mã: 
Sub doi_48_68_()
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Replace What:=" 4801.6", Replacement:=" 1220x2440x01.6mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 4802.5", Replacement:=" 1220x2440x02.5mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 4803", Replacement:=" 1220x2440x03mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 4804.5", Replacement:=" 1220x2440x04.5mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 4806", Replacement:=" 1220x2440x06mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 4805.5", Replacement:=" 1220x2440x05.5mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 4805", Replacement:=" 1220x2440x05mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 4808", Replacement:=" 1220x2440x08mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 4809", Replacement:=" 1220x2440x09mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 4810", Replacement:=" 1220x2440x10mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 4812", Replacement:=" 1220x2440x12mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 4813", Replacement:=" 1220x2440x13mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 4814", Replacement:=" 1220x2440x14mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 4815", Replacement:=" 1220x2440x15mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 4816", Replacement:=" 1220x2440x16mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 4817", Replacement:=" 1220x2440x17mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 4818", Replacement:=" 1220x2440x18mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 4819", Replacement:=" 1220x2440x19mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 4821", Replacement:=" 1220x2440x21mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 4825", Replacement:=" 1220x2440x25mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 4834", Replacement:=" 1220x2440x34mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 4836", Replacement:=" 1220x2440x36mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="ACRYLIC", Replacement:="Acrylic", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
Selection.Replace What:="VENEER", Replacement:="Veneer", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        Selection.Replace What:=" 4838", Replacement:=" 1220x2440x38mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 6815", Replacement:=" 1830x2440x15mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 6806", Replacement:=" 1830x2440x06mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 6809", Replacement:=" 1830x2440x09mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 6812", Replacement:=" 1830x2440x12mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 6816", Replacement:=" 1830x2440x16mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 6817", Replacement:=" 1830x2440x17mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 6818", Replacement:=" 1830x2440x18mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 6819", Replacement:=" 1830x2440x19mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 6825", Replacement:=" 1830x2440x25mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 02.5MM", Replacement:=" 02.5mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 03MM", Replacement:=" 03mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 06MM", Replacement:=" 06mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 09MM", Replacement:=" 09mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 12MM", Replacement:=" 12mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 15MM", Replacement:=" 15mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 17MM", Replacement:=" 17mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 18MM", Replacement:=" 18mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 21MM", Replacement:=" 21mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 23MM", Replacement:=" 23mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 24MM", Replacement:=" 24mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 25MM", Replacement:=" 25mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 30MM", Replacement:=" 30mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 34MM", Replacement:=" 34mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 35MM", Replacement:=" 35mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 36MM", Replacement:=" 36mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 37MM", Replacement:=" 37mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 38MM", Replacement:=" 38mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 39MM", Replacement:=" 39mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 40MM", Replacement:=" 40mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 42MM", Replacement:=" 42mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 43MM", Replacement:=" 43mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 46MM", Replacement:=" 46mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 49MM", Replacement:=" 49mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 50MM", Replacement:=" 50mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 51MM", Replacement:=" 51mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 52MM", Replacement:=" 52mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 1F1", Replacement:=" ph" & ChrW(7911) & " film m" & ChrW(7863) & _
        "t 1", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        Selection.Replace What:=" 1F2", Replacement:=" ph" & ChrW(7911) & " film m" & ChrW(7863) & _
        "t 2", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
       Selection.Replace What:=" 2F", Replacement:=" ph" & ChrW(7911) & " film 2 m" & ChrW(7863) & _
        "t", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        Selection.Replace What:=" 1F", Replacement:=" ph" & ChrW(7911) & " film 1 m" & ChrW(7863) & _
        "t", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
         Selection.Replace What:="GIAY IN", Replacement:="Gi" & ChrW(7845) & "y in", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="CHI PVC", Replacement:="Ch" & ChrW(7881) & " PVC", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="CHI VENEER", Replacement:="Ch" & ChrW(7881) & " Veneer", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 4850", Replacement:=" 1220x2440x50mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 4830", Replacement:=" 1220x2440x30mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 4840", Replacement:=" 1220x2440x40mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 1220X2440MM", Replacement:=" 1220x2440mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 4801", Replacement:=" 1220x2440x01mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="CHI Foil", Replacement:="Ch" & ChrW(7881) & " Foil", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="X2440X01MM", Replacement:="x2440x01mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="MELAMINE AC", Replacement:="Melamine AC", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 1250X2470MM", Replacement:=" 1250x2470mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
            Selection.Replace What:=" 4824", Replacement:=" 1220x2440x24mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        Selection.Replace What:="X01MM", Replacement:="x01mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="X0.6MM", Replacement:="x0.6mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
          Selection.Replace What:=" FLEECE 640X2500MM", Replacement:=" Fleece 640x2500mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
          Selection.Replace What:="X0.8MM", Replacement:="x0.8mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        Selection.Replace What:="1220X2440X0.7MM", Replacement:="1220x2440x0.7mm"
        Selection.Replace What:=" 4832", Replacement:=" 1220x2440x32mm"
        Selection.Replace What:="1250X2500X16", Replacement:="1250x2500x16mm"
        Selection.Replace What:="1250X2500X19", Replacement:="1250x2500x19mm"
        Selection.Replace What:="1220X2800X16", Replacement:="1220x2800x16mm"
        Selection.Replace What:="1220X2500X16", Replacement:="1220x2500x16mm"
        Selection.Replace What:="1250X2800X16", Replacement:="1250x2800x16mm"
        Selection.Replace What:="1220X2850X16", Replacement:="1220x2850x16mm"
        Selection.Replace What:="1250X2800X19", Replacement:="1250x2800x19mm"
        Selection.Replace What:=" 4917", Replacement:=" 1220x2745x17mm"
        Selection.Replace What:=" 4918", Replacement:=" 1220x2745x18mm"
        Selection.Replace What:=" 4925", Replacement:=" 1220x2745x25mm"
        
        'them vo moi
        
 Selection.Replace What:=" 4807.7", Replacement:=" 1220x2440x07.7mm"
 Selection.Replace What:=" 4831", Replacement:=" 1220x2440x31mm"
 Selection.Replace What:=" 4844", Replacement:=" 1220x2440x44mm"
 Selection.Replace What:=" 4829", Replacement:=" 1220x2440x29mm"
 Selection.Replace What:=" 4835", Replacement:=" 1220x2440x35mm"
 Selection.Replace What:=" 4811", Replacement:=" 1220x2440x11mm"
 Selection.Replace What:=" 4839", Replacement:=" 1220x2440x39mm"
 Selection.Replace What:=" 4936", Replacement:=" 1220x2745x36mm"
 Selection.Replace What:=" 4875", Replacement:=" 1220x2440x75mm"
 Selection.Replace What:=" 4823", Replacement:=" 1220x2440x23mm"
 Selection.Replace What:=" 4826", Replacement:=" 1220x2440x26mm"
 Selection.Replace What:=" 4842", Replacement:=" 1220x2440x42mm"
 Selection.Replace What:=" 4845", Replacement:=" 1220x2440x45mm"
 Selection.Replace What:=" 4822", Replacement:=" 1220x2440x22mm"
 Selection.Replace What:=" 4934", Replacement:=" 1220x2745x34mm"
 Selection.Replace What:=" 4841", Replacement:=" 1220x2440x41mm"
 Selection.Replace What:=" 4843", Replacement:=" 1220x2440x43mm"
 Selection.Replace What:=" 4804.75", Replacement:=" 1220x2440x04.75mm"
 Selection.Replace What:=" 4865", Replacement:=" 1220x2440x65mm"
 Selection.Replace What:=" 4848", Replacement:=" 1220x2440x48mm"
 Selection.Replace What:=" 4837", Replacement:=" 1220x2440x37mm"
 Selection.Replace What:=" 4827", Replacement:=" 1220x2440x27mm"
 Selection.Replace What:=" 4847", Replacement:=" 1220x2440x47mm"
 Selection.Replace What:=" 4849", Replacement:=" 1220x2440x49mm"
 Selection.Replace What:=" 4846", Replacement:=" 1220x2440x46mm"
 Selection.Replace What:=" 4854", Replacement:=" 1220x2440x54mm"
 Selection.Replace What:=" 6836", Replacement:=" 1830x2440x36mm"
 Selection.Replace What:=" FLEECE", Replacement:=" Fleece"
 Selection.Replace What:=" 4906", Replacement:=" 1220x2745x06mm"
 Selection.Replace What:=" BHDF", Replacement:=" B-HDF"
 Selection.Replace What:=" MDFMUFSTD", Replacement:=" MDF MUFSTD"
 Selection.Replace What:=" PLYWPRWBP", Replacement:=" PLY WPRWBP"
 Selection.Replace What:=" WPRSTD4818", Replacement:=" WPRSTD 1220x2440x18mm"
 Selection.Replace What:=" WPRSTD4815", Replacement:=" WPRSTD 1220x2440x15mm"
 Selection.Replace What:=" WPRSTD4809", Replacement:=" WPRSTD 1220x2440x09mm"
 Selection.Replace What:=" 4820", Replacement:=" 1220x2440x20mm"
 Selection.Replace What:=" 4851", Replacement:=" 1220x2440x51mm"
 Selection.Replace What:=" 4859", Replacement:=" 1220x2440x59mm"
 Selection.Replace What:=" BIR ", Replacement:=" BIRCH "
 Selection.Replace What:=" 1850X2470MM", Replacement:=" 1850x2470mm"
 Selection.Replace What:=" 1830X2470MM", Replacement:=" 1830x2470mm"
 Selection.Replace What:="MELAMINE", Replacement:="Melamine"
 Selection.Replace What:="TPACR FOIL", Replacement:="TP FOIL màu"
 Selection.Replace What:=" 57MM", Replacement:=" 57mm"
Selection.Replace What:=" 1250MM", Replacement:=" 1250mm"
Selection.Replace What:=" 1220X3050X0.7MM", Replacement:=" 1220x3050x0.7mm"
Selection.Replace What:=" 1300X3050X0.7MM", Replacement:=" 1300x3050x0.7mm"
Selection.Replace What:=" 286X1192X12MM", Replacement:=" 286x1192x12mm"
Selection.Replace What:=" 185X1192X12MM", Replacement:=" 185x1192x12mm"
Selection.Replace What:="FOIL", Replacement:="Foil"
'them moi

Selection.Replace What:="LACQUERLAMINATE", Replacement:="LACQUER LAMINATE"
Selection.Replace What:="LACQUER LAMINATE", Replacement:="Lacquer Laminate"
Selection.Replace What:="ECO ", Replacement:="Eco "
Selection.Replace What:="SHEET", Replacement:="Sheet"
Selection.Replace What:="KEO", Replacement:="Keo"
Selection.Replace What:="EDGE", Replacement:="Edge"
Selection.Replace What:="LACQUER", Replacement:="Lacquer"
Selection.Replace What:="ADINO", Replacement:="Adino"
Selection.Replace What:="PRIMER", Replacement:="Primer"
Selection.Replace What:="PLASTIC", Replacement:="Plastic"
Selection.Replace What:="LAMINATE", Replacement:="Laminate"
Selection.Replace What:="PLY-T", Replacement:="PLY TK102"
Selection.Replace What:="PLY-B", Replacement:="PLY BIRCH"
Selection.Replace What:="ARI PLUS", Replacement:="ARILUX PLUS"
End Sub
 
Sắp xếp theo thời gian sắp xếp theo bầu chọn
Không biết code nên chỉ có thể nói linh tinh thôi.
Nên không nếu tạo 1 addin mở user form, trong đó có 2 cột list "old text" và "new text". Run rẹt rẹt.
 
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

Bài viết mới nhất

B
  • Question Question
Thiết lập code VBA để đổi tên sheet tự động theo ngày và sao chép hàm tự động (1 người xem)
    • Cười
Trả lời
1
Đọc
16
SA_DQ
SA_DQ
C
Fix lỗi Application.InputBox Type:=8 (1 người xem)
    • Cười
Trả lời
7
Đọc
138
SA_DQ
SA_DQ
A
  • Question Question
Sửa code VBA nhập liệu userform (1 người xem)
Trả lời
25
Đọc
1K
Mr.hieudoanxd
Mr.hieudoanxd
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (4 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
4 5 6
Trả lời
556
Đọc
72K
sát thủ uyên ương
S
Emyeuexcel
Tham chiếu về 1 ô-lấy ra và lọc dữ liệu
Trả lời
5
Đọc
103
Emyeuexcel
Emyeuexcel
L
Hỏi lỗi excel bị tràn trang khi in (1 người xem)
Trả lời
3
Đọc
78
Hoàng Tuấn 868
H
E
  • Question Question
VBA tự động thay đổi tham chiếu vùng (range và cell) khi insert dòng cột trong sheet tính toán (1 người xem)
    • Cười
Trả lời
5
Đọc
129
eagle12
E
D
Tổng hợp dữ liệu từ các sheet sang sheet tổng (2 người xem)
Trả lời
3
Đọc
154
dohungmo
D
T
font chu trong excel
Trả lời
2
Đọc
77
Hoàng Tuấn 868
H
khuong182018
  • Question Question
Nhờ anh chị sửa lỗi setfocus ở textbox
Trả lời
9
Đọc
170
khuong182018
khuong182018
N
File chia băng tự động từ cuộn mẹ theo khổ băng và khối lượng băng cho trước
Trả lời
0
Đọc
46
nguyenanhtruong2409
N
SA_DQ
Copilot bình luận về một ván cờ vua
Trả lời
0
Đọc
78
SA_DQ
SA_DQ
T
Xin giúp đỡ lọc dữ liệu
    • Cười
Trả lời
4
Đọc
119
pycckuu410
pycckuu410
Nguyễn Duy Tuân
[New] BSAC v3.0 bộ công cụ lập trình phần mềm chuyên nghiệp trong VBA
    • Thích
Trả lời
13
Đọc
4K
Nguyễn Duy Tuân
Nguyễn Duy Tuân
H
  • Question Question
Code Sổ Chi Tiết Tài Khoản
Trả lời
8
Đọc
335
hieuvietmy2020
H
befaint
Chia sẻ tâm tư, xả nỗi lòng (5 người xem)
    • Thích
6 7 8
Trả lời
778
Đọc
75K
SA_DQ
SA_DQ
H
Chia sẻ file in Phiếu điều tra PCGD
    • Thích
    • Yêu thích
    • Cảm ơn
Trả lời
12
Đọc
448
HUONGHCKT
H
V
Hỏi công thức để làm khối lượng trong xây dựng. Xin cảm ơn
Trả lời
11
Đọc
526
phanphu_91
P
Linhnv0001
Hỏi - Cách kiểm tra laptop là hàng lắp ráp hay không
Trả lời
3
Đọc
276
Lê Duy Thương
Lê Duy Thương
K
Nhờ anh chị làm công thức lọc dữ kiện ngày từ bảng 1 sang rút gọn ngày ở bảng 2.
Trả lời
2
Đọc
192
Lê Duy Thương
Lê Duy Thương
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Thời gian đếm ngược.

000
Ngày
00
Giờ
00
phút
00
giây
Thân mời tham dự sự kiện sinh nhật GPE 2025
Back
Top Bottom