請求前輩們協助看看程式出錯處,

帖子: 109
主題: 12
精華: 0
積分: 177
點名: 0
作業系統: win10
軟體版本: office2013
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2017-11-19
最後登錄: 2023-7-5

2^#

發表於 2018-5-26 14:38 | 只看該作者

回復 1# 周大偉

不太清楚您的情況
如果想避免觸發事件的話可以用
Application.EnableEvents=false
但若可以看到原檔案會比較清楚您的問題

Excel VBA網頁資料收集教學:
http://forum.twbts.com/thread-20848-1-1.html

帖子: 250
主題: 59
精華: 0
積分: 313
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 澳門
註冊時間: 2010-9-11
最後登錄: 2020-1-6

3^#

發表於 2018-5-26 16:20 | 只看該作者

回復 2# iamaraymond
謝謝前輩回應,
小弟錯把原檔案上傳, 現把有程式檔案重新上傳, 希望能得到協助, 謝謝, 感恩..

nnnn.zip (31.81 KB)

iamaraymond

　暱稱: Raymond Chien

帖子: 109
主題: 12
精華: 0
積分: 177
點名: 0
作業系統: win10
軟體版本: office2013
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2017-11-19
最後登錄: 2023-7-5

4^#

發表於 2018-5-26 16:40 | 只看該作者

回復 3# 周大偉

您說的錯誤是不是變數未定義?
如果是的話只要在
Private Sub Worksheet_SelectionChange(ByVal T As Range)
底下加一句
Dim c As Variant

應該就可以了

Excel VBA網頁資料收集教學:
http://forum.twbts.com/thread-20848-1-1.html

帖子: 250
主題: 59
精華: 0
積分: 313
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 澳門
註冊時間: 2010-9-11
最後登錄: 2020-1-6

5^#

發表於 2018-5-26 19:45 | 只看該作者

回復 4# iamaraymond
感謝前輩,
加入這句, 問題已解决, 謝謝協助, 祝身體健康, 快樂..謝謝!!

帖子: 250
主題: 59
精華: 0
積分: 313
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 澳門
註冊時間: 2010-9-11
最後登錄: 2020-1-6

6^#

發表於 2018-5-27 09:41 | 只看該作者

回復 4# iamaraymond
前輩, 早晨
想知多點,
Private Sub Worksheet_SelectionChange(ByVal T As Range)
底下加一句
Dim c As Variant
除了這加多一句, 可還有其他語法或方法取代,
其實加多一句後, 問題已解决, 只是想知多D, 學多D,
謝謝!!

iamaraymond

　暱稱: Raymond Chien

帖子: 109
主題: 12
精華: 0
積分: 177
點名: 0
作業系統: win10
軟體版本: office2013
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2017-11-19
最後登錄: 2023-7-5

7^#

發表於 2018-5-27 11:04 | 只看該作者

本帖最後由 iamaraymond 於 2018-5-27 11:05 編輯

回復 6# 周大偉

其實這個問題源自於最上面那一句
option explicit
若寫了這句語法就代表要必須宣告你每一個使用的變數
例如捕的這一句
dim c as variant
就是宣告c這個變數是一個variant的型態

使用option explicit有幾個優點是
1.程式會運行較快，因為你宣告了每一個變數，那麼電腦就不要還要花時間幫你判斷哪個變數是哪個類型
2.降低錯誤率，有時候我們會不小心打錯字
例如我今天用stockno紀錄股票代號，結果我後面在使用時不小心漏了一個字打成stckno，那這樣就可能造成程式出錯
而使用option explicit他就會幫你檢查，在你程式運作之前，他就會跟你說stckno沒定義
這時候你就可以檢查到你打錯字了

但麻煩的是...每一個變數都要定義XD

所以另一個解決方式就是把option explicit拿掉
他就不會強制你每個變數都要定義了

Excel VBA網頁資料收集教學:
http://forum.twbts.com/thread-20848-1-1.html