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

　暱稱: 阿龍

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

21^# 跳轉到 »

發表於 2021-7-26 00:37 | 只看該作者

本帖最後由 n7822123 於 2021-7-26 00:39 編輯

回復 20# singo1232001

哈，沒錯，好玩就好啦~

我也發現我剛剛的第7項說明不太妥當，紀錄條件用 "工作表的全域變數"比較好

隨著工作表就可擴充了 (該有的事件程式、全域變數要有)

因為主要是選不要的，篩選條件把空白納入(空白不過濾)

更新V2版本~~可自行擴充玩看看，雛形做到這樣就差不多嘍

1.任一欄點選兩下左鍵跳出表單
2.表單會自動抓該欄第2列的 "資料篩選清單"，並秀出來給你選擇
3.把"要的"打勾，按確定即可完成篩選 (程式會自動記錄你"不要"的)
4.假設該欄資料沒有ItemA，但是清單有打勾，該欄多了一筆資料ItemA，也不會自動隱藏
5.支援擴充N欄，"不限AF"欄，但是若該欄地2列沒有"資料篩選清單"，表單上不會有東西給你勾
6.設定條件可以紀錄到檔案關閉，亦即檔案關閉再開啟，需要重新設定
7.目前可支援2個表格，若有更多表格，請自行擴充工作表內的程式、變數即可~~
8.表單範圍大概支援秀出30個選項，再多應該顯示不出來，可自行修改表單 & 表單程式

Error_阿龍V2.rar (42.06 KB)

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

TOP

n7822123

　暱稱: 阿龍

中學生 Rank: 2

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

22^#

發表於 2021-7-26 00:42 | 只看該作者

回復 20# singo1232001

你的我也玩一下，我把"生產中"取消篩選，再把AF欄位某一格選成 "生產中"

結果篩選條件又有"生產中"拉~~

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

TOP

singo1232001

　暱稱: 熱狗慶

中學生 Rank: 2

帖子: 354
主題: 5
精華: 0
積分: 387
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-8-2

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

23^#

發表於 2021-7-26 04:39 | 只看該作者

本帖最後由 singo1232001 於 2021-7-26 04:51 編輯

回復 22# n7822123

我玩出一些新花樣
1.設置了一個自動篩選的觸發事件
2.直接找出自動篩選內的資料

順便補充全選.On=false 的時候內部沒有資料能查
貌似照原本的方式用字典去刪重複就可以

各位加油先戰到這裡愛睏了= =

error v3.zip (106.91 KB)

TOP

singo1232001

　暱稱: 熱狗慶

中學生 Rank: 2

帖子: 354
主題: 5
精華: 0
積分: 387
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-8-2

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

24^#

發表於 2021-7-26 14:25 | 只看該作者

回復 23# singo1232001

這是在網路上查到的
Application.AfterCalculate 觸發事件

https://stackoverflow.com/questions/67027407/excel-vba-instantiate-aftercalculate-event-handler-when-opening-workbook

做個簡單的範例給大家參考一下
不過要小心設置
避免連續觸發導致excel崩潰

測試自動篩選選擇後觸發Application AfterCalculate事件.zip (124.53 KB)