Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
If Target.Address = "$A$1" Then
If IsNumeric(Range("a1").Value) = True Then
i = (Range("a1").Value - 1) \ 100 + 1
Range("B" & i).Value = Range("a2").Value
End If
End If
End Sub
最主要是DDE這種太過落後，看這一次Offece Professional Plus 2010 beta新出場，有沒有改變，一般會用到DDE是因為有許多的交易邏輯無法實現在TradeStation，所以將想法轉向到Excel－vba程式，結果在實際運作中的遇到的問題相當多，結果變成不僅僅要成為交易高手，自己還得了解其他領域的知識，這往往是始料未及的事，當發現DDE有許多的問題後，最後只好轉向其他的方式，反而更為輕鬆，不然只好將自己的交易想法寫在腦中的ｖｂａ，就不要想要偷懶。
發表於 2010-5-10 22:16
| 
發表於 2010-5-10 22:21
| 
