Áp dụng VBA vào Pivot table để lập báo cáo theo mẫu quy định

Chia sẻ: Nguyen Quy | Ngày: | Loại File: PDF | Số trang:6

Thêm vào BST

Báo xấu

452
lượt xem 121
download

Download Vui lòng tải xuống để xem tài liệu đầy đủ

Như đã nói trong sách Pivot Table 2003, Pivot Table là 1 công cụ rất mạnh để phân tích, nhưng để nguyên Pivot table thì không in ra như 1 báo cáo đúng chuẩn được. Hôm nay tôi viết bài này, giới thiệu 1 số thủ thuật trong đó có dùng VBA để định dạng Pivot table lại thành 1 báo cáo hoàn chỉnh có thể in ra được.

Chủ đề:

Bình luận(0) Đăng nhập để gửi bình luận!

Lưu

Nội dung Text: Áp dụng VBA vào Pivot table để lập báo cáo theo mẫu quy định

Áp dụng VBA vào Pivot table để lập báo cáo theo mẫu quy định Như đã nói trong sách Pivot Table 2003, Pivot Table là 1 công c ụ rất mạnh để phân tích, nhưng để nguyên Pivot table thì không in ra như 1 báo cáo đúng chuẩn được. Hôm nay tôi viết bài này, giới thiệu 1 số thủ thuật trong đó có dùng VBA để định dạng Pivot table lại thành 1 báo cáo hoàn chỉnh có thể in ra được. Có thể dùng VBA cho đối tượng Pivot Table trong các việc: - Refresh - Filter trường Page - Filter trường Row - Filter trường Column - Hoán vị trường trong dòng, cột
- Thêm bớt trường vào dòng, cột - Dời trường từ dòng sang cột, hoặc Page - Thay đổi dữ liệu cần tổng hợp, phân tích. - Thay đổi field setting - Group trường - ... Đối với Excel 2007 - 2010, có thể Filter các field Page với multiple selection (2003 chỉ filter multiselect với row field và column field) Ngoài ra, kết hợp công thức với thù thuật dấu dòng, thêm cột, dùng VBA đánh số thứ tự, kẻ khung, ... ta sẽ có báo cáo hoàn chỉnh. Việc dùng VBA để filter, còn để tiết kiệm. Thí dụ với báo cáo công nợ chi tiết 1 khách hàng từ ngày A đến ngày B, dùng 1 combobox chọn tên khách hàng và filter trường KH theo combobox này, ta sẽ dùng 1 sheet, 1 pivot table duy nhất để in báo cáo cho cả trăm khách hàng lần lượt từng KH một.
Đối với báo cáo tổng hợp công nợ tất cả KH, ta có thể chọn in chỉ các khách hàng dư nợ, hoặc các khách hàng dư có (trả tiền trước), in các khách hàng hết nợ, và dĩ nhiên, cả in hết. Khi chọn 1 option button khác, ta sẽ có 1 báo cáo khác.
Code chính của việc tác động vào Pivot table như sau: PHP Code: Sub Pivot01() Dim Status, EndR As Long, BeginR As Long Select Case ActiveSheet.[I1]
Case 1 Status = "(All)" Case 2 Status = "1" Case 3 Status = "2" Case 4 Status = "0" End Select With ActiveSheet.PivotTables("PivotTable1").PivotFields("TinhtrangNo") .CurrentPage = Status End With End Sub Trong đó, "TinhtrangNo" là 1 field bổ sung thêm vào dữ liệu nguồn. Ngoài ra các code khác để đánh số thứ tự, kẻ khung, ...
Có sự khác biệt của vài dòng lệnh giữa 2003 và 2007: Trong 2007 - 2010, nếu Pivot table đã định dạng theo 1 style, thì VBA không can thiệp được vào định dạng kẻ khung, đổi chữ đậm, nghiêng, ... cho các thành phần của Pivot table. Trong file kèm theo tôi có ghi chú. __________________________