返回列表 上一主題 發帖

[發問] 請問如何將巨集!改成可以在隱常工作表中做塞選??

棋語鳥鳴

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

[發問] 請問如何將巨集!改成可以在隱常工作表中做塞選??

本帖最後由 棋語鳥鳴 於 2011-6-2 21:42 編輯
  1. Sub Macro1()
  2. '
  3. ' Macro1 Macro
  4. '

  6. '
  7. Sheets("Sheet1").Select
  8. Range("B2:Q50").Select
  9.     Selection.AutoFilter
  10.     Range("Q2").Select
  11.     ActiveSheet.Range("$B$2:$Q$50").AutoFilter Field:=16, Criteria1:=RGB(112, _
  12.         48, 160), Operator:=xlFilterCellColor
  13.     Range("C3:F32").Select
  14.     Selection.Copy
  15.     Sheets("Sheet4").Select
  16.     Range("A10").Select
  17.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  18.         :=False, Transpose:=False
  19.     Sheets("Sheet1").Select
  20.     Application.CutCopyMode = False
  21.     Selection.AutoFilter
  22.     Range("B2").Select
  23.     Sheets("Sheet4").Select
  24.     Range("A9").Select
  25. End Sub
複製代碼
此巨集為Sheet1在沒有隱常工作表時錄製的，但是隱藏工作表後卻不能使用!請問要如何修改成可以在Sheet1隱藏時使用?? TEST.rar (15.39 KB)
收藏 分享

        靜思自在 : 滴水成河。粒米成蘿，勿輕己靈，勿以善小而不為。
返回列表 上一主題