Đang chuẩn bị nút TẢI XUỐNG, xin hãy chờ
Tải xuống
Tiếp theo bài trên, tôi làm 1 báo cáo chi tiết từng khách hàng cũng bằng Pivot table, dùng 1 Combobox để chọn khách hàng, dùng VBA để lọc Pivot table với khách hàng đó. Câu lệnh lọc theo tên khách hàng và refresh pivot table là: PHP Code: With ActiveSheet.PivotTables("PivotTable1") .PivotFields("Mskh").CurrentPage = [J1].Value .PivotCache.Refresh End With Với J1 là linkedCell của combobox. Tôi có dùng VBA để: - Đánh số thứ tự - Kẻ khung, tô đậm, tính số dư cuối kỳ. - tính thêm 2 cột Dư nợ, dư có - Set Print Area (để khỏi in mấy object) - Đánh số trang trong Page Footer -. | Sổ chi tiết khách hàng chọn khách hàng băng combobox Tiếp theo bài trên tôi làm 1 báo cáo chi tiết từng khách hàng cũng bằng Pivot table dùng 1 Combobox để chọn khách hàng dùng VBA để lọc Pivot table với khách hàng đó. Câu lệnh lọc theo tên khách hàng và refresh pivot table là PHP Code With ActiveSheet.PivotTables PivotTable 1 .PivotFields Mskh .CurrentPage J1 .Value . PivotCache. Refresh End With Với J1 là linkedCell của combobox. Tôi có dùng VBA đê - Đánh số thứ tự - Kẻ khung tô đậm tính số dư cuối kỳ. - tính thêm 2 cột Dư nợ dư có - Set Print Area đê khỏi in mấy object - Đánh số trang trong Page Footer - Gán Page Footer bằng tên khách hàng vừa chọn. - Định dạng trang in vừa với bề ngang trang A4 Những code này có cái trên GPE đã có có cái chưa. Các bạn cứ tham khảo và tuỳ biến mà dùng. Cũng là record macro thôi không có gì ghê gớm . .Công ty TNHH XYZ__Ị__Ị__I CHITIẺT CÓNG NỢ KHÁCH HANG Mã khách hàng KH32 T ên khách hàng Còng íỹ TNHH 32 Sô hi tìu ký 2.500 000 STT Ngậy Số chứng Diễn giải TK đũi ứng Số tiền Dư nt Nợ Có Nợ 01 14 01 03 BH04 01 Doanh thu bán hàng Công ty 32 511 3.055.000 0 5.555.000 02 Thuế GTGT hán hàng Cóng ty 32 333.1 305.500 0 5.860.500 03 24 01 03 FT 06 01 Thu tiền hàng Công ty 32 112 0 3.360.500 2.500.000 04 18 03 08 BHŨi 03 Doanh thu bán hàng Công ty 32 511 3.714.000 0 6.214.000 05 Thuế GTGT bán hàng Công ty 32 333.1 371.400 0 6.585.400 06 PTŨ1 Ũ3 Thu tiền hàng Công ty 32 111 0 4.085.400 2.500.000 07 24 05 08 BHŨ4 Ũ5 Doanh thu bán hàng Công ty 32 511 5.734 400 0 8.234.400 03 Thuế GTGT bán hàng Công ty 32 333.1 573.440 0 8.807.840 09 05 06 08 PTŨ3 Ũ6 Thu tiền hàng Công ty 32 112 0 6.307.840 2.500.000 Grand Total 13.753.740 13.753.740 sô hr cúội ký ntf 2.5ỮŨ.0Ũ0 Ngậy 04 tháng 04 năm 2011 Lập biểu
