Dùng VBA hoán vị và dời các fields ppt

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'