Lấy ký tự trong chuỗi theo nhiều điều kiện

hongphuong1997 · 19/4/24

Cháu chào các bác và các anh chị ạ.
Các bác oi, cháu muốn viết một hàm như miêu tả trong file đính kèm.
Các bác và anh chị viết và hướng dẫn cháu với ạ
Cháu cảm ơn tất cả mọi người ạ.

Duy Tùng 9x · 20/4/24

hongphuong1997 đã viết:
Cháu chào các bác và các anh chị ạ.
Các bác oi, cháu muốn viết một hàm như miêu tả trong file đính kèm.
Các bác và anh chị viết và hướng dẫn cháu với ạ
Cháu cảm ơn tất cả mọi người ạ.

Bạn ghi trong file "Em diễn giải cho mọi người dễ hiểu", nhưng thật sự đọc chả hiểu cái mong muốn là gì.

hongphuong1997 · 20/4/24

Duy Tùng 9x đã viết:
Bạn ghi trong file "Em diễn giải cho mọi người dễ hiểu", nhưng thật sự đọc chả hiểu cái mong muốn là gì.

Em gửi file giải thích thêm anh nhé.

Duy Tùng 9x · 20/4/24

hongphuong1997 đã viết:
Em gửi file giải thích thêm anh nhé.

Thật ra đọc cũng hiểu có chút hiểu chứ chưa rõ. Bạn nên tìm thêm code để có thể dùng được hàm textsplit nhé, tách nó ra rồi làm (ko thì phải cột phụ mà tách ra thôi). Vì bạn còn Jointext thì chắc ko phải 365 rồi. Hoặc đưa lên GoogleSheet

hongphuong1997 · 20/4/24

Duy Tùng 9x đã viết:
Thật ra đọc cũng hiểu có chút hiểu chứ chưa rõ. Bạn nên tìm thêm code để có thể dùng được hàm textsplit nhé, tách nó ra rồi làm (ko thì phải cột phụ mà tách ra thôi). Vì bạn còn Jointext thì chắc ko phải 365 rồi. Hoặc đưa lên GoogleSheet

Này anh này!
Em không biết thì mới hỏi mọi người. Vì vậy, anh có tâm giúp đỡ thì giúp đỡ cho nó đoàng hoàng nhé anh.
Còn nếu ăn tục nói phét thì có khả năng em còn nói phét gấp vạn lần anh đó.

CHAOQUAY · 20/4/24

hongphuong1997 đã viết:
Cháu chào các bác và các anh chị ạ.
Các bác oi, cháu muốn viết một hàm như miêu tả trong file đính kèm.
Các bác và anh chị viết và hướng dẫn cháu với ạ
Cháu cảm ơn tất cả mọi người ạ.

Chuỗi mẫu & chuỗi kết quả đều chỉ là 1 dòng à bạn?

hongphuong1997 · 20/4/24

CHAOQUAY đã viết:
Chuỗi mẫu & chuỗi kết quả đều chỉ là 1 dòng à bạn?

Hihi em chào anh ạ, lâu lắm mới thấy anh xuất hiện.
Em chúc anh ngày cuối tuần tràn đầy hạnh phúc và niềm vui nhé anh.
Anh oi.
Các chuỗi bên dưới là em nối dữ liệu của các ô (Của các dòng bên trên vào mà)
- Nếu như dữ liệu các ký tự nằm ở các ô rời rạc thì em dùng hàm Jointext cũng làm được ra kết quả.
Nhưng em muốn viết hàm dùng cho chuỗi.
Anh viết cho em với anh.
Em cảm ơn anh ạ.

CHAOQUAY · 20/4/24

@hongphuong1997

Mã:

Option Explicit

Function LocKQ(chuoiKq, chuoiNguon, dk)
Dim Tam
Dim Kq()
Dim i, j, k

Tam = Split(chuoiKq, ";")
ReDim Kq(UBound(Tam))
For Each k In Split(chuoiNguon, ";")
    If k = dk Then
        Kq(j) = Tam(i)
        j = j + 1
    End If
    i = i + 1
Next k

LocKQ = Replace(Trim(Join(Kq)), " ", "; ")
End Function

hongphuong1997 · 20/4/24

CHAOQUAY đã viết:

@hongphuong1997

Mã:

Option Explicit

Function LocKQ(chuoiKq, chuoiNguon, dk)
Dim Tam
Dim Kq()
Dim i, j, k

