hongphuong1997
Thành viên tiêu biểu

- Tham gia
- 12/11/17
- Bài viết
- 773
- Được thích
- 322
- Giới tính
- Nữ
Em dùng cái này xem có đúng không.Nhờ anh chị trên diễn đàn làm giúp như file đính kèm
Function dem(ByVal dk As Range, ByVal mang As Range) As Long
Dim dks As String, T, a As Long
dks = "#"
For Each T In dk
If T.Value <> Empty Then
dks = dks & T.Value & "#"
End If
Next
For Each T In mang
a = 1
Do While InStr(a, dks, "#" & T.Value & "#") > 0
a = InStr(a, dks, "#" & T.Value & "#") + 1
dem = dem + 1
Loop
Next
End Function
Em cảm ơn anhEm dùng cái này xem có đúng không.
Mã:Function dem(ByVal dk As Range, ByVal mang As Range) As Long Dim dks As String, T dks = "#" For Each T In dk If T.Value <> Empty Then dks = dks & T.Value & "#" End If Next For Each T In mang If InStr(1, dks, "#" & T.Value & "#") Then dem = dem + 1 End If Next End Function
Mã:=dem(B4:D4,G4:L4)
Anh ơi, hàm và công thức là chung chung. Vì vậy hàm UDF cũng là hàm và công thức mà anhThấy đăng trên box Hàm và công thức, vậy có xài công thức không?
Thử xài công thức sau:Anh ơi, hàm và công thức là chung chung. Vì vậy hàm UDF cũng là hàm và công thức mà anh
Anh cho em với
=SUMPRODUCT(SUBTOTAL(3,OFFSET(G4:L4,,COLUMN(G4:L4)-MIN(COLUMN(G4:L4)),,1))*(G4:L4=TRANSPOSE(B4:D4)))
Anh ơi cho em hỏi cái dấu "," cuối cùng có ý nghĩa như nào hở anh?Thử:
Mã:=SUM(INDEX(COUNTIF(B4:D4,G4:L4),))
Nó là dấu , của hàm index đó, không xài index thì phải nhấn Ctrl+Shift+Enter mới ra.Anh ơi cho em hỏi cái dấu "," cuối cùng có ý nghĩa như nào hở anh?
Em cảm ơn anh ạNó là dấu , của hàm index đó, không xài index thì phải nhấn Ctrl+Shift+Enter mới ra.
Ý nghĩa "," = ",0" có nghĩa lấy toàn bộ mảng.