lọc dữ liệu theo năm yêu cầu rối in

[vanquangdy]

chào ACE trên diễn đàn, xin giúp dùm mình code như sau: mình có dữ liệu trong sheet1, mình muốn nhập sốn năm cần tìm vào form "NHẬP NĂM MUỐN TÌM". sau đó bấm đồng ý thì sẽ tự lọc tất cả dữ liệu theo yêu cầu của form (ví dụ của năm 2009) trong sheet1 rồi in ra hoạc xem trước. Mong các ACE giúp đỡ dùm cảm ơn nhiếu. Trong file đính kèm mình định lọc theo cột K & L bằng công thức nhưng dữ liệu của mình nó nhiều mà chép công thức từ trên xuống thì nó sẽ xử lý chậm, mất thời gian mong được chỉ giáo

 

[nghiaphuc]

chào ACE trên diễn đàn, xin giúp dùm mình code như sau: mình có dữ liệu trong sheet1, mình muốn nhập sốn năm cần tìm vào form "NHẬP NĂM MUỐN TÌM". sau đó bấm đồng ý thì sẽ tự lọc tất cả dữ liệu theo yêu cầu của form (ví dụ của năm 2009) trong sheet1 rồi in ra hoạc xem trước. Mong các ACE giúp đỡ dùm cảm ơn nhiếu. Trong file đính kèm mình định lọc theo cột K & L bằng công thức nhưng dữ liệu của mình nó nhiều mà chép công thức từ trên xuống thì nó sẽ xử lý chậm, mất thời gian mong được chỉ giáo

1. Sửa một chút về công thức đánh STT:

A6=IF(B6="","",SUBTOTAL(103,B$5:B6)-1)

2. Thiết lập Validation cho ô K1 để chọn năm.
3. Lập công thức cho điều kiện lọc tại ô L2:

=OR($K$1="",YEAR(C6)=$K$1)

4. Sử dụng code sau cho Sheet1:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count = 1 And Target.Address = "$K$1" Then
        [A5].CurrentRegion.AdvancedFilter xlFilterInPlace, [L1:L2]
        [A:J].PrintOut Preview:=True
    End If
End Sub

 

[vanquangdy]

cảm ơn bạn rất nhiều, nhưng ý mình là viết code cho nút đồng ý cho form: khi mình khai báo năm cần tìm vào textbox , sau đó bấm "đồng ý" là tự tìm luôn chứ không cần phải vào sheet1. giúp mình với