ờ hen, đúng rồi bạn ạ! sao đơn giản thế nhỉ.Cảm ơn bạn nhiều lắm.
=SUM(IFERROR(1/COUNTIF(OFFSET($C$2,MATCH(K4,$C$3:$C$26,0),1,COUNTIF($C$3:$C$26,K4),6),OFFSET($C$2,MATCH(K4,$C$3:$C$26,0),1,COUNTIF($C$3:$C$26,K4),6)),0))
,Sợ phiền bạn nhiều nên sau một hồi tìm kiếm trên google tôi mới hiểu được các khái niệm thế nào là hàm tự tạo rồi là dạng .xlsm hoặc .xlsb, nếu lưu .xlsx v.v...
Của bạn đây:
=SUM(IFERROR(1/(COUNTIF(OFFSET($C$2,MATCH(K4,$C$3:$C$26,0),1,COUNTIF($C$3:$C$26,K4),6),OFFSET($C$2,MATCH(K4,$C$3:$C$26,0),1,COUNTIF($C$3:$C$26,K4),6))*ISNUMBER(OFFSET($C$2,MATCH(K4,$C$3:$C$26,0),1,COUNTIF($C$3:$C$26,K4),6))),0))
khuongvietphong ơi trường hợp dữ liệu text đã loại bỏ được rồi, còn trường hợp >0 nữa thôi bạn à hihi
hì , đúng rồi trong file kèm tại cột kết quả minh họa do vôi vàng đếm thủ công nên đã xảy ra nhầm lẫn sau khi kiểm tra lại = công thức của các bạn thì mới thấy được .
=SUM(IFERROR(1/(COUNTIF(vung,vung)*ISNUMBER(vung)*(vung>0)),0))
Nếu bạn muốn xài hàm tự tạo thì vào Module, thay cái cũ bằng cái này:
Public Function GPE(Rng As Range, DK As Range) As Long
Dim Arr(), I As Long, J As Long, Tem As String
Arr = Rng.Value
For I = 1 To UBound(Arr,1)
If Arr(I, 1) = DK.Value Then
For J = 2 To UBound(Arr, 2)
If IsNumeric(Arr(I, J)) And Arr(I, J) > 0 Then
If InStr(Tem, "#" & Arr(I, J) & "$") = 0 Then
GPE = GPE + 1
Tem = Tem & "#" & Arr(I, J) & "$"
End If
End If
Next J
End If
Next I
End FunctionCông thức này bạn thay vào File của bài #17:
Mã:=SUM(IFERROR(1/(COUNTIF(vung,vung)*ISNUMBER(vung)*(vung>0)),0))
Sao bữa nay hỏi "nhát gừng" vậy bạn
cho tôi xin lỗi vì cách xưng hô nhé.
Theo từ điển GPE thì "1 Tê"= 19 năm đó bạnHi,
-----
vậy, hình như người trong anh tuổi tác cũng cao cao thì phải.
Nếu đúng là bạn thì
Theo từ điển GPE thì "1 Tê"= 19 năm đó bạn
Híc
Theo từ điển GPE thì "1 Tê"= 19 năm đó bạn
Híc
.Câu hỏi và nội dung Oanh Thơ đã đặt trong file kèm.
Lại một bài toán nữa
Oanh Thơ xin gửi mẫu lên đây nhờ Bác Ba Tê cùng các bạn giúp đỡ cho ạ.
Xin cảm ơn rất nhiều.
Tham khảo macro này; Dù chậm nhưng vẫn đưa lên:
Option Explicit
Sub TimSoKhongCoTrongDanhSach()
Dim Rng As Range, sRng As Range, Arr()
Dim J As Long, W As Long, Thg As Byte
Dim MyAdd As String
Set Rng = Range([B3], [B65500].End(xlUp))
Arr() = Rng.Value
Set Rng = [d3].CurrentRegion
ReDim dArr(1 To 12, 1 To 2)
For J = 1 To UBound(Arr())
W = W + 1
If Arr(J, 1) = W Then
Else
Set sRng = Rng.Find(W, , xlFormulas, xlWhole)
If Not sRng Is Nothing Then
MyAdd = sRng.Address
Do
Thg = Month(Cells(sRng.Row, "D").Value)
If dArr(Thg, 2) = "" Or InStr(dArr(Thg, 2), CStr(W)) < 1 Then
dArr(Thg, 1) = dArr(Thg, 1) + 1
dArr(Thg, 2) = CStr(W) & "; " & dArr(Thg, 2)
End If
Set sRng = Rng.FindNext(sRng)
Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
End If
End If
Next J
Randomize
[n5].Resize(12, 2).Value = dArr()
[n4].Resize(, 2).Interior.ColorIndex = 34 + 9 * Rnd() \ 1
End Sub
Bạn có chắc là bố trí như vậy là file cuối cùng chưa? theo tôi thì tôi hơi nghi ngờ cách bố trí này bạn sẽ thay đổi trong tương lai gầnhuhu, Oanh Thơ rất xin lỗi 2 bạn Sa-DQ và khuongvietphong vì đã làm mất thời gian của 2 người.
mới đầu Oanh thơ cứ nghĩ vấn đề này có vẻ đơn giản chỉ dùng công thức thông thường thôi nên đã làm tạm cái mẫu đơn giản để gửi lên nhờ sự hỗ trợ ai ngờ xem công thức và code mà cũng thấy choáng quá.
Giờ Oanh Thơ xin gửi lại đúng mẫu chuẩn so với file thực làm phiền bạn và bác thêm 1 lần nữa ạ...
Đại loại bài #6 là tính toán chi tiết từng sheet và Oanh Thơ đã áp dụng vào file thực OK rồi,
Còn bài #27 là Tổng hợp theo điều kiện phức tạp hơn 1 chút ạ.
huhu, Oanh Thơ rất xin lỗi 2 bạn Sa-DQ và khuongvietphong vì đã làm mất thời gian của 2 người.
mới đầu Oanh thơ cứ nghĩ vấn đề này có vẻ đơn giản chỉ dùng công thức thông thường thôi nên đã làm tạm cái mẫu đơn giản để gửi lên nhờ sự hỗ trợ ai ngờ xem công thức và code mà cũng thấy choáng quá.
Giờ Oanh Thơ xin gửi lại đúng mẫu chuẩn so với file thực làm phiền bạn và bác thêm 1 lần nữa ạ...
Đại loại bài #6 là tính toán chi tiết từng sheet và Oanh Thơ đã áp dụng vào file thực OK rồi,
Còn bài #27 là Tổng hợp theo điều kiện phức tạp hơn 1 chút ạ.
Chắc chắn bạn ạ, làm phiền các bạn tôi cảm thấy ngại lắm chứ ạ vừa mất thời gian thậm chí khiến các bạn bực mình vì thay đổi ý này ý nọ...
Cảm ơn khuongvietphong đã quay trở lại
ok bạn
Thêm nhiều sheet đại lý nữa thì thua. Phong có thể kết hợp thêm hàm Indirect thử xem sao?
Tất cả các sheet đại lý là như nhau. tại sao mình không lợi dụng hàm indirect để gôm tất cả các đại lý đó vào 1 name. Bài này tôi thấy bạn dùng 3 name cho 3 đại lý, giả dụ nhiều đại lý hơn nữa là mình phải có nhiều vùng name hay sao
. Của em chỉ có 2 Name mới là : dk và
hi,cảm ơn bạn khuongvietphong nhiều nhé thế mới biết là sự khác nhau giữa sử dụng công thức và thủ công là như thế nào.
Thử:
AF4=COUNT(1/SEARCH(IF($AE$3="All","*",$AE$3),$D$4:$D$39)/($E$3:$AA$3=AF$3)/($F$4:$AB$39=$AE4))
Không biết có To11 không
AF4=COUNTIFS($D$4:$D$39,IF($AE$3="All","*",$AE$3),OFFSET($D$4:$D$39,,MATCH(AF$3,$D$3:$AB$3,)),$AE4)Vậy thêm "râu" cho có phân biệt!Không biết có To11 không
Mã:AF4=COUNTIFS($D$4:$D$39,IF($AE$3="All","*",$AE$3),OFFSET($D$4:$D$39,,MATCH(AF$3,$D$3:$AB$3,)),$AE4)
AF4=COUNT(1/SEARCH(IF($AE$3="All","*",$AE$3&";"),$D$4:$D$39&";")/($E$3:$AA$3=AF$3)/($F$4:$AB$39=$AE4))Uống "Thuốc liều"
AF4=COUNTIFS($D$4:$D$39,IF($AE$3="All","*",$AE$3),OFFSET($D$4:$D$39,,25-COLUMN(A1)),$AE4)Thử:
AG13=COUNTIFS($D$4:$D$40,$AE13,OFFSET($D$4:$D$40,,MATCH(LOOKUP(10^10,$AF$11:AG$11),$E$3:$AA$3,)+1),AG$12)
