帖子: 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,型態不符合"
請問是哪裡出錯??應該怎麼改??
感恩感恩..

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

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

論壇貢獻勳章

2^#

發表於 2010-10-17 22:16 | 只看該作者

你這個沒有類型問題，怎會出現此現象？
錯誤停在那一行？我覺得應該是其他模組的問題。

TOP

三寶

小學生 Rank: 1

帖子: 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: 8 Rank: 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

Hsieh

超級版主 Rank: 8 Rank: 8

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

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

5^#

發表於 2010-10-17 22:55 | 只看該作者

應該是開檔重算時DDE未傳回資料
[g6]跟[e6]傳回NA#的錯誤值

學海無涯_不恥下問

TOP

三寶

小學生 Rank: 1

帖子: 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

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

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

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]