Mình cần xin hàm tự tạo SubstituteNew giúp thay thế ký tự ở nhiều lần xuất hiện khác nhau trong chuỗi

[ManhDuc1382]

Chào các bạn, mình muốn xin hàm tự tạo SubstituteNew giúp thay thế ký tự ở nhiều lần xuất hiện khác nhau theo như mô tả trong file đính kèm của mình nhé, mình cảm ơn
Công thức
=SubstituteNew(Chuỗi ban đầu , old text , new text , lần xuất hiện thứ mấy cần thay thế)
Trong đó tham số lần xuất hiện thứ mấy cần thay thế có thể là một hoặc nhiều vị trí khác nhau
Ví dụ: ô E4 chứa chuỗi abcDbhDmpDrhDqpal
Công thức: =SubtituteNew(E4,"D","K",2,4) sẽ cho ra kết quả là abcDbhKmpDrhKqpal

 

[VetMini]

Mắc mớ gì phải lập hàm tự tạo? Tự uyển chuyển không được sao?
=SUBSTITUTE(SUBSTITUTE($E$4,"D", "K", 2),"D", "K", 3)
3 tức là 4-1, vì vị trí 2 đã bị đổi rồi cho nên 4 trở thành 3

Tôi chỉ mách cho các bạn có tư tưởng tương tự. Chứ tôi biết thớt có hằng trăm cớ để biện hộ tính lười gõ, ngồi chờ hàm tự tạo copy về khoẻ hơn.
Cái hàm tự tạo này nó lẩn thẩn quá. Không xứng đáng động não. Nhường cho quý vị tập code.

 

[ManhDuc1382]

Chào các bạn, mình muốn xin hàm tự tạo SubstituteNew giúp thay thế ký tự ở nhiều lần xuất hiện khác nhau theo như mô tả trong file đính kèm của mình nhé, mình cảm ơn
Công thức
=SubstituteNew(Chuỗi ban đầu , old text , new text , lần xuất hiện thứ mấy cần thay thế)
Trong đó tham số lần xuất hiện thứ mấy cần thay thế có thể là một hoặc nhiều vị trí khác nhau
Ví dụ: ô E4 chứa chuỗi abcDbhDmpDrhDqpal
Công thức: =SubtituteNew(E4,"D","K",2,4) sẽ cho ra kết quả là abcDbhKmpDrhKqpal

Các bạn giúp mình với nhé

 

[befaint]

Lót dép xem ai tập viết code

 

[VetMini]

Lót dép xem ai tập viết code

Có thể có vài tay biểu diễn thuật toán độc đáo nữa

 

[batman1]

Vài tay biểu diễn chưa biết có không, nhưng chắc chắn có vài tay đang bị ngứa.

 

[HieuCD]

Lót dép xem ai tập viết code

Code Function đầu tiên của mình là dạng nầy nhưng phức tạp hơn, viết cho "mazda C++"

 

[Nhất Chi Lan]

Code Function đầu tiên của mình là dạng nầy nhưng phức tạp hơn, viết cho "mazda C++"

Cái này không tính. Anh đẹp trai trên kia chỉ nói ai tập viết thôi. Của Anh đã được "Người nổi tiếng" dùng rồi

 

[ManhDuc1382]

Code Function đầu tiên của mình là dạng nầy nhưng phức tạp hơn, viết cho "mazda C++"

bạn giúp mình viết code hàm mình cần với nhé, tại là trong VBA không có hàm Substitute, còn cái Replace của VBA không làm được như mình mong muốn, mình cảm ơn

 

[Nhất Chi Lan]

Em tập tọe tí nhé

Function SubtituteNew(ByVal Text As String, ByVal old_text, ByVal new_text, _
        ParamArray Args() As Variant) As String
    Dim I As Long, Idx As Long, Str As String
    Dim Tmp, Delimiter As String, N As Long
Tmp = Split(Text, old_text)
For I = LBound(Tmp) To UBound(Tmp)
    N = LBound(Args)
    For Idx = N To UBound(Args)
        If I + 1 = Args(Idx) Then
            Delimiter = new_text:   N = Idx + 1: Exit For
        Else
            Delimiter = old_text
        End If
    Next Idx
    If I = UBound(Tmp) Then Delimiter = ""
    Str = IIf(Len(Str), Str & Tmp(I) & Delimiter, Tmp(I) & Delimiter)
