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

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

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

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

高中生 Rank: 3 Rank: 3

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

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

1^# 跳轉到 »

發表於 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: 3 Rank: 3

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

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

2^#

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

複製代碼

靜思自在 : 小事不做、大事難成。

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