fdgdf dfg fggg sdfsdf dfgfg
Update PivotTable Dim pf As PivotField Dim tempDataFieldName1 As String Sheets("InputData").Select ' Get the previous datafield name For Each pf In Sheets("InputData").PivotTables("PivotTable1").DataFields tempDataFieldName1 = pf.Name Next 'Hide the previous datafield ActiveSheet.PivotTables("PivotTable1").CubeFields(tempDataFieldName1). _ Orientation = xlHidden 'Add the chosen datafield ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables( _ "PivotTable1").CubeFields(Range("chosenDatafield").Text) 'Update the chosen state If Range("ChosenState").Value = 1 Then Sheets("InputData").PivotTables("PivotTable1").PivotFields("[STATE]").AddPageItem _ "[STATE].[All]", True Else Sheets("InputData").PivotTables("PivotTable1").PivotFields("[STATE]").AddPageItem _ "[STATE].[All]." & Range("State").Offset(Range("ChosenState"), 0).Text, True End If End Sub .msgcontent .wsharing ul li { text-indent: 0; } 分享 Facebook Plurk YAHOO!
好站連結：http://tw.myblog.yahoo.com/m955282
留言列表
