12
返回列表 上一主題 發帖

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

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

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

論壇貢獻勳章
1# 跳轉到 »
發表於 2012-5-1 08:29 | 顯示全部帖子
  1. Sub yy()
  2.     For Each sh In Sheets '在所有工作表中循環
  3.         sh.UsedRange = sh.UsedRange.Value '把公式結果變成值
  4.         sh.[a4:ad4].AutoFilter '取消自動篩選
  5.         sh.[a4:ad4].AutoFilter '建立自動篩
  6.         
  7.         n = sh.[AC1000].End(3).Row 'ac欄最後儲存格列號
  8.         sh.Sort.SortFields.Clear '清除重建排序條件
  9.         sh.Sort.SortFields.Add Key:=sh.Range("AC5:AC" & n)
  10.         sh.Sort.SortFields.Add Key:=sh.Range("u5:u" & n)
  11.         sh.Sort.SortFields.Add Key:=sh.Range("q5:q" & n)
  12.         sh.Sort.SortFields.Add Key:=sh.Range("c5:c" & n)
  13.         sh.Sort.SortFields.Add Key:=sh.Range("d5:d" & n)

  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

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

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

論壇貢獻勳章
2#
發表於 2012-5-3 23:48 | 顯示全部帖子
用陣列方式的寫法?~是指排序嗎？
排序還是用工作表自有的排序方式效率高得多
用陣列或遞迴排序代碼都會寫得很長很複雜，而且慢。
倒是這裡排序的條件可以用循環來減少代碼量，若熟悉循環及相關變數就不用一行行的寫了。

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

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

論壇貢獻勳章
3#
發表於 2012-5-4 09:00 | 顯示全部帖子
此例中間段
  1. sh.Sort.SortFields.Add Key:=sh.Range("AC5:AC" & n)
  2.         sh.Sort.SortFields.Add Key:=sh.Range("u5:u" & n)
  3.         sh.Sort.SortFields.Add Key:=sh.Range("q5:q" & n)
  4.         sh.Sort.SortFields.Add Key:=sh.Range("c5:c" & n)
  5.         sh.Sort.SortFields.Add Key:=sh.Range("d5:d" & n)
複製代碼
可以把欄名放在陣列中循環
  1. ar = Array("ac", "u", "q", "c", "d")
  2.         For i = 0 To UBound(ar)
  3.             sh.Sort.SortFields.Add Key:=sh.Range(ar(i) & "5:" & ar(i) & n)
  4.         Next
複製代碼
是這個意思嗎？

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

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

論壇貢獻勳章
4#
發表於 2012-5-4 14:19 | 顯示全部帖子
二樓的前兩行不就是這個要求？
For Each sh In Sheets '在所有工作表中循環
        sh.UsedRange = sh.UsedRange.Value '把公式結果變成值
不必一定要copy再以值貼上才能把公式變成值的。
在所有表中循環不須建立陣列，建立了也是多一道程序，又何必多此一舉？

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

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

論壇貢獻勳章
5#
發表於 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

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

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

論壇貢獻勳章
6#
發表於 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

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

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

論壇貢獻勳章
7#
發表於 2012-5-6 21:43 | 顯示全部帖子
第5行開始sh.UsedRange = sh.UsedRange.Value
這個叫sh的變數前面並沒有定義，突然冒出來程式就會中斷了。
可以這樣：
Workbooks("2012 samples Chart.xlsx").Activate
        For i = 2 To 7  '從2nd的工作表執行至7st
         Sheets(i).Activate '執行工作
set sh =activesheet
            sh.UsedRange = sh.UsedRange.Value  
以下不變

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

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

論壇貢獻勳章
8#
發表於 2012-5-6 22:00 | 顯示全部帖子
啊，剛剛沒注意，這裡兩個 i 在循環中重疊了
改掉其中一個：
For s = 2 To 7 '從2nd的工作表執行至7st
   Sheets(s).Activate

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

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

論壇貢獻勳章
9#
發表於 2012-5-9 13:41 | 顯示全部帖子
Sh.UsedRange = Sh.UsedRange.Value
改為
Sh.[aa:al] = Sh.[aa:al].Value

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

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

論壇貢獻勳章
10#
發表於 2012-5-9 14:53 | 顯示全部帖子
  1. Workbooks("2012 samples Chart.xlsx").Activate
  2.    For s = 2 To 7 '從2nd的工作表執行至7st
  3.    Sheets(s).Activate
  4.    Set sh = ActiveSheet
  5.    n = sh.UsedRange.Rows.Count
  6.             sh.[aa5].Resize(n, 12) = sh.[aa5].Resize(n, 12).Value    '把公式結果變成值
  7.             sh.AutoFilterMode = False     '取消自動篩選
  8.             sh.[a4:ad4].AutoFilter    '建立自動篩
複製代碼
那改這樣吧，我沒用2010很難想像一百多萬列跑起來是什麼速度。

TOP

        靜思自在 : 欣賞別人就是莊嚴自己。
12
返回列表 上一主題