麻辣家族討論版版 » Excel程式區 » 請問一個同時執行巨集與函數的問題

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

請問一個同時執行巨集與函數的問題

中學生 Rank: 2

帖子: 76
主題: 19
精華: 0
積分: 145
點名: 0
作業系統: win xp
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2010-5-24
最後登錄: 2014-6-24

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2011-3-2 17:41 | 只看該作者

請問一個同時執行巨集與函數的問題

我有一個檔案內同時有巨集與函數，當我執行巨集時速度會很慢(因為函數也在作重算儲存格的動作)，如何設定讓巨集先跑完在作函數的統計
謝謝

樓主熱帖

收藏

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 550
主題: 55
精華: 0
積分: 614
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-4-23

2^#

發表於 2011-3-2 17:49 | 只看該作者

本帖最後由 hugh0620 於 2011-3-2 17:52 編輯

回復 1# lone_tiger0303

可以在巨集執行時先關掉自動計算再執行完你原來的程式碼後再打開自動計算
試試看~ 應該會使你的巨集執行的較快~
這是之前一些版主大大傳授的經驗~

Application.Calculation=xlCalculationManual <-----手動計算

巨集程式碼

Application.Calculation=xlCalculationAutomatic <-----自動計算

如果還是很慢滴話~ 可能要檢視你的整體寫法~ 再看看是要修改函數.巨集或是架構~

學習才能提升自己

中學生 Rank: 2

帖子: 76
主題: 19
精華: 0
積分: 145
點名: 0
作業系統: win xp
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2010-5-24
最後登錄: 2014-6-24

3^#

發表於 2011-3-2 18:24 | 只看該作者

好像有變快了~~謝謝

中學生 Rank: 2

帖子: 76
主題: 19
精華: 0
積分: 145
點名: 0
作業系統: win xp
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2010-5-24
最後登錄: 2014-6-24

4^#

發表於 2011-3-2 18:29 | 只看該作者

在請教一下，如何讓Sheet1表內資料轉換成Sheet2表的排列？Sheet1表資料會有增減非都固定數量

Book1.zip (8.42 KB)

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

5^#

發表於 2011-3-2 20:02 | 只看該作者

回復 4# lone_tiger0303

Option Explicit
Sub Ex()
Dim I As Integer, C, AR()
ReDim AR(1, 0)
With Sheet1
For I = 1 To .[A3].End(xlToRight).Column
For Each C In .Range(.Cells(4, I), .Cells(Rows.Count, I).End(xlUp))
If C <> "" And C.Row > 3 Then
AR(0, UBound(AR, 2)) = C
AR(1, UBound(AR, 2)) = .Cells(3, I)
ReDim Preserve AR(1, UBound(AR, 2) + 1)
End If
Next
Next
End With
With Sheet2
.Range(.[A3], .[B3].End(xlDown)) = ""
.[A3].Resize(UBound(AR, 2), 2) = Application.WorksheetFunction.Transpose(AR)
End With
End Sub

複製代碼

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

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

論壇貢獻勳章

6^#

發表於 2011-3-3 09:35 | 只看該作者

Sub yy()
Dim r%, c%, d As Object
Set d = CreateObject("Scripting.Dictionary")
With Sheet1
For c = 1 To 10
For r = 4 To .Cells(65536, c).End(3).Row
If .Cells(r, c) <> "" Then d(.Cells(r, c).Value) = .Cells(3, c)
Next
Next
End With
With Sheet2
.UsedRange.Offset(2, 0) = ""
.[a3].Resize(d.Count, 1) = Application.Transpose(d.keys)
.[b3].Resize(d.Count, 1) = Application.Transpose(d.items)
End With
End Sub

複製代碼

中學生 Rank: 2

帖子: 76
主題: 19
精華: 0
積分: 145
點名: 0
作業系統: win xp
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2010-5-24
最後登錄: 2014-6-24

7^#

發表於 2011-3-4 12:42 | 只看該作者

執行後出現一些問題，如附件所述

Book1.zip (17.77 KB)

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

8^#

發表於 2011-3-4 13:18 | 只看該作者

本帖最後由 GBKEE 於 2011-3-4 13:20 編輯

回復 7# lone_tiger0303
沒有故障阿!
請看清除如圖: 指定好正確的工作表物件名稱

中學生 Rank: 2

帖子: 76
主題: 19
精華: 0
積分: 145
點名: 0
作業系統: win xp
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2010-5-24
最後登錄: 2014-6-24

9^#

發表於 2011-3-4 13:58 | 只看該作者

唉阿~~抱歉我沒注意看~~謝謝GBKEE解答

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

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

論壇貢獻勳章

10^#

發表於 2011-3-4 14:56 | 只看該作者

這個原因通常是隨意變更工作表順序
存檔後再開，工作表名與code name就亂了！

靜思自在 : 太陽光大、父母恩大、君子量大，小人氣大。

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