PowerPivot钻取格式

Question

有没有人知道在PowerPivot钻取过程中进行格式化的方法？每当我在PowerPivot工作簿上执行“钻取”时，生成的报告都没有在PowerPivot中设置格式，它只是具有表格中的原始格式。

Answer 1

要更改默认表格颜色，请执行以下操作：

1. 双击以向下钻取并查看页面。
2. 您的标签现在显示表格工具..
3. 在“表格样式”组中，单击右下方的下拉按钮以查看所有样式
4. 在底部，请参阅“新表样式...”
5. 找到此对话框底部的复选框（新表快速样式）“设置为此文档的默认表格快速样式”

如果你想做其他事情，你将不得不使用宏，这就是我过去完成列隐藏的方法：

Dim pt As PivotTable 
Dim pf As PivotField 
Dim pi As PivotItem 

Set pt = Me.PivotTables("PivotTable1") ' replace with your PT name (see in pivot table options)

For Each pf In pt.PivotFields 
    If pf.Name = "Field1" Then ' change this to your field name
        For Each pi In pf.PivotItems 
            pi.ShowDetail = True ' True to show, False to Hide
    Next pi 
End If 
Next pf 

通过宏实现此目的的另一种方法是在工作簿模块中添加类似的内容：

Private Sub Workbook_NewSheet(ByVal Sh As Object)
ans = MsgBox("Format this sheet?", vbYesNo)
If ans = vbYes Then blahh Sh
End Sub

然后把它放在标准代码模块中：

Sub blahh(sht As Worksheet)
MsgBox "formatting new sheet: " & sht.Name
End Sub

经过测试并使用数据透视表，Excel 2007已经在向下钻取工作表中添加了一些样式。