返回列表 上一主題 發帖

[發問] 請問不同sheet的處理-巨集要如何簡化?(已解決)

棋語鳥鳴

帖子
178 
主題
53 
精華
0 
積分
242 
點名
0  
作業系統
xp 
軟體版本
2007 
閱讀權限
20 
註冊時間
2011-2-22 
最後登錄
2023-12-5 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-8-22 21:27 | 只看該作者

[發問] 請問不同sheet的處理-巨集要如何簡化?(已解決)

本帖最後由 棋語鳥鳴 於 2011-8-23 06:27 編輯

請問下列巨集如何簡化!分別有30個Sheets(test1~test30)做同樣的動作，下列為前2個Sheets(test1~test2)的巨集，其實裡面差別只在於sheet名稱不同而已!請問如有30個Sheets或者更多要如何簡化其巨集???
ps.以上sheet名稱都相同只有後面編號不同而已!
  1. Sheets("test1").Select
  2.     Range("A2:E2").Select
  3.     Selection.AutoFilter
  4.     Range("A2").Select
  5.     ActiveWorkbook.Worksheets("test1").AutoFilter.Sort.SortFields.Clear
  6.     ActiveWorkbook.Worksheets("test1").AutoFilter.Sort.SortFields.Add Key:= _
  7.         Range("A2"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
  8.         xlSortNormal
  9.     With ActiveWorkbook.Worksheets("test1").AutoFilter.Sort
  10.         .Header = xlYes
  11.         .MatchCase = False
  12.         .Orientation = xlTopToBottom
  13.         .SortMethod = xlPinYin
  14.         .Apply
  15.     End With
  16.     Range("E2").Select
  17.     ActiveWorkbook.Worksheets("test1").AutoFilter.Sort.SortFields.Clear
  18.     ActiveWorkbook.Worksheets("test1").AutoFilter.Sort.SortFields.Add(Range("E2") _
  19.         , xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(255, _
  20.         199, 206)
  21.     With ActiveWorkbook.Worksheets("test1").AutoFilter.Sort
  22.         .Header = xlYes
  23.         .MatchCase = False
  24.         .Orientation = xlTopToBottom
  25.         .SortMethod = xlPinYin
  26.         .Apply
  27.     End With
  28.     Selection.AutoFilter
  29.     Range("A1").Select
  30.     Sheets("test2").Select
  31.     Range("A2:E2").Select
  32.     Selection.AutoFilter
  33.     Range("A2").Select
  34.     ActiveWorkbook.Worksheets("test2").AutoFilter.Sort.SortFields.Clear
  35.     ActiveWorkbook.Worksheets("test2").AutoFilter.Sort.SortFields.Add Key:= _
  36.         Range("A2"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
  37.         xlSortNormal
  38.     With ActiveWorkbook.Worksheets("test2").AutoFilter.Sort
  39.         .Header = xlYes
  40.         .MatchCase = False
  41.         .Orientation = xlTopToBottom
  42.         .SortMethod = xlPinYin
  43.         .Apply
  44.     End With
  45.     Range("E2").Select
  46.     ActiveWorkbook.Worksheets("test2").AutoFilter.Sort.SortFields.Clear
  47.     ActiveWorkbook.Worksheets("test2").AutoFilter.Sort.SortFields.Add(Range("E2") _
  48.         , xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(255, _
  49.         199, 206)
  50.     With ActiveWorkbook.Worksheets("test2").AutoFilter.Sort
  51.         .Header = xlYes
  52.         .MatchCase = False
  53.         .Orientation = xlTopToBottom
  54.         .SortMethod = xlPinYin
  55.         .Apply
  56.     End With
複製代碼
收藏 分享

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

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

論壇貢獻勳章
2#
發表於 2011-8-22 22:31 | 只看該作者
for i = 1 to 30'最前面加上這個循環指令
Sheets("test" & i).Select
所有
("test1")都改為("test" & i)
最後加一個next

TOP

棋語鳥鳴

帖子
178 
主題
53 
精華
0 
積分
242 
點名
0  
作業系統
xp 
軟體版本
2007 
閱讀權限
20 
註冊時間
2011-2-22 
最後登錄
2023-12-5 
3#
發表於 2011-8-23 06:26 | 只看該作者
回復 2# oobird
原來我之前用到Sheets(""test" & i").Select<==多用了" "難怪一直錯誤!，謝謝您的指導~讓我知道我的錯誤在哪了!
循環指令~真是個好用的東西~~

TOP

        靜思自在 : 【做人的開始】每一天都是故人的開始，每一個時刻都是自己的警惕。
返回列表 上一主題