麻辣家族討論版版 » Excel程式區 » 求高手指點，為何共用簿後，VBA的運行速度會減慢？

返回列表下一主題上一主題發帖

[發問] 求高手指點，為何共用簿後，VBA的運行速度會減慢？

小學生 Rank: 1

帖子: 35
主題: 8
精華: 0
積分: 43
點名: 0
作業系統: WIN7
軟體版本: WIN
閱讀權限: 10
註冊時間: 2015-9-13
最後登錄: 2019-12-16

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2016-1-17 14:27 | 只看該作者

[發問] 求高手指點，為何共用簿後，VBA的運行速度會減慢？

我在工作表１上製作一個搜尋鍵來搜尋工作表2的資料，只要在A1位置上輸入關鍵字，
就會在下面顯示結果。如上圖所示，速度只需0.4805，非常快速。

但共用活頁簿後，速度大幅減慢，居然要61.6797秒，
實在不能接受，為何會這樣？之前測試過各種VBA代碼可能會慢一點點，
但不致於慢那麼多，到底是甚麼問題呢？希望各位高手能夠指點一下，
謝謝！

樓主熱帖

收藏

小學生 Rank: 1

帖子: 35
主題: 8
精華: 0
積分: 43
點名: 0
作業系統: WIN7
軟體版本: WIN
閱讀權限: 10
註冊時間: 2015-9-13
最後登錄: 2019-12-16

2^#

發表於 2016-1-17 14:32 | 只看該作者

上傳附件一份，謝謝！

http://pan.baidu.com/s/1o6ZxaVC

中學生 Rank: 2

帖子: 262
主題: 8
精華: 0
積分: 280
點名: 17
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2015-8-11
最後登錄: 2024-11-19

2016猴年全勤獎章

3^#

發表於 2016-1-19 12:11 | 只看該作者

回復 1# leehom

這會基VBA於網絡讀取資料所需時間, 如果還有寫入時間就更加了。

小學生 Rank: 1

帖子: 35
主題: 8
精華: 0
積分: 43
點名: 0
作業系統: WIN7
軟體版本: WIN
閱讀權限: 10
註冊時間: 2015-9-13
最後登錄: 2019-12-16

4^#

發表於 2016-1-19 12:33 | 只看該作者

回復 3# ikboy

終於有人回應了,那應該怎麼寫才可解決這個問題?

中學生 Rank: 2

帖子: 262
主題: 8
精華: 0
積分: 280
點名: 17
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2015-8-11
最後登錄: 2024-11-19

2016猴年全勤獎章

5^#

發表於 2016-1-20 09:34 | 只看該作者

回復 4# leehom

想下載來看,但

見到如此,怕怕。

1.PNG (8.54 KB)

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-7-9

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

6^#

發表於 2016-1-20 10:01 | 只看該作者

回復 4# leehom

修改程式碼，只能快一點點，網路問題，和上面說的一樣

Public Sub Search()
t = Timer
Application.ScreenUpdating = False
Dim b As Range
A = Sheets(1).[a1]
With Sheets(2)
Set b = .Columns(1).Find(A, , , 1, , 2)
Sheets(1).Range("A3:H3") = .Range(.Cells(b.Row, "A"), .Cells(b.Row, "H"))
End With
Application.ScreenUpdating = True
MsgBox Format(Timer - t, "0.0000")
End Sub

複製代碼

小學生 Rank: 1

帖子: 35
主題: 8
精華: 0
積分: 43
點名: 0
作業系統: WIN7
軟體版本: WIN
閱讀權限: 10
註冊時間: 2015-9-13
最後登錄: 2019-12-16

7^#

發表於 2016-1-20 20:25 | 只看該作者

回復 leehom

修改程式碼，只能快一點點，網路問題，和上面說的一樣
lpk187 發表於 2016-1-20 10:01

我試了一下,很奇怪,為甚麼抓不到任何資料?都是空白的....

另外,關於網路問題,我原先的程式碼只是試將活頁簿設成"共用"就慢了,
並未正式和別人共用,檔案都放在本機磁碟,理應不關網路的事吧?

小學生 Rank: 1

帖子: 35
主題: 8
精華: 0
積分: 43
點名: 0
作業系統: WIN7
軟體版本: WIN
閱讀權限: 10
註冊時間: 2015-9-13
最後登錄: 2019-12-16

8^#

發表於 2016-1-20 20:26 | 只看該作者

回復 5# ikboy

不會吧...可能是xlsm檔案才誤以為帶有病毒,放心沒有事的~

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-7-9

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

9^#

發表於 2016-1-20 22:37 | 只看該作者

回復 7# leehom

剛認真的看了一下，執行共用你原本的程式碼，共用後，確實慢很多
你再試看看

Public Sub exA()
t = Timer
Application.ScreenUpdating = False
Dim b As Range
A = Sheets("工作表1").[a1]
If Range("A3") <> "" Then
Sheets(1).Range("a3:h3").Clear
End If
With Sheets("工作表2")
Set b = .Columns(1).Find(A, , , 1, , 2)
arr = .Range(.Cells(b.Row, "A"), .Cells(b.Row, "H"))
Sheets("工作表1").Range("A3:H3") = arr
End With
Application.ScreenUpdating = True
MsgBox Format(Timer - t, "0.0000")
End Sub

複製代碼

小學生 Rank: 1

帖子: 35
主題: 8
精華: 0
積分: 43
點名: 0
作業系統: WIN7
軟體版本: WIN
閱讀權限: 10
註冊時間: 2015-9-13
最後登錄: 2019-12-16

10^#

發表於 2016-1-21 00:33 | 只看該作者

回復 9# lpk187

對啊,不知道是甚麼原因。
我試了一下你這段,共用後速度沒有影響,很棒,謝謝分享!!

靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。

返回列表下一主題上一主題