Next I
SubtituteNew = Str
End Function

 

[VetMini]

Em tập tọe tí nhé
...

Muốn biễu diễn code thì dùng regex.
Muốn tập toẹ thì dùng Application.Substitute

 

[Nhất Chi Lan]

Muốn biễu diễn code thì dùng regex.
Muốn tập toẹ thì dùng Application.Substitute

Em chưa biết gì về regex ạ

 

[VetMini]

Em chưa biết gì về regex ạ

Thì thử "tập toẹ" đi.

Code căn bản substitute chỉ như vầy:
chinhLech = 0
For Each a in Arg
Text = Application.Substitute(Text, olText, nuText, a - chinhLech)
chinhLech = chinhLech + 1
Next a

 

[ppc0312]

Thì thử "tập toẹ" đi.

Code căn bản substitute chỉ như vầy:
chinhLech = 0
For Each a in Arg
Text = Application.Substitute(Text, olText, nuText, a - chinhLech)
chinhLech = chinhLech + 1
Next a

Cuối cùng cũng không thoát được kiếp ngứa tay, gặp bài kiểu thế này rửa tay gác kiếm cho đẹp.

 

[ManhDuc1382]

Em tập tọe tí nhé

Function SubtituteNew(ByVal Text As String, ByVal old_text, ByVal new_text, _
        ParamArray Args() As Variant) As String
    Dim I As Long, Idx As Long, Str As String
    Dim Tmp, Delimiter As String, N As Long
Tmp = Split(Text, old_text)
For I = LBound(Tmp) To UBound(Tmp)
    N = LBound(Args)
    For Idx = N To UBound(Args)
        If I + 1 = Args(Idx) Then
            Delimiter = new_text:   N = Idx + 1: Exit For
        Else
            Delimiter = old_text
        End If
    Next Idx
    If I = UBound(Tmp) Then Delimiter = ""
    Str = IIf(Len(Str), Str & Tmp(I) & Delimiter, Tmp(I) & Delimiter)
Next I
SubtituteNew = Str
End Function

Hì hì, anh không quan tâm code của em có phải là tối ưu không nhưng anh chấm cho em 100/10 điểm vì sự nhiệt tình nhé ^^ chúng ta nên có tinh thần giúp đỡ đồng đội như em ^^ thank you em

 

[VetMini]

Cuối cùng cũng không thoát được kiếp ngứa tay, gặp bài kiểu thế này rửa tay gác kiếm cho đẹp.

Ngứa miệng chứ không phải ngứa tay đâu. Nếu thực sự ngứa tay thì tôi đã cho từ a đến z, không có một đoạn như thế.
Thớt không đủ kiên nhẫn để đem nó vào đúng chỗ mà xài đâu.

 

[huyyeu99]

Code replace này không cần phải for từng ký tự đâu. Mình cũng có viết 1 hàm để thay thế replace trong vba

 

[VetMini]

Code replace này không cần phải for từng ký tự đâu. Mình cũng có viết 1 hàm để thay thế replace trong vba

Ở bài #5 tôi có nói là dịp để "biểu diễn thuật toán" mờ.

Bổ sung thêm cho cái chuyện thuật toán:
thực ra ở bài #2, và tiếp sau đó code minh hoạ ở bài #13 là tôi dùng thuật toán xuôi cho nó dễ hiểu. Nếu dùng thuật toán ngược thì không phải chỉnh độ lệch.

 

[batman1]

Ở bài #5 tôi có nói là dịp để "biểu diễn thuật toán" mờ.

Bổ sung thêm cho cái chuyện thuật toán:
thực ra ở bài #2, và tiếp sau đó code minh hoạ ở bài #13 là tôi dùng thuật toán xuôi cho nó dễ hiểu. Nếu dùng thuật toán ngược thì không phải chỉnh độ lệch.

Thế bác đã tính tới chuyện đổi "D" thành "KD" chưa?

 

[VetMini]

Thế bác đã tính tới chuyện đổi "D" thành "KD" chưa?

Chưa, và cũng chưa tính tới "D" thành "DDD"
Nhưng tôi biết rằng nếu dùng hàm WorkSheet thì lúc áp dụng nhận ra ngay. Dùng hàm UDF thì phải chạy ra kết quả mới biết.