Addins: Nối các ô với nhau thành chuỗi, trong chuỗi các ô được cách nhau = dấu phẩy

4 Responses

1. hands says:

   06/05/2023 at 1:33 am

   Cho em hỏi, sau khi filter thì hàm nối chuỗi ở trên có thể lấy những giá trị sau khi Filter không?
   Câu hỏi của em trong file đính kèm. Em cảm ơn
   Chỉnh sửa: đính kèm lại file ở bài #9

   =JoinText("; ",TRUE,IF(SUBTOTAL(3,OFFSET($B$1,ROW(B2:B13)-1,)), B2:B13,""))
   Xin lưu ý rằng hàm JOINTEXT đã được cải tiến khác cái bạn đang dùng nha
   Code như sau:

   Function JoinText(ByVal Delimiter As String, ParamArray Arrays()) As String
     Dim aTmp, arrDes(), Item, tmp As String
     Dim idx As Long, n As Long
     'On Error Resume Next
     For idx = LBound(Arrays) To UBound(Arrays)
       aTmp = Arrays(idx)
       If Not IsArray(aTmp) Then aTmp = Array(aTmp)
       For Each Item In aTmp
         If TypeName(Item) <> "Error" Then
           tmp = CStr(Item)
           n = n + 1
           ReDim Preserve arrDes(1 To n)
           arrDes(n) = tmp
         End If
       Next
     Next
     If n Then JoinText = Join(arrDes, Delimiter)
   End Function

   Do đó công thức bài #6 cũng phải sửa lại:

   =JoinText("; ",IF(SUBTOTAL(3,OFFSET($B$1,ROW(B2:B13)-1,)), B2:B13,1/0))

   Không có TRUE, FALSE gì ráo

   Reply
