Ghép chuỗi có điều kiện.

3 Responses

1. hands says:

   06/05/2023 at 12:53 am

   Qua các bài viết, mình thấy bài này dùng vba có vẻ là ổn hơn. Công thức cũng khoai mà phiên bản thì cũng thấp. Cảm ơn anh chị em diễn đàn.

   Nếu vậy bạn dùng hàm mở rộng nhé

   =JoinText(", ",TRUE,IF(B6:B8&C6:C8="00","",B6:B8&" ("&TEXT(C6:C8,"dd/mm/yyyy")&")"))

   Reply
2. hands says:

   06/05/2023 at 12:53 am

   VBA thì cao siêu quá.

   Chừng nào bắt bạn tự viết để xài thì mới là cao siêu, chứ người khác viết sẵn, bạn chỉ xài thôi mà cao siêu gì. Cứ tưởng tượng hàm tự tạo giống như mấy hàm anh Bill viết sẵn đi, đâu cần biết MS viết gì và các bạn vẫn cứ xài đấy thôi
   ———————————————-

   Nếu vậy bạn dùng hàm mở rộng nhé

   =JoinText(", ",TRUE,IF(B6:B8&C6:C8="00","",B6:B8&" ("&TEXT(C6:C8,"dd/mm/yyyy")&")"))

   Lưu ý với các bạn đang dùng hàm JoinText, nếu thấy trong hàm có đối số IgnoreBlanks thì đó là phiên bản cũ lắm rồi. Vui lòng tải phiên bản mới tốt hơn nhé

   Reply
3. hands says:

   06/05/2023 at 12:54 am

   1. Nếu dùng cột phụ (các ô mình bôi màu xanh), công thức có vẻ hơi dài nhưng dễ viết.
   E6=E5& ", "&B6 & " (" & TEXT(C6,"dd/mm/yyyy")&")"
   fill xuống E8
   Kết quả G4=SUBSTITUTE(RIGHT(E8,LEN(E8)-2),"0 (00/01/1900), ","")
   2. Nếu dùng VBA

   Function xxx$(Data As Range, MaHang, Phi As Range)
       Dim arr(), P As Range, i&
       arr = Data.Value
       For Each P In Phi
           For i = 1 To UBound(arr)
               If arr(i, 1) = MaHang And arr(i, 4) = P Then
                   xxx = xxx & ", " & arr(i, 2) & " (" & arr(i, 3) & ")"
                   Exit For
               End If
           Next
       Next
       If Len(xxx) > 0 Then xxx = Right(xxx, Len(xxx) - 2)
   End Function

   Do vùng Phí chỉ có ít ô nên đọc trực tiếp không ảnh hưởng tốc độ.
   Công thức (ô màu đỏ)
   =xxx(NGUON!A8:D10,C2,D6:D8)

   Reply