標題:
[發問]
請問有關setlinkondata的問題！
[打印本頁]
作者:
asdfjack
時間:
2010-6-8 09:55
標題:
請問有關setlinkondata的問題！
請教各位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
時間:
2010-6-8 18:15
回復
1#
asdfjack
條件式 If Sheet11.Range("L15") <=Sheet11.Range("N4") Then 改成
If Sheet11.Range("L15").value <=Sheet11.Range("N4").value Then 試試或是確認一下
該兩儲存格資料型態是否為數值，if not再加上val轉換一下
作者:
asdfjack
時間:
2010-6-9 14:46
回復
2#
victorl
這個方法還是不行，不過還是感謝大大的回答，這個問題我已經自己解決了！
作者:
小誌
時間:
2010-6-9 15:21
回復 victorl
這個方法還是不行，不過還是感謝大大的回答，這個問題我已經自己解決了！
asdfjack 發表於 2010-6-9 14:46
如何解決的?本論壇不是問答論壇,是交流論壇喔!!
是不是可以發表解決的方法,讓大家思考一下??
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
