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 ("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 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 1 Nội địa 2 khấu Tổng cộng 19 350 003 000 000 000 000 000 060 000 000 ũũũ 3 II Điện gia dụng i Nội líịa 2 Xuất khau Tong cộng 000 000 000 3 III Điện TÍI . .
