Thống kê người nghỉ trong tháng (1 người xem)

[banhia]

A chị giúp em thống kê tất cả các trường hợp nghỉ vào các ngày bất kì như trong file với ạ!
E cảm ơn các a chị nhiều ạ!

 

[banhia]

anh chị nào online rồi thì giúp e với ạ!

 

[quanluu]

A chị giúp em thống kê tất cả các trường hợp nghỉ vào các ngày bất kì như trong file với ạ!
E cảm ơn các a chị nhiều ạ!

Code cho bạn

Sub GEP()
Dim i, j, k As Integer, kq As String
For i = 4 To Cells(3, Columns.Count).End(xlToLeft).Column
    With Sheets("Management sheet")
        For j = 8 To .Cells(7, Columns.Count).End(xlToLeft).Column
            If .Cells(7, j) = Cells(3, i) Then
                For k = 8 To .Range("B65000").End(3).Row
                    If .Cells(k, j) = "P" Then kq = kq & .Cells(k, 2) & Chr(10)
                Next
            End If
        Next
    End With
    If kq <> "" Then Cells(5, i) = Left(kq, Len(kq) - 1)
    kq = ""
Next
End Sub

 

[phulien1902]

Code cho bạn

Sub GEP()
Dim i, j, k As Integer, kq As String
For i = 4 To Cells(3, Columns.Count).End(xlToLeft).Column
    With Sheets("Management sheet")
        For j = 8 To .Cells(7, Columns.Count).End(xlToLeft).Column
            If .Cells(7, j) = Cells(3, i) Then
                For k = 8 To .Range("B65000").End(3).Row
                    If .Cells(k, j) = "P" Then kq = kq & .Cells(k, 2) & Chr(10)
                Next
            End If
        Next
    End With
    If kq <> "" Then Cells(5, i) = Left(kq, Len(kq) - 1)
    kq = ""
Next
End Sub

Bạn thiếu dòng gán kết quả vào Sheets("Leave block date revised")?

 

[quanluu]

Bạn thiếu dòng gán kết quả vào Sheets("Leave block date revised")?

Là dòng này mà bạn: If kq <> "" Then Cells(5, i) = Left(kq, Len(kq) - 1)

 

[phulien1902]

Là dòng này mà bạn: If kq <> "" Then Cells(5, i) = Left(kq, Len(kq) - 1)

Tôi đã thử Code của bạn & phải thêm dòng này vào mới có kết quả:

With Sheets("Leave block date revised")
           ---------------
        End With

 

[quanluu]

Tôi đã thử Code của bạn & phải thêm dòng này vào mới có kết quả:

With Sheets("Leave block date revised")
           ---------------
        End With

ah, cái này phụ thuộc bạn chạy code ở sheet nào, làm như bạn là chắc ăn nhât, còn với code của mình thì code chạy trên sheet "Leave..."

 

[banhia]

Xin hỏi 2 bạn, tại sao mình cop code về cho chạy thử thì ok nhưng lưu lại rồi bật lại thì lại mất code vậy ạ?

 

[quanluu]

Xin hỏi 2 bạn, tại sao mình cop code về cho chạy thử thì ok nhưng lưu lại rồi bật lại thì lại mất code vậy ạ?

Bạn phải lưu file đuôi xlsm, xls.. (hỗ trợ lưu macro)

 

[lenongree]

A chị giúp em thống kê tất cả các trường hợp nghỉ vào các ngày bất kì như trong file với ạ!
E cảm ơn các a chị nhiều ạ!

Mình dùng CT Jointext của thầy NDU để làm cho bạn, bạn nhận file: