[Help]Ghép chuỗi có điều kiện

[HuuThang231]

Các bác có ai có add-ins ghép chuỗi giống ntn này ko ?Add-ins trong CLip em down về thì nó toàn báo ""Office had detected a problem with this file.To help Protect Ur computer..."

 

[dazkangel]

Các bác có ai có add-ins ghép chuỗi giống ntn này ko ?Add-ins trong CLip em down về thì nó toàn báo ""Office had detected a problem with this file.To help Protect Ur computer..."

Bạn có sử dụng excel (365) 2016 thì ta có hàm TEXTJOIN rất tiện.
còn không nhờ anh nào viết hàm VBA cho
còn không đưa bài bạn lên mình sẽ thử 1 cách khác xem.

 

[ketxu]

Các bác có ai có add-ins ghép chuỗi giống ntn này ko ...

Bạn thử :

Function Ghepchuoi_dk(Vung_dk As Range, dk As Variant, Vung_noi As Range, Optional ngan As String = " , ") As Variant
Dim i As Long
On Error GoTo ErrHandler
For i = 1 To Vung_dk.Count
    If Vung_dk.Cells(i).Value = dk Then
    Ghepchuoi_dk = Ghepchuoi_dk & ngan & Vung_noi.Cells(i).Value
End If
Next i
If Ghepchuoi_dk <> "" Then
    Ghepchuoi_dk = Mid(Ghepchuoi_dk, Len(ngan) + 1)
Else: Ghepchuoi_dk = ""
End If
Exit Function
ErrHandler:
Ghepchuoi_dk = CVErr(xlErrValue)
End Function

 

[HuuThang231]

Bạn có sử dụng excel (365) 2016 thì ta có hàm TEXTJOIN rất tiện.
còn không nhờ anh nào viết hàm VBA cho
còn không đưa bài bạn lên mình sẽ thử 1 cách khác xem.

Files của mình đây,bác xem thử hộ em,đại khái là em muốn 1 hàm ghép chuỗi giống hàm tính tổng Sumif như kiểu trong video

 

[HuuThang231]

Bạn thử :

Function Ghepchuoi_dk(Vung_dk As Range, dk As Variant, Vung_noi As Range, Optional ngan As String = " , ") As Variant
Dim i As Long
On Error GoTo ErrHandler
For i = 1 To Vung_dk.Count
    If Vung_dk.Cells(i).Value = dk Then
    Ghepchuoi_dk = Ghepchuoi_dk & ngan & Vung_noi.Cells(i).Value
End If
Next i
If Ghepchuoi_dk <> "" Then
    Ghepchuoi_dk = Mid(Ghepchuoi_dk, Len(ngan) + 1)
Else: Ghepchuoi_dk = ""
End If
Exit Function
ErrHandler:
Ghepchuoi_dk = CVErr(xlErrValue)
End Function

Đúng cái mình cần rồi,đa tạ bác nhiều

 

[NguyenNgocThuHien]

Bạn có thể dùng cái này.

 

[befaint]

Bạn có thể dùng cái này.

Có gì hay... úp luôn code lên đây... cho mọi người coi học hỏi. Chứ cái video đó mỏi mắt lắm!!!

 

[NguyenNgocThuHien]

Có gì hay... úp luôn code lên đây... cho mọi người coi học hỏi. Chứ cái video đó mỏi mắt lắm!!!

https://drive.google.com/open?id=0B87wpzexmU0UWkVXNDFRTmpobGs

 

[NguyenNgocThuHien]

Có gì hay... úp luôn code lên đây... cho mọi người coi học hỏi. Chứ cái video đó mỏi mắt lắm!!!

Mà Xem file của bạn ý thì cũng rối như canh hẹ, dữ liệu như vậy không chính thống, khó xử lý

 

[PacificPR]

Có gì hay... úp luôn code lên đây... cho mọi người coi học hỏi. Chứ cái video đó mỏi mắt lắm!!!

Anh ơi hình như chị ấy có đưa lên rồi Anh à.

 

[HuuThang231]

Bạn có thể dùng cái này.

Hay quá nhỉ,của bạn cũng giống cái mình cần,nhiều cao thủ quá,bạn có nhận dạy kèm VBA riêng ko bạn