Thống kê số lần xuất hiện!

[sanhdng]

Giúp mình khi click vào nút Thong Ke thì sheet Thong Ke sẽ tự động cập nhật số lần xuất hiện từng người ở bảng Lịch trực tại sheet TRUC.
Luôn tiện giúp mình khóa luôn các cell có chứa công thức.
http://www.mediafire.com/?gxz0gmrtezm

 

[sealand]

Mình thấy bạn chả cần VBA làm gì công thức là được rồi mà

 

[sanhdng]

Đếm số lần xuất hiện bên sheet Thong Ke đó bạn

 

[sanhdng]

Mình thấy bạn chả cần VBA làm gì công thức là được rồi mà

Không đuợc bạn àh, ý mình là Khi click vào nút thống kê thì mới đếm số lần trực.
Với lại bảng trực đó áp dụng cho cả năm nên lặp đi lặp lại nhiều lần.

 

[sealand]

Hình như ý bạn là thế này thì phải

 

[sanhdng]

Hình như ý bạn là thế này thì phải

Không phải bạn ơi
Bạn xem lại giúp mình nhé, mỗi lần click chuột ở nút thống kê mới cộng dồn vào

 

[sealand]

Bạn kiểm tra lại có đúng không, Pass là 123

Private Sub CommandButton1_Click()
Dim rg As Range
Dim Mk, ten As String
Mk = InputBox("Nhap mat khau Admin", "PHAN CONG TRUC")
If Trim(Mk) <> "123" Then
MsgBox "Xin loi, ban khong duoc thong ke truc!"
Exit Sub
End If
Sheet2.Unprotect "123"
With Application.WorksheetFunction
For i = 3 To Sheet2.[a56536].End(xlUp).Row
Set rg = Sheet2.Cells(i, 1)
ten = rg
rg.Offset(, 1) = rg.Offset(, 1) + .CountIf(Sheet1.[c9:C15], ten)
rg.Offset(, 2) = rg.Offset(, 2) + .CountIf(Sheet1.[d9:d15], ten)
rg.Offset(, 3) = rg.Offset(, 3) + .CountIf(Sheet1.[e9:f15], ten)
Next
End With
Sheet2.Protect "123"
End Sub

Xong nhớ lập Pass cho VBA nữa nhé.

 

[sanhdng]

Cảm ơn sealand nhìu lắm, thấy bạn thức đến 12 giờ 38phút để giúp mình mình thật sự xúc động.
Chúc bạn và gia đình nhiều may mắn, diễn đàn ngày càng phát triển.