2. hands says:

   06/05/2023 at 1:36 am

   Kết quả trên chưa đạt theo ý muốn của em (do em diễn giải chưa đúng)
   Em xin nói lại ý muốn của em như sau
   Sau khi chọn vùng B2:B13, thì hàm nối chuỗi của thầy Ndu sẽ ra kết quả là
   =JoinText("; "; B2:B13)=1;2;3;4;5;6;7;8;9;10;11;12
   Sau khi filter "chọn ngày 01/02/18" em muốn hàm nối chuỗi chỉ ra kết quả là 1;4;7;9;12
   Nhờ Thầy cô & anh chị hướng dẫn thêm, em cảm ơn

   Sau khi gõ công thức xong Bạn kết thúc bằng Ctrl+Shift+Enter là được

   Anh cải tiến thêm tham số tùy chọn nối Không trùng cho tổng quát luôn, như

   Em cũng đang cần cái này, Thầy có thể hướng dẫn luôn cho em, em cảm ơn!

   Thầy đi nhậu mất rùi
   Đây là hàm JOINIF của Thầy [URL='https://www.giaiphapexcel.com/diendan/goto/post?id=853572'%5Dndu96081631

   Function JoinIf(ByVal Delimiter As String, ByVal CriteriaArray, ByVal Criteria, Optional ByVal TargetArray) As String
     Dim aTmpCrit, aTmpDes, tmp1, tmp2, arr(), dic As Object
     Dim bComp As Boolean, Chk As Boolean
     Dim i As Long, j As Long, k As Long, dTmpVal As Double
     Set dic = CreateObject("Scripting.Dictionary")
     If IsMissing(TargetArray) Then TargetArray = CriteriaArray
     aTmpCrit = ConvertTo1DArray(CriteriaArray)
     aTmpDes = ConvertTo1DArray(TargetArray)
     If (Not IsArray(aTmpCrit)) Or (Not IsArray(aTmpDes)) Then Exit Function
     On Error Resume Next
     bComp = (InStr("<>=", Left(Criteria, 1)) > 0)
     For i = LBound(aTmpDes) To UBound(aTmpDes)
       tmp1 = aTmpCrit(i): tmp2 = aTmpDes(i)
       If bComp And Len(Criteria) Then
         dTmpVal = CDbl(aTmpCrit(i))
         If Evaluate(dTmpVal & Criteria) Then dic.Add tmp2, ""
       Else
         If (Left(Criteria, 1) = "!") Then
           If Not (UCase(tmp1) Like UCase(Mid(Criteria, 2, Len(Criteria)))) Then dic.Add tmp2, ""
         Else
           If (UCase(tmp1) Like UCase(Criteria)) Then dic.Add tmp2, ""
         End If
       End If
     Next
     If dic.Count Then
       arr = dic.Keys
       JoinIf = Join(arr, Delimiter)
     End If
   End Function
   Private Function ConvertTo1DArray(ByVal SourceArray)
     Dim aTmp, Item, arr()
     Dim n As Long
     On Error Resume Next
     aTmp = SourceArray
     If Not IsArray(aTmp) Then aTmp = Array(aTmp)
     For Each Item In aTmp
       n = n + 1
       ReDim Preserve arr(1 To n)
       arr(n) = Item
     Next
     ConvertTo1DArray = arr
   End Function

   Reply
3. hands says:

   06/05/2023 at 1:37 am

   Tôi đã áp dụng hàm JoinIf, tôi muốn sau khi Filer thì chỉ lấy những giá trị không trùng
   Tôi đã áp dụng công thức ở bài trên nhưng nó ra #Value! ( ở ô F1)
   =JoinIf("; ";IF(SUBTOTAL(3;OFFSET($B$5;ROW(B6:B19)-5;)); B6:B19;1/0))
   KHông biếp áp dụng có đúng không, nhờ bạn chỉnh giúp công thức
   Xin xem file đính kèm

   Cái công thức này: IF(SUBTOTAL(3,OFFSET($B$1,ROW(B2:B13)-1,)), B2:B13,1/0) Thầy [URL='https://www.giaiphapexcel.com/diendan/goto/post?id=853572'%5Dndu96081631 đang để nếu không thỏa mãn điều kiện sẽ bằng 1/0(#Value!)
   Chi sửa lại thành: Nếu không thỏa mãn thì bằng 0. Trong hàm JoinIf Chị cho cái CriteriaArray =">0" là được
   Công thức F1=JoinIf("; ";IF(SUBTOTAL(3;OFFSET($B$5;ROW(B6:B19)-5;)); B6:B19;0);">0")
   Em có làm trong file bài trên tại ô G1 rùi mà

   Hay quá! Mình viết hàm này mà ít khi xài đến, giờ có người tùy biến đến mức thần sầu rồi hen. Cảm ơn bạn!
   Ẹc…. Ẹc….
   Ah! Nhân tiện nếu cột B là số thì có thể rút gọn chút:

   =JoinIf("; ",SUBTOTAL(9,OFFSET($B$5,ROW(B6:B20)-5,)),">0")

   (Cặp hàm JoinText và JoinIf có thể so sánh như cặp SUMPRODUCT và SUMIF vậy đấy)

   Reply
4. hands says:

   06/05/2023 at 1:38 am

   Cho em hỏi nếu cột B không phải là số mà là nó hỗn hợp vừa số vừa text thì công thức hay code phải sửa làm sao? em cảm ơn!

   Trường hợp dữ liệu đặc biệt thì mình mới nghĩ ra cách đặc biệt, còn không thì cứ theo cách tổng quát mà làm, như bài 15 chẳng hạn

   Đây là trường hợp của em, nhờ Thầy xem ở cột Q
   Em cảm ơn!

   Thử công thức này xem sao:

   =JoinIf("; ",SUBTOTAL(3,OFFSET($Q$17,ROW(Q18:Q500)-17,)),">0",Q18:Q500)

   Đừng quên Ctrl + Shift + Enter nhé

   Reply