jsc0518

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

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

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2021-7-21 09:03 | 顯示全部帖子

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

Dear all,

麻煩大家幫幫忙
我自己參考網路上的VBA語法寫了一段語法

想法是：
1.AF欄位有設定"資料驗證：待料,待生產,生產中,機台異常,結批,暫停"

2.AF欄位起初設定是將"結批"的選項勾選取消。
**** 此時AF欄位下並無資料有"機台異常"

3.若AF欄位下，選擇"結批"時，此時VBA會自動篩選掉

4.但AF欄位下，選擇"機台異常"時，結果也會被VBA會自動篩選掉

我要怎麼設定VBA參數
1.希望在AF欄位在做篩選時，之前勾選取消之項目會自動被篩選掉，
2.但之前未點選過的選項如設備異常，希望不要被框選取消。

error.rar (21.16 KB)

樓主熱帖

Just do it.

jsc0518

高中生 Rank: 3 Rank: 3

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

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

2^#

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

jsc0518

高中生 Rank: 3 Rank: 3

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

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

3^#

發表於 2021-7-22 09:23 | 顯示全部帖子

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

Just do it.

TOP

jsc0518

高中生 Rank: 3 Rank: 3

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

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

4^#

發表於 2021-7-22 09:23 | 顯示全部帖子

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

Just do it.

TOP

jsc0518

高中生 Rank: 3 Rank: 3

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

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

5^#

發表於 2021-7-22 14:14 | 顯示全部帖子

回復 8# Andy2483
請問一下，

If InStr(Sc & "," & Qx, Cells(i, "AF")) = 0 Then
GoTo 99 --> 這是甚麼用意、意思呢？

Just do it.

TOP

jsc0518

高中生 Rank: 3 Rank: 3

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

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

6^#

發表於 2021-7-22 14:22 | 顯示全部帖子

回復 9# Andy2483
Dear Andy2483,
剛剛測試使用OK，感恩囉。
請問一下，若項目超過5個以上的話，
是否修訂下列語法即可

Dim Qx$, Af&, Sh$, S1$, S2$, S3$, S4$, S5$, S6$, S7$, i&
Af = 32
Sh = ""
S1 = ""
S2 = ""
S3 = ""
S4 = ""
S5 = ""
S6 = ""
S7 = ""

Just do it.

TOP

jsc0518