我正在尝试开发一个主要是数据透视表的报表,但其中包含一些相邻的单元格,用于某些其他(不可用于数据透视表的)文本值。
每周将刷新数据透视表,并根据基础数据移动带有副标题的行。
每次发生这种情况时,我都必须手动格式化那些相邻的单元格以匹配数据透视表的格式。
请问有人知道如何使单元格继承数据透视表的格式“样式”吗?
谢谢!
答案 0 :(得分:2)
在“工作簿”模块中尝试类似的操作:
Private Sub Workbook_SheetPivotTableUpdate(ByVal Sh As Object, ByVal Target As PivotTable)
Dim c As Range
With Target.DataBodyRange
Set c = .Columns(.Columns.Count)
End With
With c.End(xlToRight)
.CurrentRegion.ClearFormats
c.Copy
.PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
End With
End Sub
答案 1 :(得分:1)
您可以在数据透视表的第一列({ACC,ACT,BAS等)中创建主要类别的命名列表。假设[ACC]位于单元格A5中,则可以使用以下公式有条件地格式化非枢轴表格:
=IFERROR(MATCH(A5,Named_List,0),0)>0