Question

我运行宏来扩展/折叠分组行后，我的图表没有更新。如果我手动展开和折叠它们工作正常，图表看起来很好。

已启用自动公式。奇怪的是，如果我只删除工作簿中的随机行，图表将刷新，值将返回到应该是#VALUE!的值。我尝试将此添加到我的宏，但仍然没有。

这是我在宏中的内容。另外 - Excel 2016。

Function CountCcolor(range_data As Range, criteria As Range) As Long
    Dim datax As Range
    Dim xcolor As Long
xcolor = criteria.Interior.ColorIndex
For Each datax In range_data
    If datax.Interior.ColorIndex = xcolor Then
        CountCcolor = CountCcolor + 1
    End If
Next datax
End Function

Sub Expand_All()
  ActiveSheet.Outline.ShowLevels RowLevels:=2
End Sub

Sub collapse()
    ActiveSheet.Outline.ShowLevels RowLevels:=1
End Sub

Answer 1

尝试添加：

ActiveSheet.Calculate

或

Application.Calculate

在宏的末尾。它将强制重新计算工作表/应用程序中的所有数据。

宏之后Excel图表未更新（自动打开）

1 个答案: