PJChen

回復 10# GBKEE

你的建議很不錯,謝謝.

PJChen

回復 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)代表什麼?

oobird

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

PJChen

回復 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

複製代碼

GBKEE

回復 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

複製代碼

oobird

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    '執行程式
   
6. 
   
7.             sh.UsedRange = sh.UsedRange.Value    '把公式結果變成值
   
8.             sh.AutoFilterMode = False     '取消自動篩選
   
9.             sh.[a4:ad4].AutoFilter    '建立自動篩
   
10. 
    
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,是錯誤的表達。

PJChen

回復 16# GBKEE
G大,

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

GBKEE

回復 18# PJChen

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

複製代碼

PJChen

回復 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    '建立自動篩
   
7. 
   
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

複製代碼

PJChen

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

1. Sub Try()
   
2. 
   
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    '當月份工作表
   
7. 
   
8.         sh.UsedRange = sh.UsedRange.Value    '把公式結果變成值
   
9.         sh.AutoFilterMode = False     '取消自動篩選
   
10.         sh.[a4:ad4].AutoFilter    '建立自動篩
    
11. 
    
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

複製代碼