PJChen

　暱稱: PJ

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2012-4-30 22:36 | 只看該作者

[發問] 不同的sheet相同的動作,如何讓它一次性完成?

大家好,
每個sheet相同的動作,如何讓它一次性完成?
動作1: AA:AL COPY後原範圍貼上值(就是將公式去除)
動作2: A:AD 取消自動篩選,再恢愎自動篩選(因為是公用表格,這樣做可以讓不當操作時,使自動篩選正常)
動作3: 排序>>>順序為AC,U,Q,C,D

巨集儲存在: VBA Cluster.xlsm
需要做重複動作的檔案是: 2012 samples Chart

2012 samples Chart.zip (131.55 KB)

樓主熱帖

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

45^#

發表於 2012-5-11 11:12 | 只看該作者

回復 45# oobird
回復 43# Hsieh
報告二位版主,
經過昨天oobird版主的提點,現在程式執行速度完全正常,感謝多日來不辭辛勞幫我解決問題.

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

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

論壇貢獻勳章

44^#

發表於 2012-5-10 22:59 | 只看該作者

Sub Try_2()
Workbooks("2012 BCMart Chart.xlsx").Activate
Application.Calculation = xlCalculationManual
For s = 5 To 10 '從第某個工作表執行至第某個
Sheets(s).Activate
Set sh = ActiveSheet
n = sh.[al10000].End(3).Row '(AL欄有資料的最後列)這裡可以改成妳的資料中最齊的一欄
         sh.[aa5].Resize(n, 12) = sh.[aa5].Resize(n, 12).Value  '把公式結果變成值
         sh.AutoFilterMode = False    '取消自動篩選
         sh.[a4:ad4].AutoFilter '建立自動篩
Next '下一個工作表
Application.Calculation = xlCalculationManual
ActiveWorkbook.Save

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

43^#

發表於 2012-5-10 16:21 | 只看該作者

回復 43# Hsieh
版大,
按您說的是否改成以下這樣,結果還是相同,我用碼表計時,每RUN一個工作表約17~20秒,這是指第一段程式,第二段程式則是舜間就完成了,或者可否請有興趣的人都幫忙看一下,這二段段程式有沒有什麼差別?還可以怎麼改?
真對不起啦!我看到這個速度簡直...

Sub Try_2()
Workbooks("2012 BCMart Chart.xlsx").Activate
Application.Calculation = xlCalculationManual
For s = 5 To 10 '從第某個工作表執行至第某個
Sheets(s).Activate
Set sh = ActiveSheet
n = sh.[al10000].End(3).Row '(AL欄有資料的最後列)這裡可以改成妳的資料中最齊的一欄
sh.[aa:al] = sh.[aa:al].Value '把公式結果變成值
sh.AutoFilterMode = False '取消自動篩選
sh.[a4:ad4].AutoFilter '建立自動篩
Next '下一個工作表
Application.Calculation = xlCalculationManual
ActiveWorkbook.Save
Workbooks("2012 BCMart Chart.xlsx").Activate
For s = 5 To 10 '從第某個工作表執行至第某個
Sheets(s).Activate
Set sh = ActiveSheet
n = sh.[AC1000].End(3).Row 'ac欄最後儲存格列號
sh.Sort.SortFields.Clear '清除重建排序條件
Ar = Array("ac", "u", "r", "s", "t", "q", "c", "d")
For i = 0 To UBound(Ar)
sh.Sort.SortFields.Add Key:=sh.Range(Ar(i) & "5:" & Ar(i) & n)
Next
With sh.Sort '對指定範圍以指定條件排序
.SetRange sh.Range("A5:AD" & n)
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Next '下一個工作表
ActiveWorkbook.SaveAs "P:\BCMart Chart\2012 BCMart Chart-sorted.xlsx"
End Sub

複製代碼

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 91
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-4-20

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

42^#

發表於 2012-5-10 16:11 | 只看該作者

回復 42# PJChen
造成龜速有可能是公式重算結果
在城市開始先關閉自動重算
Application.Calculation = xlCalculationManual
到程序退出前再開啟自動重算
Application.Calculation = xlCalculationAutomatic

學海無涯_不恥下問

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

41^#

發表於 2012-5-10 15:54 | 只看該作者

回復 41# oobird
Dear,
可是真的都跑得很慢,是原來的好幾倍時間呢!我也很不了解為什麼改為AA:AL會變成這樣?明明需要變成值的範圍變小了呀!

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

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

論壇貢獻勳章

40^#

發表於 2012-5-10 14:36 | 只看該作者

AA:AL在2010中是數千萬個儲存格，所以會拉格
我沒考慮妳是用2010，所以輕率的給妳這個語法。
妳用後來的 n = sh.[d10000].End(3).Row
sh.[aa5].Resize(n, 3) = sh.[aa5].Resize(n, 3).Value
就不會拉格啦！

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

39^#

發表於 2012-5-10 14:15 | 只看該作者

回復 39# oobird

大師,
我改好並重新RUN一次了,跟其他的語法一樣,如果只是將AA:AL變成值的都跑得非常慢速,請問這樣是不是無解了?

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

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

論壇貢獻勳章

38^#

發表於 2012-5-10 11:18 | 只看該作者

本帖最後由 oobird 於 2012-5-10 11:22 編輯

妳沒有改到呀？我再整理一下：
Workbooks("2012 BCMart Chart.xlsx").Activate
For s = 5 To 10 '從第某個工作表執行至第某個
Sheets(s).Activate
Set sh = ActiveSheet
n = sh.[d10000].End(3).Row '(D欄有資料的最後列)這裡可以改成妳的資料中最齊的一欄
         sh.[aa5].Resize(n, 3) = sh.[aa5].Resize(n, 3).Value '把aa:ac變成值
         sh.AutoFilterMode = False    '取消自動篩選
         sh.[a4:ad4].AutoFilter '建立自動篩
Next '下一個工作表

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

37^#

發表於 2012-5-10 09:12 | 只看該作者

回復 37# oobird
大師:

1) n = sh.UsedRange.Rows.Count '(使用中的總列數)不會取過大的範圍....sheet..還是"龜速",而且,我需要的是AA:AL,這個語法只要將AA:AC變成值,因為AD:AE是空白列
2) n=sh.[d10000].end(3).row (D欄有資料的最後列)....這個語無法執行

Workbooks("2012 BCMart Chart.xlsx").Activate
For s = 5 To 10 '從第某個工作表執行至第某個
Sheets(s).Activate
Set sh = ActiveSheet
n = sh.[d10000].End(3).Row '(D欄有資料的最後列)
'Sh.UsedRange = Sh.UsedRange.Value '把有資料的儲存格,公式結果變成值
sh.[aa:al] = sh.[aa:al].Value '把公式結果變成值
sh.AutoFilterMode = False '取消自動篩選
sh.[a4:ad4].AutoFilter '建立自動篩
Next '下一個工作表
ActiveWorkbook.Save

複製代碼

TOP