12345
返回列表 上一主題 發帖

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

PJChen
　暱稱: PJ

大學生Rank: 4

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

論壇榮譽勳章論壇贊助勳章
26# 跳轉到 »
發表於 2012-5-6 20:18 | 只看該作者
回復 17# oobird
Hi oobird,
我又再次試了以下的語法,仍然無法執行,可否請你指導?
  1. Sub Try()
  2.    Workbooks("2012 samples Chart.xlsx").Activate
  3.         For i = 2 To 7  '從2nd的工作表執行至7st
  4.          Sheets(i).Activate '執行工作
  5.             sh.UsedRange = sh.UsedRange.Value    '把公式結果變成值
  6.             sh.AutoFilterMode = False     '取消自動篩選
  7.             sh.[a4:ad4].AutoFilter    '建立自動篩

  9.             n = sh.[AC1000].End(3).Row    'ac欄最後儲存格列號
  10.             sh.Sort.SortFields.Clear    '清除重建排序條件
  11.             ar = Array("ac", "u", "q", "c", "d")
  12.             For i = 0 To UBound(ar)
  13.                 sh.Sort.SortFields.Add Key:=sh.Range(ar(i) & "5:" & ar(i) & n)
  14.             Next
  15.             With sh.Sort    '對指定範圍以指定條件排序
  16.                 .SetRange sh.Range("A5:AD" & n)
  17.                 .Header = xlNo
  18.                 .MatchCase = False
  19.                 .Orientation = xlTopToBottom
  20.                 .SortMethod = xlPinYin
  21.                 .Apply
  22.             End With
  23.     Next    '下一個工作表
  24. End Sub
複製代碼

TOP

PJChen
　暱稱: PJ

大學生Rank: 4

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

論壇榮譽勳章論壇贊助勳章
25#
發表於 2012-5-6 18:51 | 只看該作者
回復 24# GBKEE
G大,
問題2: ,我將Excel開開關關好多次, 現在已經沒有問題,只是不了解為何當時會有這種情形?可以幫我解惑嗎?

TOP

PJChen
　暱稱: PJ

大學生Rank: 4

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

論壇榮譽勳章論壇贊助勳章
24#
發表於 2012-5-6 18:42 | 只看該作者
回復 24# GBKEE
G老大,
執行上有點小問題,不知是否能夠解決?
問題1 :現在的訂單只到10月份,我可以將它改為 For xi = Month(Date) To 10,但也有另一個問題,就是我前面一直在問的...指定Sheet Name開始的工作表再執行前述的巨集?原因是業務接單不見得一定按照月份,有可能其中一個月尚沒有訂單,比如現在接單至10月,有可能11月訂單未到,先接到12月份的,這樣執行上就會有問題!
問題2 :執行巨集過後現在打開Excel任一工作表(新的也相同)執行"copy"的動作時,不再像以前那樣會在儲存格有虛線閃動,而貼上之後也無法貼上公式,只貼上值,我從來未看過這種形,你是否知道原因為何?

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
23#
發表於 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"))  正確

TOP

PJChen
　暱稱: PJ

大學生Rank: 4

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

論壇榮譽勳章論壇贊助勳章
22#
發表於 2012-5-6 17:14 | 只看該作者
本帖最後由 GBKEE 於 2012-5-6 17:39 編輯

回復 22# GBKEE
G大,
還是無法執行!請再幫忙看下!
  1. Sub Try()
  2.     Dim sh As Worksheet, xi As Integer
  3.     Workbooks("2012 samples Chart.xlsx").Activate
  4.      For xi = Month(Date) To 12        'Month(Date) 當月份  到 12月份
  5.      Set sh = Sheets(Format(DateSerial(2001, xi, 1), "Mmm"))
  6.         sh.Activate    '當月份工作
  7.         sh.UsedRange = sh.UsedRange.Value    '把公式結果變成值
  8.         sh.AutoFilterMode = False     '取消自動篩選
  9.         sh.[a4:ad4].AutoFilter    '建立自動篩
  10.         n = sh.[AC1000].End(3).Row    'ac欄最後儲存格列號
  11.         sh.Sort.SortFields.Clear    '清除重建排序條件
  12.         ar = Array("ac", "u", "q", "c", "d")
  13.         For i = 0 To UBound(ar)
  14.         sh.Sort.SortFields.Add Key:=sh.Range(ar(i) & "5:" & ar(i) & n)
  15.     Next
  16.         With sh.Sort  '對指定範圍以指定條件排序
  17.             .SetRange sh.Range("A5:AD" & n)
  18.             .Header = xlNo
  19.             .MatchCase = False
  20.             .Orientation = xlTopToBottom
  21.             .SortMethod = xlPinYin
  22.             .Apply
  23.         End With
  24.     Next    '下一個工作表
  25. End Sub
