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

　暱稱: Raymond Chien

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

1^# 跳轉到 »

發表於 2018-5-26 14:38 | 顯示全部帖子

回復 1# 周大偉

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

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

　暱稱: Raymond Chien

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

2^#

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

　暱稱: Raymond Chien

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

3^#

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

　暱稱: Raymond Chien

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

4^#

發表於 2018-5-27 11:47 | 顯示全部帖子

回復 8# 周大偉

您是說如何拿掉嗎?
就把option explicit這句刪掉就好

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