麻辣家族討論版版 - Powered by Discuz! Board

標題: [發問] Excel是否可以自動篩選？ [打印本頁]

作者: 馨。 時間: 2018-10-27 20:45 標題: Excel是否可以自動篩選？

[attach]29597[/attach]

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

作者: faye59 時間: 2018-10-27 23:35

回復 1# 馨。

好像沒辦法吧!
可能要請教函數大神了。
用Worksheet_Change是可以做到，
不過要寫VBA巨集。

作者: hcm19522 時間: 2018-10-28 11:08

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),"發函至各單位","查看地下停車場保護板","了解施工戶別","整理圖書"),"")

作者: 馨。 時間: 2018-10-28 14:12

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

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

作者: ikboy 時間: 2018-10-29 11:06

不知是否如附件:

作者: 准提部林 時間: 2018-10-31 10:58

工作表觸發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

[attach]29608[/attach]

作者: Qin 時間: 2019-4-7 11:50

回復 6# 准提部林

請問准大
在待辦事項清單中, 如有緊急任務要優先處理,
可否在打開文檔時, 有訊息窗口彈出通知

舉例:
緊急!!
CC, <----執行者名字請顯示"藍色"
發函至各單位
AA,
查看地下停車場保護板

[attach]30353[/attach]

作者: 准提部林 時間: 2019-4-7 12:09

回復 7# Qin

用"格式化條件"吧~~~
=($C2="CC")*($D2="緊急")*($E2<>"Done")
=($C2="AA")*($D2="緊急")*($E2<>"Done")

[attach]30354[/attach]

作者: Qin 時間: 2019-4-7 12:33

回復 8# 准提部林

好的, 謝謝准大

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