Question

我创建了一个条形图，用于显示建筑物的图形表示。

已针对将成本放置在地板上的情况进行了有条件的格式化-该地板在条形图上突出显示为红色。

然后我发现了一个VBA，当有条件格式化的单元格颜色更改颜色时，它会将条形图系列的颜色更改为红色或灰色。（我的编码知识非常有限，这是我希望继续发展的东西）

但是，当我添加费用时，它不会自动更改条形图。它要求我单击图表，然后更新并变成红色。

是否可以通过代码解决此问题，以便在增加成本后立即将底线更改为红色？

我已经在网上寻找一些刷新选项/计算选项，但是我的知识不是最好的，我可能没有正确添加它？

代码从这里开始；

Toggle

我将计算/刷新放在J = J + 1之后，但这没用。

Answer 1

如果用手更改值，则必须使用Worksheet_Change

您需要将此代码放在Sheet中，而不是模块中：

Private Sub Worksheet_Change(ByVal Target as Range) 
  Call CellColorsToChart
End Sub

否则，如果通过计算更改了值，则必须使用Worksheet_Calculate

如下所示

Private Sub Worksheet_Calculate() 
 Call CellColorsToChart
End Sub

如果您只想刷新更改图表，我建议您使用.refresh

Private Sub Worksheet_Change(ByVal Target as Range)       
  ActiveSheet.ChartObjects("Euston Tower").Chart.Refresh
End Sub

不要犹豫，留下我反馈，这样我就可以根据需要改善答案