请各位大大先帮小弟看一下这组程式:
Private Sub Worksheet_Calculate()
Application.EnableEvents = True
Dim i As Integer
i = 3
Range("a2:e2").Copy
Range("a" & i).PasteSpecial Paste:=xlPasteValues
i = i + 1
End Sub
照小弟的想法:这个程式应该启动后自动每次DDE有资料变动它就可以自己动作,可是事实
上则是要小弟进去VBA的程式里按F5,而且只作了一次就不在作动了,为什么????

资料变动是因为储存格中带有公式产生的数值变动还是单纯数值不经由公式产生所产生的变动呢?若是前者的话，则将公式改成类似这样http://i.imgur.com/3AYpNAq.png后者的话类似这样 http://i.imgur.com/DkB9lgx.png

是由DDE产生的资料变动,但是没有用,还是不动~~