Hàm nối chuỗi có điều kiện (2 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
Q

quanglinh8990

Thành viên bị đình chỉ hoạt động
Thành viên bị đình chỉ hoạt động
Tham gia
26/3/18
Bài viết
15
Được thích
0
Giới tính
Nam
Hi Anh/Chị,
Em đang muốn nối các chuổi giữa các ô với nhau nhưng bỏ qua các ô có giá trị "ok" như trong file đính kèm. Nếu dùng hàm IF thì vẫn ra được nhưng khá là dài, vì số lượng các cột của em nhiều hơn file gửi lên. Nên nhờ Anh/Chị cao thủ giúp em set up công thức tại cột "CHECK". Thanks All.
 

File đính kèm

quanglinh8990 đã viết:
Hi Anh/Chị,
Em đang muốn nối các chuổi giữa các ô với nhau nhưng bỏ qua các ô có giá trị "ok" như trong file đính kèm. Nếu dùng hàm IF thì vẫn ra được nhưng khá là dài, vì số lượng các cột của em nhiều hơn file gửi lên. Nên nhờ Anh/Chị cao thủ giúp em set up công thức tại cột "CHECK". Cảm ơn All.
Nhấp chuột vào đây để mở rộng...
Dùng JoinText() của thầy @ndu96081631
Thử:
Mã: 
F2=JoinText("; ",1,IF(A2:E2<>"ok",$A$1:$E$1&": "&A2:E2,""))
Ctrl+Shift+Enter kết thúc.
Xem file kèm.
Thân
 

File đính kèm

Phan Thế Hiệp đã viết:
Dùng JoinText() của thầy @ndu96081631
Thử:
Mã: 
F2=JoinText("; ",1,IF(A2:E2<>"ok",$A$1:$E$1&": "&A2:E2,""))
Ctrl+Shift+Enter kết thúc.
Xem file kèm.
Thân
Nhấp chuột vào đây để mở rộng...
Hàm đó "xưa rồi diễm ơi". Sau này đã cải tiến lại:
Mã: 
Function JoinText(ByVal Delimiter As String, ParamArray Arrays()) As String
  Dim aDest()   As Variant
  Dim aSub      As Variant
  Dim item      As Variant
  Dim idx       As Long
  Dim n         As Long
  Dim sItem     As String
  'On Error Resume Next
  For n = LBound(Arrays) To UBound(Arrays)
    aSub = Arrays(n)
    If Not IsArray(aSub) Then aSub = Array(aSub)
    For Each item In aSub
      If TypeName(item) <> "Error" Then
        sItem = CStr(item)
        idx = idx + 1
        ReDim Preserve aDest(1 To idx)
        aDest(idx) = sItem
      End If
    Next
  Next
  If idx Then JoinText = Join(aDest, Delimiter)
End Function
Và áp dụng trên sheet:
Mã: 
=JoinText("; ",IF(A2:E2<>"ok",$A$1:$E$1&": "&A2:E2,1/0))
Ngày trước tôi nghĩ nên có đối số IgnoreBlanks cho trường hợp muốn loại bỏ phần tử rổng. Sau này thấy không cần thiết, muốn rổng hoặc không rổng gì thì cứ phát biểu vào biểu thức là được
 
ndu96081631 đã viết:
Hàm đó "xưa rồi diễm ơi". Sau này đã cải tiến lại:
Mã: 
Function JoinText(ByVal Delimiter As String, ParamArray Arrays()) As String
  Dim aDest()   As Variant
  Dim aSub      As Variant
  Dim item      As Variant
  Dim idx       As Long
  Dim n         As Long
  Dim sItem     As String
  'On Error Resume Next
  For n = LBound(Arrays) To UBound(Arrays)
    aSub = Arrays(n)
    If Not IsArray(aSub) Then aSub = Array(aSub)
    For Each item In aSub
      If TypeName(item) <> "Error" Then
        sItem = CStr(item)
        idx = idx + 1
        ReDim Preserve aDest(1 To idx)
        aDest(idx) = sItem
      End If
    Next
  Next
  If idx Then JoinText = Join(aDest, Delimiter)
End Function
Và áp dụng trên sheet:
Mã: 
=JoinText("; ",IF(A2:E2<>"ok",$A$1:$E$1&": "&A2:E2,1/0))
Ngày trước tôi nghĩ nên có đối số IgnoreBlanks cho trường hợp muốn loại bỏ phần tử rổng. Sau này thấy không cần thiết, muốn rổng hoặc không rổng gì thì cứ phát biểu vào biểu thức là được
Nhấp chuột vào đây để mở rộng...
Sao anh không cấp nhật hàm JionIf và hàm JionText mới nhất lên "Trang Chủ" để dễ tim kiếm
 
ndu96081631 đã viết:
Hàm đó "xưa rồi diễm ơi". Sau này đã cải tiến lại:
Mã: 
Function JoinText(ByVal Delimiter As String, ParamArray Arrays()) As String
  Dim aDest()   As Variant
  Dim aSub      As Variant
  Dim item      As Variant
  Dim idx       As Long
  Dim n         As Long
  Dim sItem     As String
  'On Error Resume Next
  For n = LBound(Arrays) To UBound(Arrays)
    aSub = Arrays(n)
    If Not IsArray(aSub) Then aSub = Array(aSub)
    For Each item In aSub
      If TypeName(item) <> "Error" Then
        sItem = CStr(item)
        idx = idx + 1
        ReDim Preserve aDest(1 To idx)
        aDest(idx) = sItem
      End If
    Next
  Next
  If idx Then JoinText = Join(aDest, Delimiter)
End Function
Và áp dụng trên sheet:
Mã: 
=JoinText("; ",IF(A2:E2<>"ok",$A$1:$E$1&": "&A2:E2,1/0))
Ngày trước tôi nghĩ nên có đối số IgnoreBlanks cho trường hợp muốn loại bỏ phần tử rổng. Sau này thấy không cần thiết, muốn rổng hoặc không rổng gì thì cứ phát biểu vào biểu thức là được
Nhấp chuột vào đây để mở rộng...
Bác ui, bác giỏi thế.
 
quanglinh8990 đã viết:
Hi Anh/Chị,
Em đang muốn nối các chuổi giữa các ô với nhau nhưng bỏ qua các ô có giá trị "ok" như trong file đính kèm. Nếu dùng hàm IF thì vẫn ra được nhưng khá là dài, vì số lượng các cột của em nhiều hơn file gửi lên. Nên nhờ Anh/Chị cao thủ giúp em set up công thức tại cột "CHECK". Cảm ơn All.
Nhấp chuột vào đây để mở rộng...
Góp vui cho bạn công thức mảng (excel 2016 hoặc 365), kết thúc Ctrl-Shift-Enter
=TEXTJOIN(";",TRUE,IF(A2:E2="ok","",$A$1:$E$1&": "&A2:E2))

MS học bác @ndu96081631 viết hàm TEXTJOIN rồi bác ơi.
 
hocexcel_1991 đã viết:
Sao anh không cấp nhật hàm JionIf và hàm JionText mới nhất lên "Trang Chủ" để dễ tim kiếm
Nhấp chuột vào đây để mở rộng...
Nguyên bộ hàm liên quan đến nối chuỗi có điều kiện của mình:
Mã: 
Function JoinText(ByVal Delimiter As String, ParamArray Arrays()) As String
  Dim aDest()   As Variant
  Dim aSub      As Variant
  Dim item      As Variant
  Dim idx       As Long
  Dim n         As Long
  Dim sItem     As String
  'On Error Resume Next
  For n = LBound(Arrays) To UBound(Arrays)
    aSub = Arrays(n)
    If Not IsArray(aSub) Then aSub = Array(aSub)
    For Each item In aSub
      If TypeName(item) <> "Error" Then
        sItem = CStr(item)
        idx = idx + 1
        ReDim Preserve aDest(1 To idx)
        aDest(idx) = sItem
      End If
    Next
  Next
  If idx Then JoinText = Join(aDest, Delimiter)
End Function
Function JoinIf(ByVal Delimiter As String, ByVal CriteriaArray, ByVal Criteria, Optional ByVal TargetArray) As String
  Dim aDest()       As Variant
  Dim aCriteria     As Variant
  Dim aTarget       As Variant
  Dim sCriteria     As Variant
  Dim sTarget       As Variant
  Dim dic           As Object
  Dim bComp         As Boolean
  Dim idx           As Long
  Dim dTmpVal       As Double
  
  'On Error Resume Next
  Set dic = CreateObject("Scripting.Dictionary")
  If IsMissing(TargetArray) Then TargetArray = CriteriaArray
  aCriteria = ConvertTo1DArray(CriteriaArray)
  aTarget = ConvertTo1DArray(TargetArray)
  If (Not IsArray(aCriteria)) Or (Not IsArray(aTarget)) Then Exit Function
  
  bComp = (InStr("<>=", Left(Criteria, 1)) > 0)
  For idx = LBound(aTarget) To UBound(aTarget)
    sCriteria = aCriteria(idx): sTarget = aTarget(idx)
    If TypeName(sCriteria) <> "Error" Then
      If TypeName(sTarget) <> "Error" Then
        If bComp And Len(Criteria) Then
          dTmpVal = CDbl(aCriteria(idx))
          If Evaluate(dTmpVal & Criteria) Then
            If Not dic.Exists(sTarget) Then dic.Add sTarget, ""
          End If
        Else
          If (Left(Criteria, 1) = "!") Then
            If Not (UCase(sCriteria) Like UCase(Mid(Criteria, 2))) Then
              If Not dic.Exists(sTarget) Then dic.Add sTarget, ""
            End If
          Else
            If (UCase(sCriteria) Like UCase(Criteria)) Then
              If Not dic.Exists(sTarget) Then dic.Add sTarget, ""
            End If
          End If
        End If
      End If
    End If
  Next
  If dic.Count Then
    aDest = dic.Keys
    JoinIf = Join(aDest, Delimiter)
  End If
  Set dic = Nothing
  'If Err.Number Then MsgBox Err.Description
End Function
Private Function ConvertTo1DArray(ByVal SourceArray)
  Dim aDest()   As Variant
  Dim aSource   As Variant
  Dim item      As Variant
  Dim idx       As Long
  'On Error Resume Next
  aSource = SourceArray
  If Not IsArray(aSource) Then aSource = Array(aSource)
  For Each item In aSource
    idx = idx + 1
    ReDim Preserve aDest(1 To idx)
    aDest(idx) = item
  Next
  ConvertTo1DArray = aDest
  'If Err.Number Then MsgBox Err.Description
End Function
Function UniqueList(ParamArray Arrays())
  Dim aDest()   As Variant
  Dim aSub      As Variant
  Dim item      As Variant
  Dim idx       As Long
  Dim n         As Long
  Dim sItem     As String
  Dim dic       As Object
  'On Error Resume Next
  Set dic = CreateObject("Scripting.Dictionary")
  For n = LBound(Arrays) To UBound(Arrays)
    aSub = Arrays(n)
    If Not IsArray(aSub) Then aSub = Array(aSub)
    For Each item In aSub
      If TypeName(item) <> "Error" Then
        sItem = CStr(item)
        If Len(sItem) Then
          If Not dic.Exists(sItem) Then dic.Add sItem, Empty
        End If
      End If
    Next
  Next
  If dic.Count Then UniqueList = dic.Keys
  Set dic = Nothing
  'If Err.Number Then MsgBox Err.Description
End Function
Lưu ý: hàm JoinIf dùng giống như SUMIF hay COUNTIF, có nghĩa là cho phép dùng các toán tử so sánh (như =, <, >...) hoặc ký tự đại diện (như *, ?)
 

File đính kèm

hongphuong1997 đã viết:
Anh à, em thề không bao giờ dùng hàm mảng đâu.
Sợ lắm.
Chết máy
Nhấp chuột vào đây để mở rộng...
Hàm của tôi cũng là mảng đó bạn
Tùy chuyện mà dùng thôi. Liên quan đến việc nối chuỗi, tôi nghĩ chúng ta cần kết quả trong một vài cells (nhằm mô tả ghi chú nào đó) chứ không lý nào lại kéo fill đến mấy chục ngàn dòng (vô lý lắm)
 
ndu96081631 đã viết:
Nguyên bộ hàm liên quan đến nối chuỗi có điều kiện của mình:
Lưu ý: hàm JoinIf dùng giống như SUMIF hay COUNTIF, có nghĩa là cho phép dùng các toán tử so sánh (như =, <, >...) hoặc ký tự đại diện (như *, ?)
Nhấp chuột vào đây để mở rộng...
Vậy là phải cập nhật và nâng cấp lên 'version' 2 hả thầy! :) Cảm ơn thầy đã quan tâm đến anh em GPE.
Nhờ hàm UDF này của thầy mà 1 số công đoạn nối chuỗi kết quả từ hàm được thông mạch.
hongphuong1997 đã viết:
Anh à, em thề không bao giờ dùng hàm mảng đâu.
Sợ lắm.
Chết máy
Nhấp chuột vào đây để mở rộng...
Excel: là động từ 'xuất sắc, hơn trội', danh từ là excellence (Trích: https://vdict.com/excel,1,0,0.html)

Bản thân excel đơn thuần là "bảng tính", là tổng thể 1 môi trường bao gồm trong đó có 'nơi chứa', và các 'công cụ - dụng cụ' nhằm mục đích tính toán. Chính nhờ sự thấu hiểu của các kỹ sư phần mềm về tâm lý và thói quen của người sử dụng mà môi trường này được sử dụng và phục vụ đa dạng cho mọi ngành nghề, một môi trường mà các công cụ - dụng cụ tuy có các chức năng khác nhau, nhưng nếu biết phát huy điểm mạnh của từng cái, và phối hợp chúng nhuần nhuyễn đúng nơi đúng lúc thì nó mới gọi là "EXCEL - 'xuất sắc' " được. Cũng giống như các bộ phận trong cơ thể con người, bạn không thể dùng tay để 'nếm hoặc ngửi', dùng chân để 'phân biệt màu sắc', dùng đầu để đi được....Excel cũng vậy, nếu thiên về 1 chức năng nào quá, bạn cũng như người bị khuyết tật, phải lấy tay dò đường khi không còn đôi mắt, hoặc dùng các ký hiệu bàn tay ra dấu khi không còn giọng nói, hoặc dùng chân để viết khi không còn đôi tay...

Có những bài toán (hoặc yêu cầu) chỉ đơn thuần dùng một hay kết hợp vài hàm cơ bản là giải quyết tốt, có bài khác phải dùng công thức Mảng mà ngay cả VBA cũng không thể nào làm nhanh và gọn hơn, có những bài cần thống kê thì không công cụ nào qua khỏi PivotTable hay Advance Filter, lại có những bài phải xử lý dữ liệu lớn và có tính cách lặp đi lặp lại thì không gì bằng VBA....

Nói tóm lại, thái quá hay bất cập đều có hại cho người học excel, đã học thì không nên có thành kiến: thích hay ghét hàm này hàm kia, công cụ này dụng cụ kia, bạn cứ như một hồ chứa nước chưa bao giờ đầy, nên nhận và chọn lọc những gì bạn muốn chứa để phục vụ mục tiêu chính: 'Làm tốt công việc mưu sinh', Cho nên phải biết sử dụng 'mọi công cụ' đúng nơi đúng lúc thì bạn mới là 'tông đồ' của 'EXCEL'.

Vài chia sẻ về excel với bạn.

Thân
 
Dạ. Em đã làm được rồi. Cảm ơn các Bác nhé.
 
ndu96081631 đã viết:
Nguyên bộ hàm liên quan đến nối chuỗi có điều kiện của mình:
Mã: 
Function JoinText(ByVal Delimiter As String, ParamArray Arrays()) As String
  Dim aDest()   As Variant
  Dim aSub      As Variant
  Dim item      As Variant
  Dim idx       As Long
  Dim n         As Long
  Dim sItem     As String
  'On Error Resume Next
  For n = LBound(Arrays) To UBound(Arrays)
    aSub = Arrays(n)
    If Not IsArray(aSub) Then aSub = Array(aSub)
    For Each item In aSub
      If TypeName(item) <> "Error" Then
        sItem = CStr(item)
        idx = idx + 1
        ReDim Preserve aDest(1 To idx)
        aDest(idx) = sItem
      End If
    Next
  Next
  If idx Then JoinText = Join(aDest, Delimiter)
End Function
Function JoinIf(ByVal Delimiter As String, ByVal CriteriaArray, ByVal Criteria, Optional ByVal TargetArray) As String
  Dim aDest()       As Variant
  Dim aCriteria     As Variant
  Dim aTarget       As Variant
  Dim sCriteria     As Variant
  Dim sTarget       As Variant
  Dim dic           As Object
  Dim bComp         As Boolean
  Dim idx           As Long
  Dim dTmpVal       As Double
 
  'On Error Resume Next
  Set dic = CreateObject("Scripting.Dictionary")
  If IsMissing(TargetArray) Then TargetArray = CriteriaArray
  aCriteria = ConvertTo1DArray(CriteriaArray)
  aTarget = ConvertTo1DArray(TargetArray)
  If (Not IsArray(aCriteria)) Or (Not IsArray(aTarget)) Then Exit Function
 
  bComp = (InStr("<>=", Left(Criteria, 1)) > 0)
  For idx = LBound(aTarget) To UBound(aTarget)
    sCriteria = aCriteria(idx): sTarget = aTarget(idx)
    If TypeName(sCriteria) <> "Error" Then
      If TypeName(sTarget) <> "Error" Then
        If bComp And Len(Criteria) Then
          dTmpVal = CDbl(aCriteria(idx))
          If Evaluate(dTmpVal & Criteria) Then
            If Not dic.Exists(sTarget) Then dic.Add sTarget, ""
          End If
        Else
          If (Left(Criteria, 1) = "!") Then
            If Not (UCase(sCriteria) Like UCase(Mid(Criteria, 2))) Then
              If Not dic.Exists(sTarget) Then dic.Add sTarget, ""
            End If
          Else
            If (UCase(sCriteria) Like UCase(Criteria)) Then
              If Not dic.Exists(sTarget) Then dic.Add sTarget, ""
            End If
          End If
        End If
      End If
    End If
  Next
  If dic.Count Then
    aDest = dic.Keys
    JoinIf = Join(aDest, Delimiter)
  End If
  Set dic = Nothing
  'If Err.Number Then MsgBox Err.Description
End Function
Private Function ConvertTo1DArray(ByVal SourceArray)
  Dim aDest()   As Variant
  Dim aSource   As Variant
  Dim item      As Variant
  Dim idx       As Long
  'On Error Resume Next
  aSource = SourceArray
  If Not IsArray(aSource) Then aSource = Array(aSource)
  For Each item In aSource
    idx = idx + 1
    ReDim Preserve aDest(1 To idx)
    aDest(idx) = item
  Next
  ConvertTo1DArray = aDest
  'If Err.Number Then MsgBox Err.Description
End Function
Function UniqueList(ParamArray Arrays())
  Dim aDest()   As Variant
  Dim aSub      As Variant
  Dim item      As Variant
  Dim idx       As Long
  Dim n         As Long
  Dim sItem     As String
  Dim dic       As Object
  'On Error Resume Next
  Set dic = CreateObject("Scripting.Dictionary")
  For n = LBound(Arrays) To UBound(Arrays)
    aSub = Arrays(n)
    If Not IsArray(aSub) Then aSub = Array(aSub)
    For Each item In aSub
      If TypeName(item) <> "Error" Then
        sItem = CStr(item)
        If Len(sItem) Then
          If Not dic.Exists(sItem) Then dic.Add sItem, Empty
        End If
      End If
    Next
  Next
  If dic.Count Then UniqueList = dic.Keys
  Set dic = Nothing
  'If Err.Number Then MsgBox Err.Description
End Function
Lưu ý: hàm JoinIf dùng giống như SUMIF hay COUNTIF, có nghĩa là cho phép dùng các toán tử so sánh (như =, <, >...) hoặc ký tự đại diện (như *, ?)
Nhấp chuột vào đây để mở rộng...
Thank anh ! Bộ hàm huyền thoại
 
Phan Thế Hiệp đã viết:
...Có những bài toán (hoặc yêu cầu) chỉ đơn thuần dùng một hay kết hợp vài hàm cơ bản là giải quyết tốt, có bài khác phải dùng công thức Mảng mà ngay cả VBA cũng không thể nào làm nhanh và gọn hơn, có những bài cần thống kê thì không công cụ nào qua khỏi PivotTable hay Advance Filter, lại có những bài phải xử lý dữ liệu lớn và có tính cách lặp đi lặp lại thì không gì bằng VBA....
...
Nhấp chuột vào đây để mở rộng...
Thiệt ra, với sự cải tiến của máy tính và công nghệ thông tin ngày nay, ngừoi ta chỉ cần học 3 điều cho thật tốt:
1. Học cách tình bày bảng tính bằng cách chuẩn hoá dữ liệu. Cái này gồm 2 phần:
1.1 Chuẩn hoá dữ liệu về đồng loạt. Tức là những dữ liệu cùng cột phải đồng dạng với nhau.
1.2 Chuẩn theo dang CSDL LH, càng gần càng tốt.
2. Học cách dự đoán những điều bất trắc, những giới hạn của dữ liệu.
3. Học cách diễn tả vấn đề của mình. Nếu vấn đề dài, phức tạp thì nên viết ra giấy, diễn giải một bảng lô gic, sau đó đọc lại xem đã diễn giải đủ chưa.

Có được 3 điều trên thì chỉ còn việc đem bài lên đây hỏi, khỏi cần rèn luyện cốt kiếc, công thức gì cả.

Ỏ đây, phần lớn bài đều bị vướng mắc ở 1, 2, hay cả 3 điều trên cho nên hầu như luôn luôn phải mất trên 5 bài trả lời mới thấy giải đáp đúng.
 
ndu96081631 đã viết:
Nguyên bộ hàm liên quan đến nối chuỗi có điều kiện của mình:
Mã: 
Function JoinText(ByVal Delimiter As String, ParamArray Arrays()) As String
  Dim aDest()   As Variant
  Dim aSub      As Variant
  Dim item      As Variant
  Dim idx       As Long
  Dim n         As Long
  Dim sItem     As String
  'On Error Resume Next
  For n = LBound(Arrays) To UBound(Arrays)
    aSub = Arrays(n)
    If Not IsArray(aSub) Then aSub = Array(aSub)
    For Each item In aSub
      If TypeName(item) <> "Error" Then
        sItem = CStr(item)
        idx = idx + 1
        ReDim Preserve aDest(1 To idx)
        aDest(idx) = sItem
      End If
    Next
  Next
  If idx Then JoinText = Join(aDest, Delimiter)
End Function
Function JoinIf(ByVal Delimiter As String, ByVal CriteriaArray, ByVal Criteria, Optional ByVal TargetArray) As String
  Dim aDest()       As Variant
  Dim aCriteria     As Variant
  Dim aTarget       As Variant
  Dim sCriteria     As Variant
  Dim sTarget       As Variant
  Dim dic           As Object
  Dim bComp         As Boolean
  Dim idx           As Long
  Dim dTmpVal       As Double
 
  'On Error Resume Next
  Set dic = CreateObject("Scripting.Dictionary")
  If IsMissing(TargetArray) Then TargetArray = CriteriaArray
  aCriteria = ConvertTo1DArray(CriteriaArray)
  aTarget = ConvertTo1DArray(TargetArray)
  If (Not IsArray(aCriteria)) Or (Not IsArray(aTarget)) Then Exit Function
 
  bComp = (InStr("<>=", Left(Criteria, 1)) > 0)
  For idx = LBound(aTarget) To UBound(aTarget)
    sCriteria = aCriteria(idx): sTarget = aTarget(idx)
    If TypeName(sCriteria) <> "Error" Then
      If TypeName(sTarget) <> "Error" Then
        If bComp And Len(Criteria) Then
          dTmpVal = CDbl(aCriteria(idx))
          If Evaluate(dTmpVal & Criteria) Then
            If Not dic.Exists(sTarget) Then dic.Add sTarget, ""
          End If
        Else
          If (Left(Criteria, 1) = "!") Then
            If Not (UCase(sCriteria) Like UCase(Mid(Criteria, 2))) Then
              If Not dic.Exists(sTarget) Then dic.Add sTarget, ""
            End If
          Else
            If (UCase(sCriteria) Like UCase(Criteria)) Then
              If Not dic.Exists(sTarget) Then dic.Add sTarget, ""
            End If
          End If
        End If
      End If
    End If
  Next
  If dic.Count Then
    aDest = dic.Keys
    JoinIf = Join(aDest, Delimiter)
  End If
  Set dic = Nothing
  'If Err.Number Then MsgBox Err.Description
End Function
Private Function ConvertTo1DArray(ByVal SourceArray)
  Dim aDest()   As Variant
  Dim aSource   As Variant
  Dim item      As Variant
  Dim idx       As Long
  'On Error Resume Next
  aSource = SourceArray
  If Not IsArray(aSource) Then aSource = Array(aSource)
  For Each item In aSource
    idx = idx + 1
    ReDim Preserve aDest(1 To idx)
    aDest(idx) = item
  Next
  ConvertTo1DArray = aDest
  'If Err.Number Then MsgBox Err.Description
End Function
Function UniqueList(ParamArray Arrays())
  Dim aDest()   As Variant
  Dim aSub      As Variant
  Dim item      As Variant
  Dim idx       As Long
  Dim n         As Long
  Dim sItem     As String
  Dim dic       As Object
  'On Error Resume Next
  Set dic = CreateObject("Scripting.Dictionary")
  For n = LBound(Arrays) To UBound(Arrays)
    aSub = Arrays(n)
    If Not IsArray(aSub) Then aSub = Array(aSub)
    For Each item In aSub
      If TypeName(item) <> "Error" Then
        sItem = CStr(item)
        If Len(sItem) Then
          If Not dic.Exists(sItem) Then dic.Add sItem, Empty
        End If
      End If
    Next
  Next
  If dic.Count Then UniqueList = dic.Keys
  Set dic = Nothing
  'If Err.Number Then MsgBox Err.Description
End Function
Lưu ý: hàm JoinIf dùng giống như SUMIF hay COUNTIF, có nghĩa là cho phép dùng các toán tử so sánh (như =, <, >...) hoặc ký tự đại diện (như *, ?)
Nhấp chuột vào đây để mở rộng...
Em đọc chưa hiểu các tham số hàm Jointext
Muốn nhờ thầy và anh chị em giúp hàm này trong ví dụ thực tế,
nối chuỗi nhiều điều kiện
=jointext(CHAR(10);TRUE;LOOKUP(2;1/(D13>=$D$3:$D$8)*1/(D13<=$F$3:$F$8);$C$3:$C$8))
Yêu cầu nối chuỗi theo ngày các công việc thực hiện trong cùng một ngày được liệt kê theo dòng từng ngày
 

File đính kèm

KhanhChi29 đã viết:
Em đọc chưa hiểu các tham số hàm Jointext
Muốn nhờ thầy và anh chị em giúp hàm này trong ví dụ thực tế,
nối chuỗi nhiều điều kiện
=jointext(CHAR(10);TRUE;LOOKUP(2;1/(D13>=$D$3:$D$8)*1/(D13<=$F$3:$F$8);$C$3:$C$8))
Yêu cầu nối chuỗi theo ngày các công việc thực hiện trong cùng một ngày được liệt kê theo dòng từng ngày
Nhấp chuột vào đây để mở rộng...
- em thử theo cách nối chuỗi 1 điều kiện:
=jointext(CHAR(10);TRUE;IF((D13=$D$3:$D$8;$C$3:$C$8;""))
thì được kết quả chưa mong muốn
- nối chuỗi theo 2 điều kiện, lồng thêm điều kiện và hàm if
=jointext(CHAR(10);TRUE;IF(AND(D13>=$D$3:$D$8;D13<=$F$3:$F$8);$C$3:$C$8;""))
thì không được
Mong được các thầy và anh chị em chỉ giúp
 
KhanhChi29 đã viết:
Em đọc chưa hiểu các tham số hàm Jointext
Muốn nhờ thầy và anh chị em giúp hàm này trong ví dụ thực tế,
nối chuỗi nhiều điều kiện
=jointext(CHAR(10);TRUE;LOOKUP(2;1/(D13>=$D$3:$D$8)*1/(D13<=$F$3:$F$8);$C$3:$C$8))
Yêu cầu nối chuỗi theo ngày các công việc thực hiện trong cùng một ngày được liệt kê theo dòng từng ngày
Nhấp chuột vào đây để mở rộng...
Tham khảo file đính kèm.

Thân
 

File đính kèm

KhanhChi29 đã viết:
Cảm ơn bạn, Mong được gặp trong thời gian gần nhất, Mình ở Hà Nội, Nếu có thể cho mình biết bạn đang sống ở đâu?
Nhấp chuột vào đây để mở rộng...
Nhạc sĩ Y Vân sẽ giới thiệu cho bạn biết: "Sài Gòn đẹp lắm, Sài Gòn ơi! Sài Gòn ơi!" :D
Gặp người em thay mặt nha! vừa đẹp trai, hào hoa, vừa giỏi Excel nữa, lại cũng ở Hà Nội: @befaint


Chúc bạn học vui với GPE
Thân
 
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

D
  • Question Question
Quản lý email outlook qua VBA cần giúp đỡ (4 người xem)
Trả lời
0
Đọc
4
dohungmo
D
F
  • Question Question
Tự động Merge Mail bằng VBA (1 người xem)
Trả lời
6
Đọc
165
Hoàng Tuấn 868
H
N
Một ví dụ về XLL add-in: Tương tác với Google Gemini dưới dạng công thức bảng tính (1 người xem)
    • Thích
Trả lời
0
Đọc
57
nguyendang95
N
H
Nhờ anh/chị giúp đỡ em viết công thức trừ dữ liệu theo FiFo
Trả lời
1
Đọc
80
HieuCD
H
BNTT
LockXLS - Chương trình bảo vệ an toàn cho các file bảng tính Excel
    • Thích
4 5 6
Trả lời
118
Đọc
73K
YêuCN
Y
vsitcnh
Hỗ trợ công thức tính điểm dựa theo điều kiện.
Trả lời
14
Đọc
165
thuytrangbp28
T
K
  • Question Question
nhờ ace giúp đỡ tự động filter và In hàng loạt từng mục trong piviot table
Trả lời
0
Đọc
63
khkkh
K
micam111
  • Question Question
Cách chạy nhiều đồng hồ đếm giờ trong VBA (1 người xem)
Trả lời
4
Đọc
678
thuytrangbp28
T
B
Xin giải pháp chống sửa, xóa dữ liệu đã nhập vào từ ngày hôm trước. (1 người xem)
    • Thích
2
Trả lời
26
Đọc
7K
Tuấn Bụng Bự
Tuấn Bụng Bự
Emyeuexcel
  • Question Question
In tất cả các file trong cùng 1 thư mục
Trả lời
3
Đọc
198
Hoàng Tuấn 868
H
L
Lỗi font khi convert từ pdf
Trả lời
2
Đọc
96
DeTong
D
1
Hỏi về đánh dấu hàng ngang hàng dọc bằng màu khi kích chuột vào 1 ô
Trả lời
7
Đọc
192
Gà Công Nghệ
Gà Công Nghệ
PhanTuHuong
Sách Lập trình VBA trong AutoCAD đã có mặt
    • Thích
    • Yêu thích
2
Trả lời
20
Đọc
1K
Mr.hieudoanxd
Mr.hieudoanxd
P
Excell code vba : Tìm Cell để sửa dữ liệu
    • Buồn
2
Trả lời
26
Đọc
559
Phạm Trường 80
P
D
Nhờ anh em giúp đỡ.
    • Buồn
Trả lời
2
Đọc
88
SA_DQ
SA_DQ
00029591
Cần hỗ trợ công thức tổng hợp dữ liệu không cần cột phụ Vlookup
Trả lời
2
Đọc
96
DeTong
D
H
Đổi số thành chữ trong office 365
Trả lời
19
Đọc
1K
HoangTan891026
H
Gà Công Nghệ
Lấy dữ liệu file excel từ sheet này sang sheet khác
Trả lời
4
Đọc
139
Gà Công Nghệ
Gà Công Nghệ
N
Mong mọi người giúp đỡ
Trả lời
1
Đọc
66
minhminh27
minhminh27
minhduc1o2
Excel lỗi font Time New Roman+
Trả lời
7
Đọc
118
minhduc1o2
minhduc1o2
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Đếm ngược thời gian

000
Ngày
00
Giờ
00
phút
00
giây
TALK SHOW: CÙNG NHẢY LAM BA ĐA VỚI HÀM LAMBDA (λ) EXCEL 365
Back
Top Bottom