標題: [發問] 請教 AutoFilter-ApplyFilter,vba 要如何自動更新篩選問題 [打印本頁]

---

作者: cmo140497    時間: 2013-1-29 09:51     標題: 請教 AutoFilter-ApplyFilter,vba 要如何自動更新篩選問題

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

[attach]14099[/attach]


[attach]14100[/attach]

---

作者: cmo140497    時間: 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

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)