返回列表下一主題上一主題發帖

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

asdfjack

小學生 Rank: 1

帖子: 2
主題: 1
精華: 0
積分: 3
點名: 0
作業系統: windowsXP
軟體版本: 2002
閱讀權限: 10
註冊時間: 2010-6-8
最後登錄: 2010-6-9

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 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

中學生 Rank: 2

帖子: 65
主題: 0
精華: 0
積分: 120
點名: 0
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-15
最後登錄: 2010-7-16

2^#

發表於 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轉換一下

TOP

asdfjack