Question

我的原始数据表中有以下列

     Category    Amount    Posted/Budget

我将数据放入数据透视表中并进行排序，以查看每个类别的过帐金额和预算金额。我创建了一个名为Variance的第二个Amount字段，该字段使用与＆＃39;的区别。和预算＆＃39;来自值字段设置 - ＆gt;显示值以找出差异。

如何在“方差”部分下隐藏或删除“预算”列？

                 Amount                     Variance
            Posted     Budget        Posted      Budget
Category

Revenue      10,000    11,000          1,000

 COS         9,000     10,000          1,000

Pers Ex     -10,000   -9,000           1,000

 Op Ex       20,000    25,000          5,000

我发现的解决方案，不是优雅而是有效。录制宏以找出我想要隐藏的数据透视表中的范围名称。一旦我找到了范围，我在工作表上运行了以下Sub：

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)

'Used to store selected Cell

Dim mysheet

Dim mycell

mysheet = ActiveSheet.Name

mycell = ActiveCell.Address


'Stops screen from flashing

Application.ScreenUpdating = False


'Select all cells

Cells.Select

'Unhide all cells

Selection.EntireColumn.Hidden = False

' Select Variance and Posted data columns

ActiveSheet.PivotTables("PivotTable1").PivotSelect _
        "Posted_Budget['Posted Data                        '] Variance", xlDataAndLabel _
        , True

'Hide selected Columns

 Selection.EntireColumn.Hidden = True


'Return to selected Cell

Sheets(mysheet).Range(mycell).Select

'Allow Screen to refresh

Application.ScreenUpdating = True

End Sub

使用差异时从数据透视表中删除额外列

0 个答案: