DÙNG VBA ĐIỀU KHIỂN PIVOT TABLE ĐỂ TẠO BÁO CÁO ppsx

DÙNG VBA ĐIỀU KHIỂN PIVOT TABLE ĐỂ TẠO BÁO CÁO I. Điều khiển các chức năng cơ bản và nâng cao: 1. Hoán đổi vị trí các fields trong cùng Area PHP Code: With ActiveSheet.PivotTables("<PivotTableName>") .PivotFields("<FieldName>").Position = IIf(.Position = 1, 2, 1) ' Dời Row field qua trái hoặc Column Field lên trên:' .PivotFields("<FieldName1>").Position = .Position - 1 ' Dời Row field qua phải hoặc Column Field xuống dưới:' .PivotFields("<FieldName2>").Position = .Position + 1 End With 2. Chuyển vị trí fields từ Area này qua Area khác PHP Code: With ActiveSheet.PivotTables("<PivotTableName>") .PivotFields("<FieldName1>").Orientation = xlRowField 'Row Area' .PivotFields("<FieldName2>").Orientation = xlColumnField 'Column Area' .PivotFields("<FieldName3>").Orientation = xlPageField 'Page Area' End With 3. Thêm & thay đổi dữ liệu cần phần tích trong Data Area PHP Code: With ActiveSheet.PivotTables("<PivotTableName>") .PivotFields("Alias of <FieldName1>").Orientation = xlHidden 'gỡ field ra kh ỏi Data Area' .AddDataField ActiveSheet.PivotTables("<PivotTableName>").PivotFields(" <FieldName2>"), _ "Alias of <FieldName2>", xlSum/ xlMax/ xlMin/ 'Thêm field vào Data Ar ea' End With 4. Show - Hide GrandTotal PHP Code: With ActiveSheet.PivotTables("PivotTable1") .RowGrand = True/ False .ColumnGrand = True/ False End With 5. Filter single selection PHP Code: ActiveSheet.PivotTables("<PivotTableName>").PivotFields("<FieldName>").Cur rentPage = <FieldItem> 6. Filter Multiple selection: PHP Code: With ActiveSheet.PivotTables("<PivotTableName>").PivotFields("<FieldName>" ) For i = 1 To .PivotItems.Count With .PivotItems(i) .Visible = (Condition1 And/Or Condition2 And/Or Condition3 ) End With Next End With 7. Thay đổi field setting PHP Code: With ActiveSheet.PivotTables("PivotTable1").PivotFields(CurrentField) ' Sum:' .Calculation = xlSum 'Max:' .Calculation = xlMax 'Mức tăng giảm so với kỳ trước:' .Calculation = xlDifferenceFrom .BaseField = "Nam" .BaseItem = "(previous)" .NumberFormat = "#,###" 'Mức tăng giảm so với kỳ gốc (2000):' .Calculation = xlDifferenceFrom .BaseField = "Nam" .BaseItem = "2000" .NumberFormat = "#,###" 'Tỷ lệ tăng giảm so với kỳ trước:' .Calculation = xlPercentDifferenceFrom .BaseField = "Nam" .BaseItem = "(previous)" 'Tỷ lệ tăng giảm so với kỳ gốc (2000):' .Calculation = xlPercentDifferenceFrom .BaseField = "Nam" .BaseItem = "2000" .NumberFormat = "0.00%" 'Tỷ lệ thành phần trong cột:' .Calculation = xlPercentOfColumn 'Tỷ lệ thành phần trong hàng:' .Calculation = xlPercentOfRow 'Tỷ lệ thành phần trong cả bảng:' .Calculation = xlPercentOfTotal 'Excel 2010:Tỷ lệ thành phần so với subtotal Dòng (parent Row)' .Calculation = xlPercentOfParentRow 'Excel 2010:Tỷ lệ thành phần so với subtotal cột (parent Column)' .Calculation = xlPercentOfParentColumn End With 8. Group trường ngày tháng: PHP Code: 'Group theo tháng:' [C16].Group Start:=True, End:=True, Periods:=Array(False, False, False _ , False, True, False, False) 'Group theo quý' [C16].Group Start:=True, End:=True, Periods:=Array(False, False, False, _ False, False, True, False) 'Group theo quý và tháng (2 cấp)' [C16].Group Start:=True, End:=True, Periods:=Array(False, False, False, _ False, True, True, False) 'Group theo 6 tháng (tức group theo ngày, 183 ngày)' [C16].Group Start:=39448, End:=39813, By:=183, Periods:=Array(False, _ False, False, True, False, False, False) II. Sử dụng các control của Form và của Control toolbox: - OptionButton - Groupbox - Checkbox - Toggle Button - Combobox (Form Control) - Combobox (ActiveX control) - Command Button . DÙNG VBA ĐIỀU KHIỂN PIVOT TABLE ĐỂ TẠO BÁO CÁO I. Điều khiển các chức năng cơ bản và nâng cao: 1. Hoán đổi vị trí các fields trong cùng Area PHP Code: With ActiveSheet.PivotTables("<PivotTableName>"). ActiveSheet.PivotTables("PivotTable1") .RowGrand = True/ False .ColumnGrand = True/ False End With 5. Filter single selection PHP Code: ActiveSheet.PivotTables("<PivotTableName>").PivotFields("<FieldName>").Cur rentPage. ActiveSheet.PivotTables("<PivotTableName>").PivotFields("<FieldName>").Cur rentPage = <FieldItem> 6. Filter Multiple selection: PHP Code: With ActiveSheet.PivotTables("<PivotTableName>").PivotFields("<FieldName>" )