- 帖子
- 2
- 主題
- 1
- 精華
- 0
- 積分
- 3
- 點名
- 0
- 作業系統
- windowsXP
- 軟體版本
- 2002
- 閱讀權限
- 10
- 註冊時間
- 2010-6-8
- 最後登錄
- 2010-6-9
|
[發問] 請問有關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高手大大能幫小弟解惑，感激不盡！ |
|
發表於 2010-6-8 09:55
| 
