返回列表 上一主題 發帖

[發問] 篩選的語法

jcchiang

帖子
234 
主題
19 
精華
0 
積分
276 
點名
0  
作業系統
Windows XP 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2013-1-7 
最後登錄
2021-10-7 
1# 跳轉到 »
發表於 2019-11-29 10:15 | 顯示全部帖子
回復 1# PJChen
可以用要篩選的欄位名稱找出位置,來取代固定的位置
Sub ex()
For Each a In Range("a1:M1")
    If a = "欄位名稱" Then Exit For
Next
  Selection.AutoFilter Field:=a.Column, Criteria1:=2
End Sub

TOP

jcchiang

帖子
234 
主題
19 
精華
0 
積分
276 
點名
0  
作業系統
Windows XP 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2013-1-7 
最後登錄
2021-10-7 
2#
發表於 2019-12-2 12:38 | 顯示全部帖子
回復 4# PJChen
要篩選的欄位名稱重複,如可知道是用第幾個做篩選可加個計數

Sub ex()
x=0
For Each a In Range("a1:M1")
     If a = "欄位名稱" Then x=x+1
       If x = 第幾個名稱 Then Exit For
Next
   Selection.AutoFilter Field:=a.Column, Criteria1:=2
End Sub

TOP

        靜思自在 : 手心向下是助人，手心向上是求人；助人快樂，求人痛苦。
返回列表 上一主題