这段隐藏数据透视表汇总字段的代码有问题吧？

FENGJUN

Programmatically Hide Subtotals You can use a macro to hide subtotals in a PivotTable. This example uses the PivotField property, to hide all the subtotals. To hide only the Row field subtotals, use the RowFields property. To hide only the Column field subtotals, use the ColumnFields property.

Sub NoSubtotals()
'turns off subtotals in pivot table
'.PivotFields could be changed to
'.RowFields or .ColumnFields
Dim pt As PivotTable
Dim pf As PivotField
For Each pt In ActiveSheet.PivotTables
  For Each pf In pt.PivotFields
    'Set index 1 (Automatic) to True,
    'so all other values are set to False
    pf.Subtotals(1) = True   '?
    pf.Subtotals(1) = False  '?
  Next pf
Next pt
End Sub  

[此贴子已经被作者于2004-7-22 17:02:18编辑过]

FENGJUN

请斑竹帮忙啊。

菱角

Subtotals 屬性

請參見 套用至 範例 特定

傳回或設定與指定欄位一同顯示的小計。僅對非資料欄位有效。可讀寫的 Variant 資料類型。

expression.Subtotals(Index)

expression 必選的。該運算式傳回一個 PivotField 物件。

Index 選擇性的 Variant 資料型態。如下表所示的小計索引。如果略過此引數，則 Subtotals 方法將傳回一個陣列，其中包含對應到每個小計的布林值。

索引	意義
1	Automatic
2	Sum
3	Count
4	Average
5	Max
6	Min
7	Product
8	Count Nums
9	StdDev
10	StdDevp
11	Var
12	Varp

如果索引為 True，則該欄位顯示小計。如果索引 1 (Automatic) 為 True，則其他所有值將設定為 False。

註解

對於 OLAP 資料來源，Index 只能傳回或設定為 1(Automatic)。傳回的陣列中，第一個陣列元素的值可以為 True 或 False，而其他所有元件則為 False。陣列中所有元素都為 False 時，即表示沒有小計。

因此

pf.Subtotals(1) = True '將其他subtotal關掉 pf.Subtotals(1) = False '再將本身也關掉 那等於將所有subtotal關掉.