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 =...