请教excel 的问题，，请高人指点一下。。。大伙儿，，我有一个问题请教，，希望高人帮忙解答一下啊。。

一个excel application。 我可以把external data link 到excel 中。 比如说一个不断变化的数字(从1到10,不断变化但是是有序的变化，例如T1=4,T2=5,T3=6,T4=5......每次变化的新的值不是比原来的旧值大1要么就是小1)一直fill到excel 的A1中。 我怎么才能detect 到A1这个cell中每次值的变化呢？ 而且还能detect 到新的值是比旧的值大1还是小1呢？

谢谢先。。。
[虹 (7-24 10:28, Long long ago)] [ 传统版 | sForum ][登录后回复]1楼

建议1，用VBA loop一直监视A1，这样可能会吃很多CPU吧，若你只是想用电脑做此事就没关系。

2，用VB写个程序，用到timer，可以设置100ms检查A1的数据一次[nus_card (7-25 11:33, Long long ago)] [ 传统版 | sForum ][登录后回复]2楼

监视excel的worksheet change event.用vba处理sheet change event,
如果Target 参数是你想要的那个cell，那么就看看它的value.
然后该干啥干啥。。。
[gsos (7-25 19:29, Long long ago)] [ 传统版 | sForum ][登录后回复]3楼

谢谢二位，有一个新的问题在请教。。 如何解这个死循环？？原来的问题我写了这样一个程序去模拟：(在A1中输入任意integer, 然后pop up message 告诉变化多少）

Private Sub Worksheet_Change(ByVal Target As Range)
Static i As Integer
i = Range("A1").Value
If Target.Address = "$A$1" Then

If i > Range("B1").Value Then _
MsgBox "value increased by " & i - Range("B1").Value Else _
MsgBox "value decreased by " & Range("B1").Value - i
End If
Application.EnableEvents = False
Range("B1").Value = Range("A1").Value

Application.EnableEvents = True
End Sub


但是这个程序只能在人工手动在A1中输入数据时管用（似乎一定要press enter, 或者tab才行），我的application 是从外面连一个external data 到excel 中， worksheet_change 不能detect 到数据的变化。

所以我又想了一招，，考虑能不能先在VBA中写一个赋值语句，让B1=A1,, 然后detect B1 是否有变化，，但是这么做得到了一个死循环，， 各位有什么办法解这个循环呢？

死循环程序如下（输入任意interger 在A1, 令 B1 随着 A1的变化而改变，，然后Popup message 告诉B1有变化）：

Private Sub Worksheet_Change(ByVal Target As Range)

Range("B1").Value = Range("A1").Value
If Target.Address = "$B$1" Then
MsgBox "B1 changed"
End If

End Sub

请教如何解决啊？




[虹 (7-28 17:40, Long long ago)] [ 传统版 | sForum ][登录后回复]4楼

(引用 虹:谢谢二位，有一个新的问题在请教。。 如何解这个死循环？？原来的问题我写了这样一个程序去模拟：(在A1中输入任意integer, 然后pop up me...)用两个Excel文件可以解决假设你的数据在A.xls。你可以在B.xls里面写一个infinite loop。具体工作就是从A.xls读数据，比较

这样的话B.xls一直在运行，就像死机一样，但是A.xls没问题。

[nus_card (7-29 22:06, Long long ago)] [ 传统版 | sForum ][登录后回复]5楼

(引用 nus_card:用两个Excel文件可以解决假设你的数据在A.xls。你可以在B.xls里面写一个infinite loop。具体工作就是从A.xls读数据，比较 这样的话B.xls...)试了下，若你的数据存入A.txt文件里才可以code类似于

Open strFileName For Input As #5
Line Input #5, strLine
MsgBox (strLine)
Close #5

我用line input 读取.xls文件，不成功。。。[nus_card (7-29 22:25, Long long ago)] [ 传统版 | sForum ][登录后回复]6楼