馨。

帖子: 55
主題: 25
精華: 0
積分: 90
點名: 0
作業系統: windows10
軟體版本: office2016
閱讀權限: 20
性別: 女
註冊時間: 2016-2-13
最後登錄: 2025-3-20

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2018-10-27 20:45 | 只看該作者

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

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

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

樓主熱帖

faye59

　暱稱: 温奇
　頭銜: 議論者

中學生 Rank: 2

帖子: 104
主題: 5
精華: 0
積分: 110
點名: 0
作業系統: win7
軟體版本: Office2007
閱讀權限: 20
性別: 男
註冊時間: 2017-11-14
最後登錄: 2019-4-30

論壇榮譽勳章論壇贊助勳章

2^#

發表於 2018-10-27 23:35 | 只看該作者

回復 1# 馨。

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

一分努力，一分收穫。
發問題前可以先搜索內文是否有相關範例。

TOP

hcm19522

大學生 Rank: 4

帖子: 1445
主題: 15
精華: 0
積分: 1466
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2015-9-11
最後登錄: 2025-10-30

熱烈參與勳章

3^#

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

5164.png (21.11 KB)

google"EXCEL迷" blog 或google網址:https://hcm19522.blogspot.com/

TOP

馨。

中學生 Rank: 2

帖子: 55
主題: 25
精華: 0
積分: 90
點名: 0
作業系統: windows10
軟體版本: office2016
閱讀權限: 20
性別: 女
註冊時間: 2016-2-13
最後登錄: 2025-3-20

4^#

發表於 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

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

TOP

ikboy

中學生 Rank: 2

帖子: 262
主題: 8
精華: 0
積分: 280
點名: 0
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2015-8-11
最後登錄: 2025-3-24

2016猴年全勤獎章

5^#

發表於 2018-10-29 11:06 | 只看該作者

不知是否如附件:

待辦事項.zip (8.54 KB)

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2843
主題: 10
精華: 0
積分: 2899
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2025-10-18

6^#

發表於 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