返回列表 上一主題 發帖

[發問] Excel是否可以自動篩選?

[發問] Excel是否可以自動篩選?

待辦事項.xlsx.zip (7.05 KB)

想詢問大各高手
待辦事項清單若備註打上完成,那行會自動消失,直到自己篩選時下拉"完成"才顯示出來
想詢問各位高手,是否有方法可以設定呢?
謝謝~

回復 1# 馨。


好像沒辦法吧!
可能要請教函數大神了。
用Worksheet_Change是可以做到,
不過要寫VBA巨集。
一分努力,一分收穫。
發問題前可以先搜索內文是否有相關範例。

TOP

B2:B5=IF((SUMPRODUCT(N(C$2:C$5="完成"))=4)+(C2=""),E2,"")

B9:B12=IF((SUMPRODUCT(N(C$9:C$12="完成"))=4)+(C9=""),CHOOSE(ROW(A1),"發函至各單位","查看地下停車場保護板","了解施工戶別","整理圖書"),"")
5164.png
隨意窩 "EXCEL迷"  blog  或 http://blog.xuite.net/hcm19522/twblog
已收集5000篇 EXCEL函數

TOP

B2:B5=IF((SUMPRODUCT(N(C$2:C$5="完成"))=4)+(C2=""),E2,"")

B9:B12=IF((SUMPRODUCT(N(C$9:C$12="完成" ...
hcm19522 發表於 2018-10-28 11:08



    大大您好~謝謝您願意幫我解決這個問題

TOP

不知是否如附件:

待辦事項.zip (8.54 KB)

TOP

工作表觸發VBA:
Dim Ur As Range

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$C$1" Then
   Cancel = True
   Call FilterAreaChk
   If Ur.SpecialCells(xlCellTypeVisible).Count = Ur.Count Then
      Ur.AutoFilter Field:=3, Criteria1:="<>完成"
   Else
      Ur.AutoFilter Field:=3
   End If
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
With Target.Item(1)
     If .Column <> 3 Or .Row = 1 Or .Value <> "完成" Then Exit Sub
     Call FilterAreaChk
     Ur.AutoFilter Field:=3, Criteria1:="<>完成"
End With
End Sub

Sub FilterAreaChk()
If Me.AutoFilterMode = False Then
   Range([A1:C1], Me.UsedRange).AutoFilter
End If
Set Ur = Me.AutoFilter.Range
End Sub

Xl0000227(自動篩選隱藏).rar (13.26 KB)
EXCEL參考資料:
http://blog.xuite.net/smile1000mile/blog

TOP

        靜思自在 : 並非有錢魷是快樂,問心無愧心最安。
返回列表 上一主題