Tam = Split(chuoiKq, ";")
ReDim Kq(UBound(Tam))
For Each k In Split(chuoiNguon, ";")
    If k = dk Then
        Kq(j) = Tam(i)
        j = j + 1
    End If
    i = i + 1
Next k

LocKQ = Replace(Trim(Join(Kq)), " ", "; ")
End Function

Nhanh quá anh oi
Em cảm ơn anh ạ.
Để em Test đã nhé anh.

Bài đã được tự động gộp: 20/4/24

CHAOQUAY đã viết:

@hongphuong1997

Mã:

Option Explicit

Function LocKQ(chuoiKq, chuoiNguon, dk)
Dim Tam
Dim Kq()
Dim i, j, k

Tam = Split(chuoiKq, ";")
ReDim Kq(UBound(Tam))
For Each k In Split(chuoiNguon, ";")
    If k = dk Then
        Kq(j) = Tam(i)
        j = j + 1
    End If
    i = i + 1
Next k

LocKQ = Replace(Trim(Join(Kq)), " ", "; ")
End Function

Anh oi, công thức chỉ đúng được mỗi kết quả dòng đầu.
Còn từ dòng 2 thì bị lỗi.
Anh viết thêm cho em với ạ.

hoangtuan.net · 20/4/24

hongphuong1997 đã viết:
Nhanh quá anh oi
Em cảm ơn anh ạ.
Để em Test đã nhé anh.

Bài đã được tự động gộp: 20/4/24

Anh oi, công thức chỉ đúng được mỗi kết quả dòng đầu.
Còn từ dòng 2 thì bị lỗi.
Anh viết thêm cho em với ạ.

Riêng mình thì thích cách dùng từ 'giúp' hơn là dùng từ 'cho'.

Hoàng Tuấn 868 · 20/4/24

hongphuong1997 đã viết:
Anh oi, công thức chỉ đúng được mỗi kết quả dòng đầu.
Còn từ dòng 2 thì bị lỗi.
Anh viết thêm cho em với ạ.

hoangtuan.net đã viết:
Riêng mình thì thích cách dùng từ 'giúp' hơn là dùng từ 'cho'.

Mình thấy thế này có lẽ phù hợp hơn:
"Còn từ dòng 2 thì bị lỗi.
Anh sửa giúp em với ạ."

hongphuong1997 · 20/4/24

Em cảm ơn 2 anh Tôn hành Giả và Giả Hành Tôn đã góp ý (Không biết ai là Tôn Ngộ Không thật đây?)
@Hoàng Tuấn 868 And @hoangtuan.net

hoangtuan.net · 20/4/24

hongphuong1997 đã viết:
Em cảm ơn 2 anh Tôn hành Giả và Giả Hành Tôn đã góp ý (Không biết ai là Tôn Ngộ Không thật đây?)
@Hoàng Tuấn 868 And @hoangtuan.net

Nếu bạn sinh 1997 thì có thể gọi mình là anh, còn gọi bác 868 là chú hoặc bác nhé!

CHAOQUAY · 20/4/24

hongphuong1997 đã viết:
Nhanh quá anh oi
Em cảm ơn anh ạ.
Để em Test đã nhé anh.

Bài đã được tự động gộp: 20/4/24

Anh oi, công thức chỉ đúng được mỗi kết quả dòng đầu.
Còn từ dòng 2 thì bị lỗi.
Anh viết thêm cho em với ạ.

@hongphuong1997 test lại lần nữa xem sao

Mã:

Option Explicit

Function LocKQ(chuoiKq, ParamArray dlDauvao() As Variant)
Dim mTam
Dim dk
Dim Kq()
Dim i, j, k

mTam = Split(chuoiKq, ";")
ReDim Kq(UBound(mTam))
For j = 0 To UBound(dlDauvao) Step 2
    dk = dlDauvao(j + 1)
    i = 0
    For Each k In Split(dlDauvao(j), ";")
        If k = dk Then
            Kq(i) = mTam(i)
        End If
        i = i + 1
    Next k
Next j

LocKQ = Replace(Application.Trim(Join(Kq)), " ", ", ")
End Function

hongphuong1997 · 20/4/24

CHAOQUAY đã viết:

@hongphuong1997 test lại lần nữa xem sao

Mã:

Option Explicit

