excel VBA 自動更新篩選問題 - Excel程式區

jsc0518

高中生 Rank: 3 Rank: 3

帖子: 455
主題: 111
精華: 0
積分: 563
點名: 237
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2013-11-7
最後登錄: 2024-11-28

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章論壇贊助勳章

7^# 跳轉到 »

發表於 2021-7-22 09:23 | 只看該作者

回復 4# n7822123
Dear n7822123,
早安您好，感謝您的回覆，知道囉！
Thank you.

Just do it.

TOP

jsc0518

高中生 Rank: 3 Rank: 3

帖子: 455
主題: 111
精華: 0
積分: 563
點名: 237
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2013-11-7
最後登錄: 2024-11-28

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章論壇贊助勳章

6^#

發表於 2021-7-22 09:23 | 只看該作者

回復 5# Andy2483
Dear Andy2483,
早安！感謝您的回覆！
試過後可以使用，感恩！
可否教我一下VBA語法大概內容是怎麼做的呢？
謝謝你！！！

Just do it.

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1446
主題: 40
精華: 0
積分: 1470
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-11-28

5^#

發表於 2021-7-22 08:36 | 只看該作者

回復 3# jsc0518

2個以下篩選取消項有效
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
Dim Qx$, Af&, Sc$, i&
Af = 32
Sc = ""
Qx = ""
If .Column = Af And .Row >= 2 And .Count = 1 Then
   If ActiveSheet.FilterMode = True Then
      For i = 2 To ActiveSheet.UsedRange.Rows.Count
         If Rows(i).EntireRow.Hidden = True Then
            If Sc = "" Then
               Sc = Cells(i, "AF")
            End If
            If Qx = "" And Cells(i, "AF") <> Sc Then
               Qx = Cells(i, "AF")
            End If
            If InStr(Sc & "," & Qx, Cells(i, "AF")) = 0 Then
               GoTo 99
            End If
         End If
      Next
      Selection.AutoFilter Field:=Af, Criteria1:="<>" & Sc, Operator:=xlAnd, Criteria2:="<>" & Qx
      ActiveSheet.AutoFilter.ApplyFilter

99
   End If
End If
End With
End Sub

參考!

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

n7822123

　暱稱: 阿龍

中學生 Rank: 2

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

4^#

發表於 2021-7-21 23:47 | 只看該作者

本帖最後由 n7822123 於 2021-7-22 00:01 編輯

回復 3# jsc0518

我是想說，有甚麼方式是可以讓VBA只認定我第一次取消的選項，而其他選項出來時，是無作動的

篩選條件不會去記錄你 "取消" 的，只會記錄"現有" 的

如果你原本有 A、B、C ，3個條件，你把C取消了，Excel的篩選條件會紀錄成 "要A、也要B"，而不是 "不要C"

資料篩選的本意=從現有的資料去過濾

如果資料只有A、B、C，就算用VBA寫篩選條件，多一個D條件，Excel也是不認帳的

所以當資料有變動時，只能用VBA "重寫條件"

程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

TOP

jsc0518

高中生 Rank: 3 Rank: 3

帖子: 455
主題: 111
精華: 0
積分: 563
點名: 237
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2013-11-7
最後登錄: 2024-11-28

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章論壇贊助勳章

3^#

發表於 2021-7-21 15:44 | 只看該作者

回復 2# Andy2483
Dear Andy2483,
抱歉我表達的不清楚，

1.在AF欄位有設定"資料驗證(下拉式選單)：待料,待生產,生產中,機台異常,結批,暫停"這6個選項
2.在AF欄位下只有"待料,待生產,生產中,結批"這些資訊
3.我在AF欄位用篩選的方式，先把"結批"這取消勾選掉。
4.此時"結批"欄位會被自動隱藏掉。
5.這時我在AF欄位中，若點選下拉式選單選擇"機台異常"或"暫停"時，VBA一樣會把它們給予自動隱藏

我錄了一段過程，當我選擇"待料"VBA一樣會把它們給予自動隱藏

我發現大概是因為當我在做-->AF欄位用篩選的方式，先把"結批"這取消勾選掉時。
此時AF欄位下只有"生產中,待生產,暫停"這3個選項，

所以當我在AF選擇除了"生產中,待生產,暫停"這3個選項外的資訊，基本上都會被VBA自動隱藏

我是想說，有甚麼方式是可以讓VBA只認定我第一次取消的選項，而其他選項出來時，是無作動的

Just do it.

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1446
主題: 40
精華: 0
積分: 1470
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-11-28

2^#

發表於 2021-7-21 15:03 | 只看該作者

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Column = 32 And .Row >= 2 And .Count = 1 Then
   If ActiveSheet.FilterMode = True Then
      If .Value <> "機台異常" Then
         .Rows(.Count).EntireRow.Hidden = True
      End If
   End If
End If
End With
End Sub

參考!

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

[發問] excel VBA 自動更新篩選問題

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]