Question

excel vba自动运行问题

现在碰到了个问题，希望高手指点下：我用excel从外部实时读取数据，单元格中有公式，然后处理，自动的，用了worksheets_change 函数。我自己改变单元格数据是，程序正常运行，但单元格中有公式后，即使value发生变化，程序也不自动运行，怎么办？怎么弄个出发条件，当单元格中指变化时能让excel运行程序。
上面的问题再叙述下：比如sheet1 的a1中内又公式=（外面变量），当a1中的值变化时，它不启动worksheets_change 函数，怎么办，有没有别的触发条件，我实现了一秒读一次的宏，但觉得有点耗资源。

Answer 1

这个没有办法，如果别人设置了宏安全性为“高”或“中”，则会自动阻止vba运行或提示是否运行宏，不能在代码里设置改变宏的安全性，如果能在代码里设置改变宏的安全性，那excel的宏安全性就没有任何意义了。

Answer 2

把你的change事件改为 Calculate 事件即可自动运行
Calculate 是针对公式值改变而运行的事件。

Answer 3

在VBA里加入Worksheet_SelectionChange 过程，调用worksheets_change 函数里面的内容。或者试着切换到其他表，在切换回来，看看。

追问

谢谢，以后系统运行后，excel就不管了，希望它能自动运行的，Worksheet_SelectionChange可能不行了，或者怎么做个能一秒运行一次的宏。

追答

我的第二个方法是否可用？或者改变EXCEL窗体结构，看看值变不？

追问

其实主要是其他系统在运行，excel只是后台处理，基本上不动它的，平时也看不到它，让它自己跑的。我也试了一秒写一次，这样太耗资源，一般情况下不可取。郁闷啊，怎么处理呢。高手研究研究啊。

追答

如果确实需要实时读取外部数据，那估计也只能用计时器了

追问

我已经实时读取了，也就是a1单元格中的公式，很简单。就差后续了。上面的问题再叙述下：比如sheet1 的a1中内又公式=（外面变量），当a1中的值变化时，它不启动worksheets_change 函数，怎么办，有没有别的触发条件，我实现了一秒读一次的宏，但觉得有点耗资源。

Answer 4

将程序放入工作表的 Calculate 事件中，即：在对工作表进行重新计算之后产生此事件。
当 公式的值 改变，也就是工作表重新进行了计算，计算完后执行这个事件
Private Sub Worksheet_Calculate()
Columns("A:F").AutoFit
End Sub

Answer 5

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

End Sub