マクロの後にExcelグラフが更新されない（自動起動）

Question

グループ化された行を展開/折りたたむマクロを実行した後に更新されないグラフがあります。手動で展開して折りたたむと、うまく動作し、グラフが正常に表示されます。

自動式が有効になっています。奇妙なのは、ワークブック内のランダムな行を削除するだけで、チャートがリフレッシュされ、値は#VALUE!の代わりになるはずです。これを私のマクロに追加しようとしましたが、まだ何もありません。

ここに私のマクロがあります。また、 - エクセル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 

をマクロの終わりに。ワークシート/アプリケーションのすべてのデータを強制的に再計算します。