EXCEL:根据相邻数据透视表的样式设置单元格的格式

时间:2018-06-25 09:07:09

标签: excel vba formatting pivot-table cell

我正在尝试开发一个主要是数据透视表的报表,但其中包含一些相邻的单元格,用于某些其他(不可用于数据透视表的)文本值。

每周将刷新数据透视表,并根据基础数据移动带有副标题的行。

每次发生这种情况时,我都必须手动格式化那些相邻的单元格以匹配数据透视表的格式。

请问有人知道如何使单元格继承数据透视表的格式“样式”吗?

以下是我要实现的目标的说明: enter image description here

谢谢!

2 个答案:

答案 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