Tạo AddIn: Dựa vào 1 bảng Mã cho trước để tìm chuỗi và thay thế = chuỗi khác!

[Hong.Van]

Em chào Thầy cô & anh chị!
Giúp em tạo AddIn như sau:
Bên Sheet MA, em có danh sách Mặt hàng và Nhóm
Bên Sheet PC có các diễn giải
VD1: Chi mua Đá 0x4 của Cty Long Thạnh

Đá 0x4 này có tên trong Mặt hàng và nó thuộc nhóm VLXD
Như vậy nó sẽ thay Đá 0x4 thành VLXD
Sau khi chạy Addin nó có kết qủa "Chi mua VLXD của Cty Long Thạnh"
Trong File em có thêm một số VDụ
Em cảm ơn!

 

[ndu96081631]

Em chào Thầy cô & anh chị!
Giúp em tạo AddIn như sau:
Bên Sheet MA, em có danh sách Mặt hàng và Nhóm
Bên Sheet PC có các diễn giải
VD1: Chi mua Đá 0x4 của Cty Long Thạnh

Đá 0x4 này có tên trong Mặt hàng và nó thuộc nhóm VLXD
Như vậy nó sẽ thay Đá 0x4 thành VLXD
Sau khi chạy Addin nó có kết qủa "Chi mua VLXD của Cty Long Thạnh"
Trong File em có thêm một số VDụ
Em cảm ơn!

Cái này chỉ là For Next và Replace bình thường, tôi không nghĩ bạn lại không tự làm được

 

[Hong.Van]

Cái này chỉ là For Next và Replace bình thường, tôi không nghĩ bạn lại không tự làm được

Cái này em chưa từng làm qua nên kg biết thật!
Vậy mong thầy cô & anh chị giúp em! Em cảm ơn!

 

[ndu96081631]

Cái này em chưa từng làm qua nên kg biết thật!
Vậy mong thầy cô & anh chị giúp em! Em cảm ơn!

Giống bài số 4 ở đây (bạn đã từng hỏi)
http://www.giaiphapexcel.com/forum/...bảng-tra-để-viết-tắt-Tên!&p=468728#post468728
Có điều người ta dùng hàm Replace, bạn nên dùng phương thức Replace sẽ hay hơn (giống Ctrl + H ấy)

 

[Hong.Van]

Giống bài số 4 ở đây (bạn đã từng hỏi)
http://www.giaiphapexcel.com/forum/showthread.php?76285-Gi%C3%BAp-code-D%E1%BB%B1a-v%C3%A0o-b%E1%BA%A3ng-tra-%C4%91%E1%BB%83-vi%E1%BA%BFt-t%E1%BA%AFt-T%C3%AAn%21&p=468728#post468728
Có điều người ta dùng hàm Replace, bạn nên dùng phương thức Replace sẽ hay hơn (giống Ctrl + H ấy)

Hì em đọc mấy bài đó còn điếc con rái nói chi áp dụng!
Em cảm ơn!

 

[dhn46]

Bạn tham khảo cái này (dùng hàm bình thường không có VBscript.RegExp) - Chắc sẽ dễ hiểu cho bạn

Function ThayThe(Str As Range, Arr, Col As Integer)
Dim i As Integer, TmpArr
TmpArr = Arr
For i = 1 To UBound(TmpArr)
    If InStr(1, Str, TmpArr(i, 1)) Then
        ThayThe = Replace(Str, TmpArr(i, 1), TmpArr(i, Col))
        Exit For
    End If
Next
End Function

=thaythe(C9,MA!$B$12:$F$48,5)

 

[Hong.Van]

Hi, em mày mò thì ra cái này, thấy cũng chạy được kg biết đúng kg?

Sub Replace()
    Dim i As Long, Clls As Range
    Application.ScreenUpdating = False


    For Each Clls In Sheets("MA").[B12].CurrentRegion.Resize(, 5)


        Range("c9").Replace Clls, Clls.Offset(, 4), xlPart


    Next Clls


    Application.ScreenUpdating = True
End Sub

 

[Ba Tê]

Hì em đọc mấy bài đó còn điếc con rái nói chi áp dụng!
Em cảm ơn!

Thôi thì thử hàm này xem, hên xui.

Public Function HenXui(Rng As Range, SRng As Range, N As Long) As String
Dim Arr(), I As Long, Tem As String
Arr = SRng.Value: Tem = Rng.Value
For I = UBound(Arr, 1) To 1 Step -1
    If Tem Like "*" & Arr(I, 1) & "*" Then
        HenXui = Replace(Tem, Arr(I, 1), Arr(I, N))
        Exit For
    End If
Next I
End Function

 

[ndu96081631]

Hi, em mày mò thì ra cái này, thấy cũng chạy được kg biết đúng kg?

