12345
返回列表 上一主題 發帖

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

PJChen
　暱稱: PJ

大學生Rank: 4

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

論壇榮譽勳章論壇贊助勳章
11# 跳轉到 »
發表於 2012-5-4 23:41 | 只看該作者
回復 10# GBKEE

你的建議很不錯,謝謝.

TOP

PJChen
　暱稱: PJ

大學生Rank: 4

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

論壇榮譽勳章論壇贊助勳章
12#
發表於 2012-5-4 23:52 | 只看該作者
回復 9# oobird
超級版主您好,

我的巨集程式與須執行巨集的工作表分開,所以我在For 的前一行加了   Workbooks("2012 samples Chart.xlsx").Activate這樣執行就ok了,
以下問題想請教您:
1) 我每年的工作表是依月份為sheet名稱,現在是5月,若我想讓1~4月不要執行前面的巨集程式,是否可以將程式稍加修改為:
指定Sheet "May"之後的工作表再執行前述的巨集?我應該怎麼改?可否寫出完整的程式?(這個寫法請用指定的sheet名稱,不能用程式去判別現在的月份,因為我們的工作表要等結帳完畢,才不會用到上述的巨集)
2)         n = sh.[AC1000].End(3).Row 'ac欄最後儲存格列號...End後面的(3)代表什麼?

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

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

論壇貢獻勳章
13#
發表於 2012-5-6 10:37 | 只看該作者
End後面的(3)~xlup,該欄有資料的最後一列
若妳的工作表按順序排列，可以指定從第幾個工作表開始。
如：For i = 5 To 12
Sheets(i).Activate
執行妳的工作
Next
或者以表名的文字判斷，例如：
For Each sh In Sheets
If InStr("MayJunJulAugSepOctNovDec", sh.Name) Then
sh.Activate
執行程式
End If
Next

TOP

PJChen
　暱稱: PJ

大學生Rank: 4

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

論壇榮譽勳章論壇贊助勳章
14#
發表於 2012-5-6 14:59 | 只看該作者
回復 13# oobird
oobird:
程式執行至    If InStr("MayJunJulAugSepOctNovDec", sh.May) Then '從"May"開始作業一直到最後一個工作表
出現問題就執行不下去了,所以沒有執行完,請幫忙看看有什麼問題?
  1.    Workbooks("2012 samples Chart.xlsx").Activate
  2.     For Each sh In Sheets '在所有工作表中循環
  3.     If InStr("MayJunJulAugSepOctNovDec", sh.May) Then '從"May"開始作業一直到最後一個工作表
  4.     sh.Activate    '執行程式
  5.     End If
  6.     'Next
  7.    
  8.         sh.UsedRange = sh.UsedRange.Value '把公式結果變成值
  9.         'sh.[a4:ad4].AutoFilter '取消自動篩選
  10.         'sh.[a4:ad4].AutoFilter '建立自動篩
  11.         sh.AutoFilterMode = False '取消自動篩選
  12.         sh.[a4:ad4].AutoFilter '建立自動篩
  13.         
  14.         n = sh.[AC1000].End(3).Row 'ac欄最後儲存格列號
  15.         sh.Sort.SortFields.Clear '清除重建排序條件
  16.         ar = Array("ac", "u", "q", "c", "d")
  17.         For i = 0 To UBound(ar)
  18.             sh.Sort.SortFields.Add Key:=sh.Range(ar(i) & "5:" & ar(i) & n)
  19.         Next
  20.         With sh.Sort '對指定範圍以指定條件排序
  21.             .SetRange sh.Range("A5:AD" & n)
  22.             .Header = xlNo
  23.             .MatchCase = False
  24.             .Orientation = xlTopToBottom
  25.             .SortMethod = xlPinYin
  26.             .Apply
  27.         End With
  28.     Next '下一個工作表
  29.     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兔年全勤獎章
15#
發表於 2012-5-6 15:23 | 只看該作者
本帖最後由 GBKEE 於 2012-5-6 17:36 編輯

回復 15# PJChen
If InStr("MayJunJulAugSepOctNovDec", sh.May) Then  sh 沒這 屬性
  1. Workbooks("2012 samples Chart.xlsx").Activate
  2.     For xi = Month(Date) To Sheets.Count                              'Month(Date) 當月份
  3.         Sheets(Format(DateSerial(2001, xi, 1), "Mmm")).Activate    '當月份工作表
  4.     Next
複製代碼

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

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

論壇貢獻勳章
16#
發表於 2012-5-6 15:27 | 只看該作者
  1. Sub test()
  2.     Workbooks("2012 samples Chart.xlsx").Activate
  3.     For Each sh In Sheets    '在所有工作表中循環
  4.         If InStr("MayJunJulAugSepOctNovDec", sh.Name) Then    '從"May"開始作業一直到最後一個工作表
  5.             sh.Activate    '執行程式

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

  11.             n = sh.[AC1000].End(3).Row    'ac欄最後儲存格列號
  12.             sh.Sort.SortFields.Clear    '清除重建排序條件
  13.             ar = Array("ac", "u", "q", "c", "d")
  14.             For i = 0 To UBound(ar)
  15.                 sh.Sort.SortFields.Add Key:=sh.Range(ar(i) & "5:" & ar(i) & n)
  16.             Next
  17.             With sh.Sort    '對指定範圍以指定條件排序
  18.                 .SetRange sh.Range("A5:AD" & n)
  19.                 .Header = xlNo
  20.                 .MatchCase = False
  21.                 .Orientation = xlTopToBottom
  22.                 .SortMethod = xlPinYin
  23.                 .Apply
  24.             End With
  25.         End If
  26.     Next    '下一個工作表
  27. End Sub
複製代碼
注意這一行：
  If InStr("MayJunJulAugSepOctNovDec", sh.Name) Then
sh.Name是工作表名，如工作表May表名就是May
在"MayJunJulAugSepOctNovDec"這個字串中有包含May的話就執行
其他表也一樣類推
sh.May,是錯誤的表達。

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

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 

論壇榮譽勳章論壇贊助勳章
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

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

        靜思自在 : 忘功不忘過，忘怨不忘恩。
12345
返回列表 上一主題