Đang chuẩn bị liên kết để tải về tài liệu:
Dùng VBA hoán vị và dời các fields

Thế mạnh của Pivot Table là hoán vị các field để tạo ra các mẫu báo cáo khác nhau. Code hoán vị rất đơn giản: PHP Code: Field = "Mathang" With ActiveSheet.PivotTables("PivotTable1").PivotFields(Field) ' Hoán đổi qua lại vị trí 2 trường cùng 1 Area (Row Fields, Column Fields, ho ặc Page Fields)' .Position = IIf(.Position = 1, 2, 1) ' Dời đến Row Area' .Orientation = xlRowField ' Dời đến Column Area' .Orientation = xlColumnField ' Dời đến Page Area' .Orientation = xlPageField ' Dời Row field qua trái hoặc Column Field lên trên' .Position = .Position - 1 ' Dời Row field qua phải hoặc Column Field xuống dưới' .Position =. | Dùng VBA hoán vị và dời các fields Thế mạnh của Pivot Table là hoán vị các field để tạo ra các mẫu báo cáo khác nhau. Code hoán vị rất đơn giản PHP Code Field Mathang With ActiveSheet.PivotT ables PivotT able 1 . PivotFields Field Hoán đổi qua lại vị trí 2 trường cùng 1 Area Row Fields Column Fields ho ặc Page Fields .Position IIf .Position 1 2 1 Dời đến Row Area .Orientation xlRowField Dời đến Column Area .Orientation xlColumnField Dời đến Page Area .Orientation xlPageField Dời Row field qua trái hoặc Column Field lên trên .Position .Position - 1 Dời Row field qua phải hoặc Column Field xuống dưới .Position .Position 1 End With Ở đây ta dùng lại file trong topic Pivot Table 2003 về Doanh thu và lợi nhuận. Dùng 3 Option Button để chọn field đưa vào Column Area 2 fields còn lại đưa xuống Row Area Dùng 1 checkbox để cộng 3 khu vực trong nước thành 1 tiêu chí là nội địa thực chất là ẩn hiện field. Trong đó Nội địa là 1 calculated Item của trường khu vực. Dùng 1 Command Button để hoán vị 2 field trong Row Area trái qua phải phải qua trái. Phân tích thecr o Mặt hàng Năm o Khu vực Cộng nội địa Thế là ta có cả chục mẫu báo cáo theo các yêu cầu khác nhau Field Năm cho vào Column Cộng 3 khu vực thành Nội địa BÁO CÁO TÔNG HỢP DOANH THU Nàm 2001 - 2005 Đơn VỊ tính Đồng STT Mặt hàng Khu vực Năm 2001 2002 2003 2004 2005 I Điện CO 380.500.000 170.700.000 367.900.000 106.950.000 375.500.000 163.950.000 358.400.000 159.650.000 442.900.000 198.500.000 1 Nội địa 2 Xi.iằl khấu Tổng cộng 19 350 003 190.250 000 17.000 000 183.950 000 23.800 000 187.750 000 9.550 060 179.200 000 22.950 000 221.450 ũũũ 3 II Điện gia dụng 439.300.000 394.600.000 394.200.000 365.600.000 432.300.000 i Nội líịa 202.050.000 175.200.000 176.700.000 163.250.000 193.200.000 2 Xuất khau Tong cộng 17.000 000 219.050.000 22.100 000 197.300.000 20.400 000 197.100.000 19.550000 182.800.000 22.950.000 216.150.000 3 III Điện TÍI 393.700.000 173.900.000 402.100.000 180.650.000 .396.000.000 180.150.000 358.800.000 .