Sub Replace()
    Dim i As Long, Clls As Range
    Application.ScreenUpdating = False


    For Each Clls In Sheets("MA").[B12].CurrentRegion.Resize(, 5)


        Range("c9").Replace Clls, Clls.Offset(, 4), xlPart


    Next Clls


    Application.ScreenUpdating = True
End Sub

Chính xác đến 99% rồi, nhưng...
Sheets("MA").[B12].CurrentRegion.Resize(, 5) chính là vùng A1:F48 của sheet MA ---> Sao lại duyệt toàn bộ vùng này? Lý ra chỉ duyệt trong cột B và thay thế bằng cột F thôi chứ
Range("c9").Replace ---> Sao lại C9 mà không là C:C, thay toàn bộ luôn?
Ví dụ:

Sub Replace()
  Dim Clls As Range
  Application.ScreenUpdating = False
  For Each Clls In Sheets("MA").[COLOR=#ff0000]Range("B12:B50")[/COLOR]
    Sheets("PC").[COLOR=#ff0000]Range("C:C")[/COLOR].Replace Clls.Value, Clls.Offset(, 4).Value, xlPart
  Next Clls
  Application.ScreenUpdating = True
End Sub

Vậy không được sao?
Dám cá bài này dùng Function (như các code ở trên) chẳng ngon lành gì so với cách bạn đang làm đâu (dùng phương thức Replace)
Ẹc... Ẹc...

 

[Quang_Hải]

Hi, em mày mò thì ra cái này, thấy cũng chạy được kg biết đúng kg?

Sub Replace()
    Dim i As Long, Clls As Range
    Application.ScreenUpdating = False
    For Each Clls In Sheets("MA").[B12].CurrentRegion.Resize(, 5)
        Range("c9").Replace Clls, Clls.Offset(, 4), xlPart
    Next Clls
    Application.ScreenUpdating = True
End Sub

HongVan viết cũng đã gần 1200 bài rồi nha, vậy mà giờ vẫn tà tà xử lý trên sheet là sao. Kiểu này chắc phải phạt 1 chầu gì đó cho sợ. Tập thói quen nghĩ đến mảng trong mọi trường hợp.
Nếu phải xử lý trên sheet thì chơi kiểu của anh NDU là hợp lý nhất.

 

[Hong.Van]

Thôi thì thử hàm này xem, hên xui.

Public Function HenXui(Rng As Range, SRng As Range, N As Long) As String
Dim Arr(), I As Long, Tem As String
Arr = SRng.Value: Tem = Rng.Value
For I = UBound(Arr, 1) To 1 Step -1
    If Tem Like "*" & Arr(I, 1) & "*" Then
        HenXui = Replace(Tem, Arr(I, 1), Arr(I, N))
        Exit For
    End If
Next I
End Function

Bài của Thầy & anh dhn46, nếu không có mã tồn tại thì nó trả về không!
VD: Chi trả tiền điện thoại -> thì nó trả về 0 hay trống!!!
Vậy có cách nào khắc phục không ạ!
Em cảm ơn!

 

[Quang_Hải]

Bài của Thầy & anh dhn46, nếu không có mã tồn tại thì nó trả về không!
VD: Chi trả tiền điện thoại -> thì nó trả về 0 hay trống!!!
Vậy có cách nào khắc phục không ạ!
Em cảm ơn!

Thêm cái Else vào Henxui =Rng là ok liền

 

[dhn46]

Bài của Thầy & anh dhn46, nếu không có mã tồn tại thì nó trả về không!
VD: Chi trả tiền điện thoại -> thì nó trả về 0 hay trống!!!
Vậy có cách nào khắc phục không ạ!
Em cảm ơn!

Thì bạn thêm điều kiện cho If là được mà

Function ThayThe(Str As Range, Arr, Col As Integer)
Dim i As Integer, TmpArr
TmpArr = Arr
For i = 1 To UBound(TmpArr)
    If InStr(1, Str, TmpArr(i, 1)) Then
        ThayThe = Replace(Str, TmpArr(i, 1), TmpArr(i, Col))
        Exit For
    Else
        ThayThe = Str
    End If
Next
End Function

 

[Hong.Van]

Thêm cái Else vào Henxui =Rng là ok liền

Em chưa hiểu lắm, anh nói rõ hơn 1 tý nha! Cảm ơn anh!

 

[Quang_Hải]

Em chưa hiểu lắm, anh nói rõ hơn 1 tý nha! Cảm ơn anh!

Giống bài 13 trên đấy

    If Tem Like "*" & Arr(I, 1) & "*" Then
        HenXui = Replace(Tem, Arr(I, 1), Arr(I, N))
        Exit For
      Else
        HenXui = Rng
    End If