Lỗi trong hàm tự tạo (1 người xem)

[zztantaibazz]

Em có tự tạo một hàm để nối chuỗi có điều kiện.
Nếu em dùng 1 điều kiện thì ok. Nhưng tạo điều kiện bằng công thức thì sai.
Mọi người giúp em với. Trong file đính kèm em có lý giải.
Thanks

 

[ndu96081631]

Em có tự tạo một hàm để nối chuỗi có điều kiện.
Nếu em dùng 1 điều kiện thì ok. Nhưng tạo điều kiện bằng công thức thì sai.
Mọi người giúp em với. Trong file đính kèm em có lý giải.
Thanks

Bạn dùng hàm này nhé:

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

- Cú pháp hàm: =JoinText(Dấu phân cách, Biểu thức điều kiện)
- Vậy với yêu cầu của bạn:

Em muốn tạo hàm: Nối các chuỗi cột A lại, nếu giá trị tương ứng cột B = 1, và C = H.

thì áp dụng hàm JoinText trên như sau:

=JoinText("-",IF((B1:B5=1)*(C1:C5="H"),A1:A5,""))

Bấm tổ hợp phím Ctrl + Shift + Enter để kết thúc

 

[zztantaibazz]

Thanks thầy nhiều ...............................