返回列表 上一主題 發帖

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

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

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




AutoFilter-ApplyFilter問題.zip (13.09 KB)

小弟找到答案了,感恩!
  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

        靜思自在 : 能善用時間的人,必能掌握自己努力的方向。
返回列表 上一主題