不同的sheet相同的動作,如何讓它一次性完成? - Excel程式區

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

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

1^# 跳轉到 »

發表於 2012-5-4 14:48 | 顯示全部帖子

回復 2# oobird

SH.[a4:ad4].AutoFilter '取消自動篩選
SH.[a4:ad4].AutoFilter '建立自動篩

複製代碼

這是後輩我的見解 ,如有錯誤請見諒.
程式開始執行初時 [a4:ad4] 是在自動篩選的狀態下,第一次的AutoFilter 才會是取消自動篩選
但如 [a4:ad4] 不是在自動篩選的狀態下,第二次的AutoFilter 會是取消自動篩選

SH.AutoFilterMode = False '取消自動篩選
SH.[a4:ad4].AutoFilter '建立自動篩

複製代碼

程式執行時不管[a4:ad4] 是否在自動篩選的狀態下, AutoFilterMode = False 都會取消自動篩選

1 評分人數

oobird: 細心+熱心！可敬的精神金錢 + 2

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

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

2^#

發表於 2012-5-6 15:23 | 顯示全部帖子

本帖最後由 GBKEE 於 2012-5-6 17:36 編輯

回復 15# PJChen
If InStr("MayJunJulAugSepOctNovDec", sh.May) Then sh 沒這屬性

Workbooks("2012 samples Chart.xlsx").Activate
For xi = Month(Date) To Sheets.Count 'Month(Date) 當月份
Sheets(Format(DateSerial(2001, xi, 1), "Mmm")).Activate '當月份工作表
Next

複製代碼

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

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

3^#

發表於 2012-5-6 16:12 | 顯示全部帖子

回復 18# PJChen

For xi = Month(Date) To 12 'Month(Date) 當月份到 12月份

複製代碼

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

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

4^#

發表於 2012-5-6 17:03 | 顯示全部帖子

本帖最後由 GBKEE 於 2012-5-6 17:35 編輯

回復 21# PJChen

Sub Try()
Dim sh As Worksheet, xi As Integer
Workbooks("2012 samples Chart.xlsx").Activate
''' For Each sh In Sheets '在所有工作表中循環
For xi = Month(Date) To 12 'Month(Date) 當月份到 12月份
Set sh = Sheets(Format(DateSerial(2001, xi, 1), "Mmm"))
sh.Activate '當月份工作
sh.UsedRange = sh.UsedRange.Value '把公式結果變成值
sh.AutoFilterMode = False '取消自動篩選
sh.[a4:ad4].AutoFilter '建立自動篩

複製代碼

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

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

5^#

發表於 2012-5-6 17:35 | 顯示全部帖子

回復 23# PJChen
對不起:有點糊塗請修改一下
Set sh = Sheets(Format(DateSerial(2001, Month(xi), 1), "Mmm")) 錯誤
Set sh = Sheets(Format(DateSerial(2001, xi, 1), "Mmm")) 正確