Xin giúp đỡ về code lọc theo tháng

[diemdiem]

Em có 1 file đính kèm. Trong sheet dsluong tại K4 em muốn lọc theo từng tháng tương ứng với năm và quý (n4, l4). Em đã được giúp đỡ lọc theo năm và lọc theo quý.
Còn lọc theo tháng thì chưa ah.
Bước 1 chọn năm
Bước 2 chọn quý
Bước 3 chọn tháng để hiển thị.
Rất mong sự giúp đỡ của Quý a/c, thầy cô!
Em xin cảm ơn all mn đã đọc bài.

 

[Hai Lúa Miền Tây]

Em có 1 file đính kèm. Trong sheet dsluong tại K4 em muốn lọc theo từng tháng tương ứng với năm và quý (n4, l4). Em đã được giúp đỡ lọc theo năm và lọc theo quý.
Còn lọc theo tháng thì chưa ah.
Bước 1 chọn năm
Bước 2 chọn quý
Bước 3 chọn tháng để hiển thị.
Rất mong sự giúp đỡ của Quý a/c, thầy cô!
Em xin cảm ơn all mn đã đọc bài.

Bạn dùng code sau thử nhé:

Sub LocThang_HLMT()
    Dim strSQL As String
    strSQL = "Select [Ho],[Ten],[Ng Sinh],[ChVu],[Ctac],[GPE0COM11],[GPE0COM12],[KyLuong] from [HoSo$A7:Z] Where Month([KyLuong])=" & Sheet5.Range("K4") & " And DatePart('q', [KyLuong])=" & Sheet5.Range("L4") & " And Year([KyLuong])=" & Sheet5.Range("N4")
    With CreateObject("ADODB.Recordset")
        .Open (strSQL), "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0 Xml;Data Source=" & ThisWorkbook.FullName, 1
        Sheet5.Range("B9:I100").ClearContents
        Sheet5.Range("B9").CopyFromRecordset .DataSource
    End With
End Sub

 

[TongDe]

Em có 1 file đính kèm. Trong sheet dsluong tại K4 em muốn lọc theo từng tháng tương ứng với năm và quý (n4, l4). Em đã được giúp đỡ lọc theo năm và lọc theo quý.
Còn lọc theo tháng thì chưa ah.
Bước 1 chọn năm
Bước 2 chọn quý
Bước 3 chọn tháng để hiển thị.
Rất mong sự giúp đỡ của Quý a/c, thầy cô!
Em xin cảm ơn all mn đã đọc bài.

Tạo 1 bảng dò tìm và gán vào tiêu chí lọc
Click z4 chọn ...

 

[diemdiem]

Bạn dùng code sau thử nhé:

Sub LocThang_HLMT()
    Dim strSQL As String
    strSQL = "Select [Ho],[Ten],[Ng Sinh],[ChVu],[Ctac],[GPE0COM11],[GPE0COM12],[KyLuong] from [HoSo$A7:Z] Where Month([KyLuong])=" & Sheet5.Range("K4") & " And DatePart('q', [KyLuong])=" & Sheet5.Range("L4") & " And Year([KyLuong])=" & Sheet5.Range("N4")
    With CreateObject("ADODB.Recordset")
        .Open (strSQL), "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0 Xml;Data Source=" & ThisWorkbook.FullName, 1
        Sheet5.Range("B9:I100").ClearContents
        Sheet5.Range("B9").CopyFromRecordset .DataSource
    End With
End Sub

Mình có thể nào không click vào nút lọc được ko ah, tức hiện trực tiếp kết quả sau khi mình chọn tháng ấy ạ.
Cứ b1 mình chọn năm, b2 mình chọn quý, b3 mình chọn tháng ah

 

[befaint]

Mình có thể nào không click vào nút lọc được ko ah, tức hiện trực tiếp kết quả sau khi mình chọn tháng ấy ạ.
Cứ b1 mình chọn năm, b2 mình chọn quý, b3 mình chọn tháng ah

Mỗi lần mình ấn vào cái nút tốn cỡ 1 giây cuộc đời.

Còn chọn các bờ kia thì làm sao biết khi nào chọn xong bờ nào thì code sẽ chạy.
Ví dụ:
Lần đầu, bờ 1 chọn năm, bờ 2 chọn quý, bờ 3 chọn tháng => Chạy code ngon lành.
Lần kế tiếp, bờ 1 và bờ 2 không chọn, chỉ chọn tháng ở bờ 3 thôi => Có chạy code không?
Lần khác, chỉ chọn năm ở bờ 1 thôi, bờ 2 và bờ 3 giữ nguyên => Code chạy không?