Chỉ là nhấn chuột phải vào khung nhập code, chọn Object Browser rồi tìm tòi trong đó thôi bạn.
Vấn đề 1:
Mã nguồn PHP:
Sheets("<SheetName>").PivotTables("<PivotTableName>").PivotCache.Refresh
Vấn đề 2:
Mã nguồn PHP:
Dim i As IntegerFor i = Sheets("<SheetName>").PivotTables("<PivotTableName>").PivotFields("<PivotFeild>").PivotItems().Count - 1 To 1 Step -1 On Error Resume Next Sheets("<SheetName>").PivotTables("<PivotTableName>").PivotFields("<PivotFeild>").PivotItems(i).DeleteNext
Vấn đề 3:
Mã nguồn PHP:
Sheets("<SheetName>").PivotTables("<PivotTableName>").PivotFields("<PivotFeild>").AutoSort 1, "<Feild>"Sheets("<SheetName>").PivotTables("<PivotTableName>").PivotFields("<PivotFeild>").ClearAllFiltersSheets("<SheetName>").PivotTables("<PivotTableName>").PivotFields("<PivotFeild>").PivotFilters.Add xlDateBetween, , Sheets("<SheetName>").PivotTables("<PivotTableName>").PivotFields("<PivotFeild>").PivotItems().Count - 7, Sheets("<SheetName>").PivotTables("<PivotTableName>").PivotFields("<PivotFeild>").PivotItems().Count - 1