Function LocKQ(chuoiKq, ParamArray dlDauvao() As Variant)
Dim mTam
Dim dk
Dim Kq()
Dim i, j, k

mTam = Split(chuoiKq, ";")
ReDim Kq(UBound(mTam))
For j = 0 To UBound(dlDauvao) Step 2
    dk = dlDauvao(j + 1)
    i = 0
    For Each k In Split(dlDauvao(j), ";")
        If k = dk Then
            Kq(i) = mTam(i)
        End If
        i = i + 1
    Next k
Next j

LocKQ = Replace(Application.Trim(Join(Kq)), " ", ", ")
End Function

Em đang măm măm nhưng em cũng nghỉ để Test đã.
Anh đã măm chưa hở anh oi?

Bài đã được tự động gộp: 20/4/24

CHAOQUAY đã viết:

@hongphuong1997 test lại lần nữa xem sao

Mã:

Option Explicit

Function LocKQ(chuoiKq, ParamArray dlDauvao() As Variant)
Dim mTam
Dim dk
Dim Kq()
Dim i, j, k

mTam = Split(chuoiKq, ";")
ReDim Kq(UBound(mTam))
For j = 0 To UBound(dlDauvao) Step 2
    dk = dlDauvao(j + 1)
    i = 0
    For Each k In Split(dlDauvao(j), ";")
        If k = dk Then
            Kq(i) = mTam(i)
        End If
        i = i + 1
    Next k
Next j

LocKQ = Replace(Application.Trim(Join(Kq)), " ", ", ")
End Function

Huhu.... anh oi, vẫn chưa thành công anh oi.
Anh xem lại giúp em với anh nhé.
Em có trình bày ở trong file nhé anh.

CHAOQUAY · 20/4/24

hongphuong1997 đã viết:
Em đang măm măm nhưng em cũng nghỉ để Test đã.
Anh đã măm chưa hở anh oi?

Bài đã được tự động gộp: 20/4/24

Huhu.... anh oi, vẫn chưa thành công anh oi.
Anh xem lại giúp em với anh nhé.
Em có trình bày ở trong file nhé anh.

Với nhiều dòng đầu vào: có dòng trả về nhiều kết quả, có dòng trả về ít kết quả. Trong đó có kết quả trùng nhau, kết quả cuối cùng là gì?

Thử riêng biệt với dòng 38 & dòng 39 sẽ có 2 nhóm kết quả khác nhau, trong đó có chuỗi trùng --> chốt kết quả yêu cầu khi gộp cả 2 dòng nhé!

hongphuong1997 · 20/4/24

CHAOQUAY đã viết:
Với nhiều dòng đầu vào: có dòng trả về nhiều kết quả, có dòng trả về ít kết quả. Trong đó có kết quả trùng nhau, kết quả cuối cùng là gì?

Thử riêng biệt với dòng 38 & dòng 39 sẽ có 2 nhóm kết quả khác nhau, trong đó có chuỗi trùng --> chốt kết quả yêu cầu khi gộp cả 2 dòng nhé!

Không gộp anh oi, vẫn phải tách biệt từng chuỗi (Từng dòng kết quả)
Dữ liệu trong file là em lấy giả định để mọi người dễ phân biệt mà.
Anh cố gắng giúp em nhé anh.
À mà nó theo PP rút gọn dần đó anh.

CHAOQUAY · 20/4/24

hongphuong1997 đã viết:
Không gộp anh oi, vẫn phải tách biệt từng chuỗi (Từng dòng kết quả)
Dữ liệu trong file là em lấy giả định để mọi người dễ phân biệt mà.
Anh cố gắng giúp em nhé anh.
À mà nó theo PP rút gọn dần đó anh.

Thử cái nữa. Thấy kết quả có vẻ khá giống

Mã:

Option Explicit

Function LocKQ(chuoiKq, ParamArray dlDauvao() As Variant)
Dim mTam
Dim dk
Dim Kq()
Dim maxSL
Dim i, j, k

mTam = Split(chuoiKq, ";")
ReDim Kq(UBound(mTam))
For j = 0 To UBound(dlDauvao) Step 2
    dk = dlDauvao(j + 1)
    i = 0
    For Each k In Split(dlDauvao(j), ";")
        If k = dk Then
            Kq(i) = Kq(i) + 1
        End If
        i = i + 1
    Next k
Next j

