返回列表 上一主題 發帖

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

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
複製代碼
收藏 分享
字典兩各字 還真難理解

kimbal

帖子
472 
主題
5 
精華
0 
積分
485 
點名
0  
作業系統
Windows 
軟體版本
MS Office 
閱讀權限
100 
性別
男 
來自
香港 
註冊時間
2010-7-4 
最後登錄
2014-12-28 

論壇貢獻勳章
2#
發表於 2012-9-3 22:21 | 只看該作者
  1. Sub Macro2()
  2.     n = Array(7, 8, 15, 16)
  3.     For i = 0 To UBound(n)
  4.         Selection.AutoFilter Field:=n(i), Criteria1:=":"
  5.         ActiveSheet.AutoFilter.Range.Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete shift:=xlUp
  6.         Selection.AutoFilter Field:=n(i)
  7.     Next
  8. End Sub
複製代碼
懂得發問,答案就會在其中

今日の一秒は  明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

freeffly

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

熱烈參與勳章好學求知勳章
3#
發表於 2012-9-4 08:41 | 只看該作者
回復 2# kimbal


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

TOP

        靜思自在 : 虛空有盡．我願無窮，發願容易行願難。
返回列表 上一主題