返回列表 上一主題 發帖

[發問] 外部連結資料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 
6#
發表於 2010-10-17 23:46 | 只看該作者
搞定了!!!
oobird版大,感謝感謝再感謝...
真的行了,加上除錯真是一勞永逸,
真是謝謝你.
還有Hsieh版大,您講的也沒錯,
真是解開了我心中的結,
因為我一直不懂為什麼放在巨集就可以正常運作,
現在我知道了,因為等它傳回正確的值之後就一切正常,
一開檔的時候傳回NA#錯誤值當然發生錯誤,
真是謝謝二位幫小弟解惑,
謝謝.

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
256  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-26 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
5#
發表於 2010-10-17 22:55 | 只看該作者
應該是開檔重算時DDE未傳回資料
[g6]跟[e6]傳回NA#的錯誤值
學海無涯_不恥下問

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
4#
發表於 2010-10-17 22:53 | 只看該作者
Private Sub Worksheet_Calculate()
on error goto 1
------原有代碼------
-----
1
end sub
加上除錯試試。

TOP

三寶

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

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
2#
發表於 2010-10-17 22:16 | 只看該作者
你這個沒有類型問題，怎會出現此現象？
錯誤停在那一行？我覺得應該是其他模組的問題。

TOP

        靜思自在 : 我們要做好社會的環保，也要做好內心的環保。
返回列表 上一主題