- 帖子
- 19
- 主題
- 4
- 精華
- 0
- 積分
- 67
- 點名
- 126
- 作業系統
- win7
- 軟體版本
- excel
- 閱讀權限
- 20
- 註冊時間
- 2016-8-24
- 最後登錄
- 2026-10-27
|
你好，小弟不材，試了一下，
1. 感覺應該是你的篩選不是在第一行，所以不能用這方式，需要先選 所在行的 cell，然後還不能指定是開還是關，只能一次開一次關，如圖一
2. 如果你的按鈕要共用，不能用 command bottom (active X 只能作用在該分頁)，要用表單控制項(變成 module)，如圖二
Dim ws As Worksheet
For Each ws In Application.Worksheets
ws1 = ws.Name
'MsgBox (ws1)
Worksheets(ws1).Activate
Cells(3, 1).Select
Selection.AutoFilter
'Selection.AutoFilterMode = False 無法使用
'AutoFilterMode = False 無法使用
Next ws |
-
-
001.png
(31.69 KB)
-
-
002.png
(62.24 KB)
|
發表於 2024-8-17 18:01
| 
