Hình như file rỗng không có dữ liệu
Dạ em đã gửi lại rồi
Đếm trong ngày hay sao? hay chỉ đếm cột e họ và tên thôi
Bạn thử:
Bạn thử:
Dạ ý em là muốn đếm số BN dựa vào dữ liệu là ngày ra hoặc ngày vào và mã khoa, trong VD là BN Đỗ Thị Tám sẽ được hiểu là 1 lượt ra anh ạ
Hàm này có thể kết hợp với countif để đếm được không ạ?
Bạn muốn có kết quả như thế nào, cho vài dòng kết quả vào File.
Dạ em đã dùng lệnh countif trong ô đếm giờ muốn cho dòng bôi vàng chỉ được hiểu là 1 lượt.
Bạn thử:
Sao nó nhảy cóc vậy bác nhỉ? không có số 2;7,12,18... vậy bác nhỉ
Làm theo công thức này thì những ô trùng sẽ bị đếm nhảy cóc, có cách nào khắc phục không bác?
Thử như vậy nhe, copy paste dữ liệu từ B2:L... để ra kết quả
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
Dim result(), cot2(), change As Range, songayma As String, so_ngay_ma As Object
Application.EnableEvents = False
Application.ScreenUpdating = False
Set change = Intersect(Target, Range("D2:D60000, J2:J60000"))
If Not change Is Nothing Then
Set so_ngay_ma = CreateObject("Scripting.Dictionary")
result = Range("D" & change.Row).Resize(change.Rows.Count + 1).Value
cot2 = Range("D" & change.Row).Offset(0, 6).Resize(change.Rows.Count + 1).Value
For i = 1 To UBound(result) - 1
If Len(result(i, 1)) And Len(cot2(i, 1)) Then
songayma = result(i, 1) & "-" & cot2(i, 1)
If so_ngay_ma.exists(songayma) Then
result(i, 1) = 0
Else
result(i, 1) = 1
so_ngay_ma.Add songayma, ""
End If
Else
result(i, 1) = Empty
End If
Next i
Cells(change.Row, "M").Resize(UBound(result) - 1).Value = result
Set so_ngay_ma = Nothing
End If
Application.EnableEvents = True
Application.ScreenUpdating = True
End SubCám ơn bác nhưng em không biết dùng món này như nào đâu ạ
