Trợ giúp chuyển đổi lọc tháng năm từ công thức lên VBA (4 người xem)

[haind03]

dear all,
em thành viên mới xin được nhờ trợ giúp từ các thành viên.
Chả là file exel dữ liệu của em nó lên đến vài chục nghìn dòng rồi. bây giờ sử dụng công thức để lọc thì mất cả nửa ngày nó mới chạy xong.
em nhờ các bác giúp em chuyển đổi từ công thức sang VBA với a.
trong file
- sheet2 là ngày tháng muốn lọc
- sheet REPORT là nơi hiển thị dữ liệu lọc

vì em phải để ngày tháng lọc ở sheet2 là mục chọn chung cho nhiều ứng dụng lọc khác nên cần phải 1 sheet riêng.

em xin gửi file các bác trợ giúp

 

[Ba Tê]

dear all,
em thành viên mới xin được nhờ trợ giúp từ các thành viên.
Chả là file exel dữ liệu của em nó lên đến vài chục nghìn dòng rồi. bây giờ sử dụng công thức để lọc thì mất cả nửa ngày nó mới chạy xong.
em nhờ các bác giúp em chuyển đổi từ công thức sang VBA với a.
trong file
- sheet2 là ngày tháng muốn lọc
- sheet REPORT là nơi hiển thị dữ liệu lọc

vì em phải để ngày tháng lọc ở sheet2 là mục chọn chung cho nhiều ứng dụng lọc khác nên cần phải 1 sheet riêng.

em xin gửi file các bác trợ giúp

Bị dị ứng với cái này: dear all, Không có từ tiếng Việt nào thay được nó sao ta?
Nhìn file và tên các Name trong đó thấy quen quen???
Đang rảnh nên viết tặng bạn cái này "tuỳ nghi sử dụng"
[GPECODE=vb]Public Sub Quenquen()
Dim sArr(), dArr(), I As Long, J As Long, K As Long, Thang As Long, Nam As Long, CoL As Long
CoL = 19 '----------------->>> Thay số cột trong sheet NKNX nếu cần
With Sheets("NKNX")
sArr = .Range(.[C9], .[C65536].End(xlUp)).Offset(, -2).Resize(, CoL).Value
End With
ReDim dArr(1 To UBound(sArr, 1), 1 To CoL)
Thang = Sheets("Sheet2").[B5].Value
Nam = Sheets("Sheet2").[B6].Value
For I = 1 To UBound(sArr, 1)
If Year(sArr(I, 3)) = Nam Then
If Month(sArr(I, 3)) = Thang Then
K = K + 1
dArr(K, 1) = K
For J = 2 To CoL
dArr(K, J) = sArr(I, J)
Next J
End If
End If
Next I
With Sheets("Report")
.[A9:A1000].Resize(, CoL).ClearContents
If K Then .[A9].Resize(K, CoL) = dArr
End With
End Sub[/GPECODE]

 

[haind03]

Bị dị ứng với cái này: dear all, Không có từ tiếng Việt nào thay được nó sao ta?
Nhìn file và tên các Name trong đó thấy quen quen???
[/GPECODE]

Hi bac Ba tê, "dear all" em sẽ rút kinh nghiệm ạ.
file em dùng là down ở trên diễn đàn về ạ. áp dụng sử dụng công thức chạy rồi nhưng chậm quá. muốn cải tiến cho nó load nhanh.
Thú thực với bác là món vba em cũng chưa biết dùng. bác có thể add code vào file giúp em được không? em tạo module rồi nó cũng ko chạy

 

[Ba Tê]

Hi bac Ba tê, "dear all" em sẽ rút kinh nghiệm ạ.
file em dùng là down ở trên diễn đàn về ạ. áp dụng sử dụng công thức chạy rồi nhưng chậm quá. muốn cải tiến cho nó load nhanh.
Thú thực với bác là món vba em cũng chưa biết dùng. bác có thể add code vào file giúp em được không? em tạo module rồi nó cũng ko chạy

Dear All không khoái, gặp Hi cũng vậy thôi.

 

[haind03]

Dear All không khoái, gặp Hi cũng vậy thôi.

dạ do em sợ bác pa tê offline mất, nên đang cười giở chữ hiiiiiiiiiiii phải tắt bớt iiiiiiiiii đi nên nó biến thành chữ Hi đấy ạ.

cuối cùng em xin trân thành cảm ơn bác

 

[ndu96081631]

dạ do em sợ bác pa tê offline mất nết đang cười giở chữ hiiiiiiiiiiii phải tắt bớt iiiiiiiiii đi nên nó biến thành chữ Hi đấy ạ.

cuối cùng em xin trân thành cảm ơn bác

Chửi xéo đó nha
Mà cũng có khi là đang nói đến món trong ổ bánh mì chứ hổng phải nói anh Ba
(chạy thôi! kẻo bị... pằng... pằng... pằng...)

 

[haind03]

Chửi xéo đó nha
Mà cũng có khi là đang nói đến món trong ổ bánh mì chứ hổng phải nói anh Ba
(chạy thôi! kẻo bị... pằng... pằng... pằng...)

Xin phép bác pa tê cho em bác ndu96081631 phát nhé Hiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii (phải cười đủ chữ hiiii...)