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 =...
Nội dung trích xuất từ tài liệu:
Dùng VBA hoán vị và dời các fields Dùng VBA hoán vị và dời các fieldsThế 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ácnhau.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 = .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 đưaxuống Row AreaDùng 1 checkbox để cộng 3 khu vực trong nước thành 1 tiêu chí là nội địa, thựcchấ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ảiqua trái.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 địaBỏ không cộng nội địa để nguyên Bắc Trung Nam:Nhấn thử nút Đổi cấp: 2 cột Khu vực và Mặt hàng đổi chỗ cho nhau (nếu nhấnlần nữa sẽ đổi ngược lại):Dời trường khu vực lên Column, trường Năm xuống Row:Kết hợp với dấu dòng, dấu cột, đánh số thứ tự, kẻ khung, ta có báo cáo theo ýmuốn.