bạn định nối thế nào
Nối theo dấu "," hoặc dấu gì đó bạn làm ơn là cho tùy chọn dấu trong hàm nhé
Thử:
E3=IFERROR(1/(1/SUM(MMULT(N(TRIM(MID(SUBSTITUTE(SUBSTITUTE($C$5:$C$17,";",","),",",REPT(" ",100)),(COLUMN($A:$Z)-1)*100+1,100))=F3),ROW($1:$26)^0)))&"-"&F3&"-K","0-K-"&F3)Cảm ơn bạn @
=COUNTIF($C$5:$C$17,"*"&F3&"*") nếu tìm thấy ký tự cần tìm (Vd: F3=15) thì chỉ đếm được:
Mình gửi lại bài như này, bạn đang hiểu lầm ý của mình (Bởi mình chưa giải thích rõ ý)
Công thức bài #4 có thể rút gọn chút:
E3=IFERROR(1/(1/SUMPRODUCT(N(TRIM(MID(SUBSTITUTE(SUBSTITUTE($C$5:$C$17,";",","),",",REPT(" ",100)),(COLUMN($A:$Z)-1)*100+1,100))=F3)))&"-"&F3&"-K","0-K-"&F3)Bạn
Thử:
L2=JoinText(";",IF(FREQUENCY(IFERROR(MATCH(TRIM(MID(SUBSTITUTE(SUBSTITUTE($C$5:$C$17,";",","),",",REPT(" ",100)),(COLUMN($A:$Z)-1)*100+1,100)),$F$3:$F$103,),""),ROW($1:$100))>=1,$F$3:$F$103,1/0))
L3=JoinText(";",IF(FREQUENCY(IFERROR(MATCH(TRIM(MID(SUBSTITUTE(SUBSTITUTE($C$5:$C$17,";",","),",",REPT(" ",100)),(COLUMN($A:$Z)-1)*100+1,100)),$F$3:$F$103,),""),ROW($1:$100))<1,$F$3:$F$103,1/0))Không biết có hiểu ý bạn không.
=jointext(";",TRUE,IF(COUNTIF($C$5:$C$17,"*"&$F$3:$F$102&"*")>0,$F$3:$F$102,""))=jointext(";",TRUE,IF(COUNTIF($C$5:$C$17,"*"&$F$3:$F$102&"*")<1,$F$3:$F$102,""))Cảm ơn bạn
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 FunctionCảm ơn bạn @phuocam chúc bạn buổi sớm và cuối tuần vui vẻ, mạnh khỏe
Tôi không hiểu bạn nói gì.
Bạn ơi, nếu nó đã đếm không chính xác rồi thì làm sao tin được kết quả là đúng hay sai?
Theo file bài 1, đếm chính xác
G3=SUMPRODUCT((LEN($C$5:$C$17)-LEN(SUBSTITUTE($C$5:$C$17,F3,"")))/LEN(F3))Cảm ơn bạn
|
trong các file mẫu làm gì có nói lỗi #N/A đâu bạn
Tôi biết là bạn lười, và bạn nghĩ là không được nên không thử làm như tôi hướng dẫn.
Đây là ý mà bây giờ bạn mới thêm vào.
=jointext(",",TRUE,IF(TRANSPOSE(MMULT(--TRANSPOSE(ROW($5:$17)>0),LEN($C$5:$C$17)-LEN(SUBSTITUTE($C$5:$C$17,TRANSPOSE($F$3:$F$102),"*"))))>=2,$F$3:$F$102,""))Chào bạn @batman1 cái ý tưởng ">1 hoặc <1 hay là > hoặc < bất kỳ số nào đó" mình cũng đã đưa ngay vào file ban đầu, chắc bạn không dọc kỹ và để ý.
Cách dùng hàm trong file
Function Join_Num(ByVal comStr, ByVal Deli As String, ParamArray sArr()) As String
Dim Arr, iTem, nArr(0 To 99) As Long, cArr()
Dim i As Long, j As Long, n As Long
Dim iChar As String, tmp, Res As String
cArr = Array(">=", "<=", ">", "<", "=")
For Each Arr In sArr
If Not IsArray(Arr) Then Arr = Array(Arr)
For Each iTem In Arr
If TypeName(iTem) = "Range" Then iTem = iTem.Value
If TypeName(iTem) <> "Error" Then
If Len(iTem) > 0 Then
iTem = iTem & ","
n = Len(iTem)
For j = 1 To n
iChar = Mid(iTem, j, 1)
If IsNumeric(iChar) Then
tmp = tmp & iChar
ElseIf Len(tmp) > 0 Then
tmp = CLng(tmp)
If tmp < 100 Then nArr(tmp) = nArr(tmp) + 1
tmp = ""
End If
Next j
End If
End If
Next
Next
n = 4: tmp = comStr
For i = 0 To 4
If InStr(1, comStr, cArr(i)) > 0 Then
tmp = CLng(Replace(comStr, cArr(i), ""))
n = i
Exit For
End If
Next i
For i = 0 To 99
Select Case n
Case 0
If nArr(i) >= tmp Then Res = Res & Deli & Format(i, "00")
Case 1
If nArr(i) <= tmp Then Res = Res & Deli & Format(i, "00")
Case 2
If nArr(i) > tmp Then Res = Res & Deli & Format(i, "00")
Case 3
If nArr(i) < tmp Then Res = Res & Deli & Format(i, "00")
Case 4
If nArr(i) = tmp Then Res = Res & Deli & Format(i, "00")
End Select
Next i
If Len(Res) = 0 Then
Join_Num = "K"
Else
Join_Num = Mid(Res, Len(Deli) + 1, Len(Res))
End If
End FunctionCảm ơn, xin cảm ơn bạn @HieuCD
Bạn @HieuCD chỉnh giúp mình một lỗi nhỏ này nữa dược không?
Chỉnh lại code
Function Join_Num(ByVal comStr, ByVal Deli As String, ParamArray sArr()) As String
Dim Arr, iTem, nArr(0 To 99) As Long, cArr()
Dim i As Long, j As Long, n As Long
Dim iChar As String, tmp, Res As String
cArr = Array(">=", "<=", ">", "<", "=")
For Each Arr In sArr
If Not IsArray(Arr) Then Arr = Array(Arr)
For Each iTem In Arr
If TypeName(iTem) = "Range" Then iTem = iTem.Value
If TypeName(iTem) <> "Error" Then
If Len(iTem) > 0 Then
iTem = iTem & ","
n = Len(iTem)
For j = 1 To n
iChar = Mid(iTem, j, 1)
If IsNumeric(iChar) Then
tmp = tmp & iChar
Else
If Len(tmp) = 2 Then 'Chi xet so co 2 ky tu
tmp = CLng(tmp)
If tmp < 100 Then nArr(tmp) = nArr(tmp) + 1
End If
tmp = ""
End If
Next j
End If
End If
Next
Next
n = 4: tmp = comStr
For i = 0 To 4
If InStr(1, comStr, cArr(i)) > 0 Then
tmp = CLng(Replace(comStr, cArr(i), ""))
n = i
Exit For
End If
Next i
For i = 0 To 99
Select Case n
Case 0
If nArr(i) >= tmp Then Res = Res & Deli & Format(i, "00")
Case 1
If nArr(i) <= tmp Then Res = Res & Deli & Format(i, "00")
Case 2
If nArr(i) > tmp Then Res = Res & Deli & Format(i, "00")
Case 3
If nArr(i) < tmp Then Res = Res & Deli & Format(i, "00")
Case 4
If nArr(i) = tmp Then Res = Res & Deli & Format(i, "00")
End Select
Next i
If Len(Res) = 0 Then
Join_Num = "K"
Else
Join_Num = Mid(Res, Len(Deli) + 1, Len(Res))
End If
End FunctionĐể xử lý vấn đề của bạn thì phải tính trên các mảng, nên công thức, dù gì dù, cũng dài và nặng. Muốn nhẹ nhàng hơn, thì buộc lòng:
Cảm ơn bạn @Phan Thế Hiệp rất nhiều, mặc dù mình mới vào diễn đàn hôm qua nhưng đã được đọc các hàm bạn viết và của bạn @HieuCD nữa.
Không có chi đâu bạn!
bạn hén!)Cảm ơn bạn @HieuCD rất nhiều
