[發問] 請問有關setlinkondata的問題！

asdfjack

請教各位VBA高手：
小弟將DDE報價放在Sheet11的儲存格L15，並將條件放在Sheet11的儲存格N4，再來當L15的值小於N4 的值時，我就將L15的值，複製貼上至儲存格N15，但是我只希望程式在條件滿足時，只執行一次複製貼上的動作，程式碼如下：

Sub Workbook_open()
ActiveWorkbook.SetLinkOnData "DynQuote|FU!WTXm0.205", "test1"
End Sub



Sub test1()

If  Sheet11.Range("L15") <=Sheet11.Range("N4") Then

     Sheet11.Range("L15").Select
     Selection.Copy
     Sheet11.Range("N15").Select
     ActiveSheet.Paste
end if

End Sub



最後的問題是，如果沒有if條件式的話，複製貼上的動作是可以執行的；

但是，一旦加上if條件式的時候，程式就沒辦法執行了，不知道問題出在那呢？希望各位VBA高手大大能幫小弟解惑，感激不盡！

victorl

回復 1# asdfjack


    條件式 If  Sheet11.Range("L15") <=Sheet11.Range("N4") Then 改成
If  Sheet11.Range("L15").value <=Sheet11.Range("N4").value Then 試試或是確認一下
該兩儲存格資料型態是否為數值，if not再加上val轉換一下

asdfjack

回復 2# victorl

這個方法還是不行，不過還是感謝大大的回答，這個問題我已經自己解決了！

小誌

回復  victorl

這個方法還是不行，不過還是感謝大大的回答，這個問題我已經自己解決了！
asdfjack 發表於 2010-6-9 14:46

    如何解決的?本論壇不是問答論壇,是交流論壇喔!!
是不是可以發表解決的方法,讓大家思考一下??