诺亚传说新职业:数据透视表系列讲座

不能选择

在Excel2002你可以使用下列代码使字段按钮旁的下拉箭头消失，从而使你不能改变现有的数据项.

注意:你可以使用 .RowFields, .ColumnFields 或 .PageFields代替.PivotFields

Sub DisableSelection()

Dim pt As PivotTable

Dim pf As PivotField

Set pt = ActiveSheet.PivotTables(1)

  For Each pf In pt.PivotFields

             pf.EnableItemSelection = False

  Next pf

End Sub          
 
能够选择 
在Excel2002你可以使用下列代码使关掉上面的宏使字段按钮旁的下拉箭头重新出现，从而使你能改变现有的数据项.
注意:你可以使用 .RowFields, .ColumnFields 或 .PageFields代替.PivotFields
Sub EnableSelection()
Dim pt As PivotTable
Dim pf As PivotField
Set pt = ActiveSheet.PivotTables(1)
  For Each pf In pt.PivotFields
             pf.EnableItemSelection = True
  Next pf
End Sub          
限制数据透视表操作 
你可以使用宏来限制数据透视表的许多特征. 下列代码将限制用户拖动字段到其它位置可拖动离开数据透视表. 它还可以限制用户使用数据透视表向导, 字段列表, 字段设置及更新等.
注意:你可以使用 .RowFields, .ColumnFields 或 .PageFields代替.PivotFields
Sub RestrictPivotTable()
Dim pf As PivotField
With ActiveSheet.PivotTables(1)
  .EnableWizard = False
  .EnableDrilldown = False
  .EnableFieldList = False          'Excel 2002+
  .EnableFieldDialog = False
  .PivotCache.EnableRefresh = False
  For Each pf In .PivotFields
           With pf
             .DragToPage = False
             .DragToRow = False
             .DragToColumn = False
             .DragToData = False
             .DragToHide = False
           End With
  Next pf
End With
End Sub          
 不能拖动(.PageFields为例)
允许数据透视表操作 
下面代码将关掉上面宏而恢复原数据透视表的特征.
注意:你可以使用 .RowFields, .ColumnFields 或 .PageFields代替.PivotFields
Sub AllowPivotTable()
Dim pt As PivotTable
Dim pf As PivotField
Set pt = ActiveSheet.PivotTables(1)
With pt
  .EnableWizard = True
  .EnableDrilldown = True
  .EnableFieldList = True          'Excel 2002+
  .EnableFieldDialog = True
  .PivotCache.EnableRefresh = True
  For Each pf In pt.PivotFields
           .DragToPage = True
           .DragToRow = True
           .DragToColumn = True
           .DragToData = True
           .DragToHide = True
  Next pf
End With
End Sub          

   能够拖动(.PageFields