複製代碼

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
21#
發表於 2012-5-6 17:03 | 只看該作者
本帖最後由 GBKEE 於 2012-5-6 17:35 編輯

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

TOP

PJChen
　暱稱: PJ

大學生Rank: 4

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

論壇榮譽勳章論壇贊助勳章
20#
發表於 2012-5-6 16:49 | 只看該作者
本帖最後由 GBKEE 於 2012-5-6 17:38 編輯

回復 19# GBKEE
G大,
請問你的意思是這樣嗎?可是無法執行,可以幫忙看一下嗎?
  1. Sub Try()

  3.     Workbooks("2012 samples Chart.xlsx").Activate
  4.     For Each sh In Sheets    '在所有工作表中循環
  5.     For xi = Month(Date) To 12        'Month(Date) 當月份  到 12月份
  6.     Sheets(Format(DateSerial(2001, xi, 1), "Mmm")).Activate    '當月份工作表

  8.         sh.UsedRange = sh.UsedRange.Value    '把公式結果變成值
  9.         sh.AutoFilterMode = False     '取消自動篩選
  10.         sh.[a4:ad4].AutoFilter    '建立自動篩

  12.         n = sh.[AC1000].End(3).Row    'ac欄最後儲存格列號
  13.         sh.Sort.SortFields.Clear    '清除重建排序條件
  14.         ar = Array("ac", "u", "q", "c", "d")
  15.         For i = 0 To UBound(ar)
  16.         sh.Sort.SortFields.Add Key:=sh.Range(ar(i) & "5:" & ar(i) & n)
  17.     Next
  18.         With sh.Sort  '對指定範圍以指定條件排序
  19.             .SetRange sh.Range("A5:AD" & n)
  20.             .Header = xlNo
  21.             .MatchCase = False
  22.             .Orientation = xlTopToBottom
  23.             .SortMethod = xlPinYin
  24.             .Apply
  25.         End With
  26.         End If
  27.     Next    '下一個工作表
  28. End Sub
複製代碼

TOP

PJChen
　暱稱: PJ

大學生Rank: 4

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

論壇榮譽勳章論壇贊助勳章
19#
發表於 2012-5-6 16:31 | 只看該作者
回復 17# oobird
Hi oobird,
執行ok.
請教語法問題:
1) 以下替換為你所寫的另一語法(如下表):
For i = 5 To 12 (我使用的sample因為1~3月份已刪除,所以我將之改為2~7)
Sheets(i).Activate '執行工作
Next
但無法執行,是否我把哪裡給改錯了?
2) 另一語法        If InStr("MayJunJulAugSepOctNovDec", sh.Name) Then
我看到上述2個語法都是要將每一毎工作表寫出來,我想知道有沒有"指定式"的?(例:從sheet(May)開始至最後一個工作表,而不用將May之後的每個工作表都列出?
  1.    Workbooks("2012 samples Chart.xlsx").Activate
  2.         For i = 2 To 7  '從2nd的工作表執行至7st
  3.          Sheets(i).Activate '執行工作
  4.             sh.UsedRange = sh.UsedRange.Value    '把公式結果變成值
  5.             sh.AutoFilterMode = False     '取消自動篩選
  6.             sh.[a4:ad4].AutoFilter    '建立自動篩

  8.             n = sh.[AC1000].End(3).Row    'ac欄最後儲存格列號
  9.             sh.Sort.SortFields.Clear    '清除重建排序條件
  10.             ar = Array("ac", "u", "q", "c", "d")
  11.             For i = 0 To UBound(ar)
  12.                 sh.Sort.SortFields.Add Key:=sh.Range(ar(i) & "5:" & ar(i) & n)
  13.             Next
  14.             With sh.Sort    '對指定範圍以指定條件排序
  15.                 .SetRange sh.Range("A5:AD" & n)
  16.                 .Header = xlNo
  17.                 .MatchCase = False
  18.                 .Orientation = xlTopToBottom
  19.                 .SortMethod = xlPinYin
  20.                 .Apply
  21.             End With
  22.         End If
  23.     Next    '下一個工作表
  24. End Sub
複製代碼

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
18#
發表於 2012-5-6 16:12 | 只看該作者
回復 18# PJChen
  1. For xi = Month(Date) To 12        'Month(Date) 當月份  到 12月份
複製代碼

TOP

PJChen
　暱稱: PJ

大學生Rank: 4

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

論壇榮譽勳章論壇贊助勳章
17#
發表於 2012-5-6 16:05 | 只看該作者
回復 16# GBKEE
G大,

我的工作表不能以程式去指定月份(例:    For xi = Month(Date) To Sheets.Count ),因為有結帳的問題,待結帳完才能不執行巨集,所以無法用這個語法.

TOP

        靜思自在 : 人事的艱難與琢磨，就是一種考驗。
12345
返回列表 上一主題