返回列表 上一主題 發帖

[發問] 外部連結資料DDE觸發Calculate事件,打開檔案都告訴我型態不符合???

三寶

帖子
20 
主題
2 
精華
0 
積分
28 
點名
0  
作業系統
vista 
軟體版本
office 2003 
閱讀權限
10 
註冊時間
2010-10-10 
最後登錄
2010-11-3 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-10-17 22:05 | 顯示全部帖子

[發問] 外部連結資料DDE觸發Calculate事件,打開檔案都告訴我型態不符合???

以下是我自己寫的VBA:

Private Sub Worksheet_Calculate()

If [g6] < 0 Then
[f6] = 17000 + [e6] * 50
ElseIf [g6] >= 8000 Then
[f6] = 9000 + [e6] * 50
ElseIf 0 <= [g6] < 8000 Then
[f6] = 17000 - [g6] + [e6] * 50

End If
End Sub

我的儲存格都是數字
[g6]跟[e6]是DDE連結外部資料,會一直變動
所以[f6]會一直計算,

如果我把這個語法放在巨集marco1,
然後在Private Sub Worksheet_SelectionChange(ByVal Target As Range)宣告marco1,
那它就可以正常運作,
只是每次要隨便點一下工作表,它才會執行
因為我的資料是每秒都在變的,所以我想把它放在Calculate裡,
可是這樣的話,我每次打開檔案它就告訴我"執行階段錯誤13,型態不符合"
請問是哪裡出錯??應該怎麼改??
感恩感恩..
收藏 分享

三寶

帖子
20 
主題
2 
精華
0 
積分
28 
點名
0  
作業系統
vista 
軟體版本
office 2003 
閱讀權限
10 
註冊時間
2010-10-10 
最後登錄
2010-11-3 
2#
發表於 2010-10-17 22:34 | 顯示全部帖子
感謝oobird回覆,
我偵錯時是停在第一行
If [g6] < 0 Then    <----這一行會變黃色
我打開檔案的時候,[g6]的值是5萬多,但是它會變動的,這應該不影響吧?
還有,其實我總共有35組這樣的程序,我只有列出一組而已,
因為每一組的公式都一樣,
都是參照它左右兩邊的儲存格來計算,
就是說[f7]會參照[g7]跟[e7]
         [f8]會參照[g8]跟[e8]
以此類推,
不知道這會不會有影響??
感謝您...

TOP

三寶

帖子
20 
主題
2 
精華
0 
積分
28 
點名
0  
作業系統
vista 
軟體版本
office 2003 
閱讀權限
10 
註冊時間
2010-10-10 
最後登錄
2010-11-3 
3#
發表於 2010-10-17 23:46 | 顯示全部帖子
搞定了!!!
oobird版大,感謝感謝再感謝...
真的行了,加上除錯真是一勞永逸,
真是謝謝你.
還有Hsieh版大,您講的也沒錯,
真是解開了我心中的結,
因為我一直不懂為什麼放在巨集就可以正常運作,
現在我知道了,因為等它傳回正確的值之後就一切正常,
一開檔的時候傳回NA#錯誤值當然發生錯誤,
真是謝謝二位幫小弟解惑,
謝謝.

TOP

        靜思自在 : 並非有錢魷是快樂，問心無愧心最安。
返回列表 上一主題