返回列表 上一主題 發帖

[發問] 請教 AutoFilter-ApplyFilter,vba 要如何自動更新篩選問題

cmo140497

帖子
95 
主題
29 
精華
0 
積分
150 
點名
0  
作業系統
windows2003 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
來自
Kaoshiung 
註冊時間
2010-11-5 
最後登錄
2018-2-8 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-1-29 09:51 | 只看該作者

[發問] 請教 AutoFilter-ApplyFilter,vba 要如何自動更新篩選問題

Dear 大大及版主們大家好 :
    小弟有一問題,關於使用資料篩選自動更新要如何使用vba 作清單改變後,其AutoFilter.ApplyFilter (Criteria <>0) 會自動更新,而不再手動去按,再麻煩各位幫小弟解決這個疑惑,感恩!




AutoFilter-ApplyFilter問題.zip (13.09 KB)
收藏 分享

cmo140497

帖子
95 
主題
29 
精華
0 
積分
150 
點名
0  
作業系統
windows2003 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
來自
Kaoshiung 
註冊時間
2010-11-5 
最後登錄
2018-2-8 
2#
發表於 2013-1-29 11:36 | 只看該作者
小弟找到答案了,感恩!
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.     If Target.Address = "$C$1" Then  'Drop down lost location
  3.         Range("n4").CurrentRegion.AutoFilter Field:=4, Criteria1:="<>0"  'sorting table location
  4.     End If
  5. End Sub
複製代碼

TOP

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