麻辣家族討論版版 » 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 | 只看該作者

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

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

樓主熱帖

收藏

中學生 Rank: 2

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

11^#

發表於 2011-3-5 12:14 | 只看該作者

很抱歉造成您的困擾

　頭銜: 街友一族

超級版主 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就亂了！

中學生 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

帖子: 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

7^#

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

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

Book1.zip (17.77 KB)

　頭銜: 街友一族

超級版主 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: 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: 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: 2

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

3^#

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

好像有變快了~~謝謝

靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。

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