maxSL = 0
For j = 0 To UBound(Kq)
    If maxSL < Kq(j) Then maxSL = Kq(j)
Next j

For j = 0 To UBound(Kq)
    If Kq(j) < maxSL Then
        Kq(j) = ""
    Else
        Kq(j) = mTam(j)
    End If
Next j

LocKQ = Replace(Application.Trim(Join(Kq)), " ", ", ")
End Function

hongphuong1997 · 20/4/24

CHAOQUAY đã viết:

Thử cái nữa. Thấy kết quả có vẻ khá giống

Mã:

Option Explicit

Function LocKQ(chuoiKq, ParamArray dlDauvao() As Variant)
Dim mTam
Dim dk
Dim Kq()
Dim maxSL
Dim i, j, k

mTam = Split(chuoiKq, ";")
ReDim Kq(UBound(mTam))
For j = 0 To UBound(dlDauvao) Step 2
    dk = dlDauvao(j + 1)
    i = 0
    For Each k In Split(dlDauvao(j), ";")
        If k = dk Then
            Kq(i) = Kq(i) + 1
        End If
        i = i + 1
    Next k
Next j

maxSL = 0
For j = 0 To UBound(Kq)
    If maxSL < Kq(j) Then maxSL = Kq(j)
Next j

For j = 0 To UBound(Kq)
    If Kq(j) < maxSL Then
        Kq(j) = ""
    Else
        Kq(j) = mTam(j)
    End If
Next j

LocKQ = Replace(Application.Trim(Join(Kq)), " ", ", ")
End Function

Hihi....em cảm ơn anh rất nhiều ạ.
Kết quả chuẩn lắm anh oi.
Nhưng có một chút lỗi nhỏ là khi hết các chuỗi dữ liệu và điều kiện thì hàm vẫn giữ nguyên cái kết quả cuối cùng của dữ liệu.
Anh chỉnh giúp em cắt đuôi cái dữ liệu đó là "No" với nhé anh.

CHAOQUAY · 20/4/24

hongphuong1997 đã viết:
Hihi....em cảm ơn anh rất nhiều ạ.
Kết quả chuẩn lắm anh oi.
Nhưng có một chút lỗi nhỏ là khi hết các chuỗi dữ liệu và điều kiện thì hàm vẫn giữ nguyên cái kết quả cuối cùng của dữ liệu.
Anh chỉnh giúp em cắt đuôi cái dữ liệu đó là "No" với nhé anh.

Chắc thế này thôi

Mã:

Option Explicit

Function LocKQ(chuoiKq, ParamArray dlDauvao() As Variant)
Dim mTam
Dim dk
Dim Kq()
Dim maxSL
Dim i, j, k

mTam = Split(chuoiKq, ";")
ReDim Kq(UBound(mTam))
For j = 0 To UBound(dlDauvao) Step 2
    dk = dlDauvao(j + 1)
    If dk = "" Or dlDauvao(j) = "" Then
        maxSL = 1
        Exit For
    End If
    
    i = 0
    For Each k In Split(dlDauvao(j), ";")
        If k = dk Then
            Kq(i) = Kq(i) + 1
        End If
        i = i + 1
    Next k
Next j

If maxSL = 0 Then
    For j = 0 To UBound(Kq)
        If maxSL < Kq(j) Then maxSL = Kq(j)
    Next j
    
    For j = 0 To UBound(Kq)
        If Kq(j) < maxSL Then
            Kq(j) = ""
        Else
            Kq(j) = mTam(j)
        End If
    Next j
    
    LocKQ = Replace(Application.Trim(Join(Kq)), " ", ", ")
Else
    LocKQ = ""
End If
End Function

Lấy ký tự trong chuỗi theo nhiều điều kiện

Thành viên tiêu biểu

File đính kèm

Thành viên mới

Thành viên tiêu biểu

File đính kèm

Thành viên mới

Thành viên tiêu biểu

Thành viên gắn bó

Thành viên tiêu biểu

Thành viên gắn bó

Thành viên tiêu biểu

File đính kèm

Thành viên hoạt động

Đăng ký hôm qua

Thành viên tiêu biểu

Thành viên hoạt động

Thành viên gắn bó

Thành viên tiêu biểu

File đính kèm

Thành viên gắn bó

Thành viên tiêu biểu

Thành viên gắn bó

Thành viên tiêu biểu

File đính kèm

Thành viên gắn bó

Facebook

Group