xem chi tiết nhập theo tháng (1 người xem)

[quykh]

em có file đính kèm nhờ Ac giúp.Em muốn khi nhấn chọn tháng (Cell H1) thì thể hiện chi tiết nhập của tháng đó . Vì dữ liệu trong file chỉ là giả định, còn thực tế lên cả ngàn dòng. Mong AC viết code dùm em.Chân Thành Cám Ơn!!!!

 

[gtri]

em có file đính kèm nhờ Ac giúp.Em muốn khi nhấn chọn tháng (Cell H1) thì thể hiện chi tiết nhập của tháng đó . Vì dữ liệu trong file chỉ là giả định, còn thực tế lên cả ngàn dòng. Mong AC viết code dùm em.Chân Thành Cám Ơn!!!!

Cái này dùng hàm có sẵn.
Bạn nhập vào cell G4
=IF(ROWS(G$4:G4)>SUMPRODUCT((MONTH($A$4:$A$21)=$H$1)*1),"",INDEX(B$4:B$21,MATCH($H$1,MONTH($A$4:$A$21),0)+ROWS(G$4:G4)-1))
Nhấn Ctrl+shift+enter, sau dó copy sang các ô khác

 

[quykh]

Cám Ơn Bạn. Nhưng mình đã nói là dùng code, vì dữ liệu của mình nhiều lắm, chỉ sợ copy thiếu.

 

[SA_DQ]

Nếu dữ liệu chỉ có trong năm 2014 thì có thể đưa hết vô mảng mà duyệt rồi lấy ra số liệu tháng mình muốn;

Cách khác là dùng AdvancedFilter, sao vài thao tác nhuyễn như cháo thì thu macro;

Sau khi có macro chạy đúng thì thu gọn lại, bỏ bớt dư thừa là được thôi.

Chúc thành công nha!

 

[quykh]

bạn HYen17 có thể làm giúp mình được không????

 

[be_09]

em có file đính kèm nhờ Ac giúp.Em muốn khi nhấn chọn tháng (Cell H1) thì thể hiện chi tiết nhập của tháng đó . Vì dữ liệu trong file chỉ là giả định, còn thực tế lên cả ngàn dòng. Mong AC viết code dùm em.Chân Thành Cám Ơn!!!!

Sử dụng AdvancedFilter lọc qua sheet2 cho thuận tiện đối với dữ liệu lớn, bạn tham khảo File đính kèm.

Lưu ý:
- Bạn mở File và lưu File 2007 với đuôi là xlsm mới sử dụng được Macro.

 

[quykh]

Cám Ơn bạn Be09. File của bạn có cột phụ "Tháng", và phải kéo công thức xuống (mất thêm một công đoạn), có cách nào mà không cần cột phụ không bạn. Mà bạn ơi, sao cột ngày không có số liệu mà mình kéo công thức xuống nó cho là 1. Mong bạn giúp đỡ!!!!

 

[SA_DQ]

Tránh vỏ dưa, gặp vỏ dừa

 

[quykh]

Thầy ơi, trong file của Thầy có Module "StartUp", chức năng của nó là gì vậy Thầy??? Có bỏ đi được không Thầy?? Vì khi mở file lên hiện thông báo của Excell.

 

[SA_DQ]

Trong file của Thầy có Module "StartUp", chức năng của nó là gì vậy Thầy??? Có bỏ đi được không Thầy?? Vì khi mở file lên hiện thông báo của Excell.

Mình vừa gởi file bài cuối lên VIRUSTOTAL.com thì không thấy báo có VR; An tâm với nó đi!

 

[quykh]

Vậy là bỏ cái module đó đi được hả bạn????

 

[Quang_Hải]

Mình xài Avast, vừa mở định down file ở bài 8 thì bị chặn liền nên không biết code có giống nhau không.
Bạn tham khảo code này
Copy code cho vào sheet1, không phải module nha

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$H$1" Then
   [K3] = "=Month(R[1]C1)=R1C8"
   [A3:E10000].AdvancedFilter 2, [K2:K3], [G3:J3]
End If
End Sub

PS: Ứng dụng và chế tác lại sau khi học được từ bài 32 của anh NDU trong đường link này. Trước giờ cốc có biết
http://www.giaiphapexcel.com/forum/...a-các-dòng-trùng-nhau-với&p=589911#post589911