返回列表 上一主題 發帖

[發問] 請問對不同欄位的自動篩選做同樣動作程式碼修改

freeffly

帖子
586 
主題
123 
精華
0 
積分
763 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-16 
最後登錄
2017-3-14 

熱烈參與勳章好學求知勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-9-3 17:14 | 顯示全部帖子

[發問] 請問對不同欄位的自動篩選做同樣動作程式碼修改

請問如果我要對7, 8, 15, 16這些欄位做同樣動作
下面的程式碼是我寫的可是運作不起來
他不會依序跑那些欄位
我的程式碼有問題嗎?
還是要改哪邊?
  1. Sub Macro2()
  2.     n = Array(7, 8, 15, 16)
  3.     For i = 1 To UBound(n)
  4.      Selection.AutoFilter Field:="i", Criteria1:=":"
  5.     ActiveSheet.AutoFilter.Range.Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.ClearContents
  6.     Selection.AutoFilter Field:="i"
  7.     Next
  8.    
  9. End Sub
複製代碼
收藏 分享
字典兩各字 還真難理解

freeffly

帖子
586 
主題
123 
精華
0 
積分
763 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-16 
最後登錄
2017-3-14 

熱烈參與勳章好學求知勳章
2#
發表於 2012-9-4 08:41 | 顯示全部帖子
回復 2# kimbal


    謝謝版主
   原來差在這幾各地方
字典兩各字 還真難理解

TOP

        靜思自在 : 人生最大的成就是從失敗中站起來。
返回列表 上一主題