一个单元格的值改变时自动刷新全部

冰晶火

大家好，我在做一个图表就是当选择下拉列表的一个数值时，图表和后台query自动刷新。我写了一个VBA但是当我改变选择数值的时候，VBA会不停的刷新没有办法停下来。下面是我的步骤和代码。1. 用query把数据从数据库下载到Sheet1
2. 在Sheet2里统计每种产品总价的占比。
3. 在sheet3里列出前10种的产品。在D3单元格里创建一个前10种产品的下拉列表，根据D3的选项，把这个产品的历史数据汇总到表1. 从表1制作一个历史数据的图表。

我现在每次在D3里选择一个新的产品，就要手动刷新一下，这样图表和表1才能正确显示。所以我写了下面的VBA。但是这个代码停不下来。请帮忙。谢谢。

1. Private Sub Worksheet_change(ByVal Target As Range)
   
2.     Application.EnableEvents = False
   
3.     ActiveWorkbook.RefreshAll
   
4.     Application.EnableEvents = True
   
5. End Sub
   

复制代码

蓝桥玄霜

没有附件不能测试代码。
建议上传Excel表格附件来说明问题。
没有表格附件的求助帖很少能获得满意的回复。

零零度

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
        If Target.Address = "$D$3" Then ActiveWorkbook.RefreshAll
    Application.EnableEvents = True
End Sub

冰晶火

零零度 发表于 2020-5-27 00:58
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
        I ...

非常感谢，完美解决。可以解释一下Application.enableevents=False/True 在这里的具体作用吗？

冰晶火

蓝桥玄霜 发表于 2020-5-26 20:24
没有附件不能测试代码。
建议上传Excel表格附件来说明问题。
没有表格附件的求助帖很少能获得满意的回复 ...

谢谢，理解。因为是公司的数据，所以开始没有上传。下次尽量发帖的时候上传表格。

零零度

冰晶火 发表于 2020-5-28 08:25
非常感谢，完美解决。可以解释一下Application.enableevents=False/True 在这里的具体作用吗？

Application.enableevents=False/True   事件的激活与关闭   防止程序死循环
例如：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Target.Offset(0, 1).Select
End Sub
改变选择时激活SelectionChange事件，执行Target.Offset(0, 1).Select    此时select又改变了  又激活SelectionChange 再次执行Target.Offset(0, 1).Select ........如此死循环
若是加了事件的开启关闭，如下，改变选择时激活SelectionChange事件，先关闭事件响应，不会触发任何事件，执行Target.Offset(0, 1).Select （或目标程序）以后 在开启事件响应，以便其他事件正常响应。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.EnableEvents = False
    Target.Offset(0, 1).Select
    Application.EnableEvents = True
End Sub

If Target.Address = "$D$3" Then ActiveWorkbook.RefreshAll
在这个事件里因为有if来判断执行的条件，不用Application.enableevents=False/True也可以，以上是我的理解。

any1009

冰晶火 发表于 2020-5-28 08:25
非常感谢，完美解决。可以解释一下Application.enableevents=False/True 在这里的具体作用吗？

你的问题主要是少了触发条件的判断，导致只要表格有变动就会刷新

冰晶火

零零度 发表于 2020-5-28 01:56
Application.enableevents=False/True   事件的激活与关闭   防止程序死循环
例如：
Private Sub Works ...

确实我把Application.enableevents 去掉也可以很好运行。
还有一个问题，按照这个理解，我原来的代码也应该不会死循环啊。
1. 触发事件。
2. 关闭事件激活
3. 全部刷新 （并不触发其他的任何事件）
4. 开启事件激活
按照这个逻辑，这个代码不应该死循环。但事实是真的死循环了。这其中还有奥妙？

零零度

冰晶火 发表于 2020-5-29 09:02
确实我把Application.enableevents 去掉也可以很好运行。
还有一个问题，按照这个理解，我原来的代码也 ...

那就要看具体的文档了，我也不清楚还有其他什么原因会导致这样的问题

冰晶火

Cost Trend MT.zip (437.17 KB, 下载次数: 14)

2020-5-31 02:27 上传

点击文件名下载附件

这个是原始文件。请大家诊断一下。谢谢。