[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『 For Eachの要素が変わらない』(ねむりくま)
↓のコードで全シートのフィルタ絞り込みクリアができません。
今選択になっているシートしかクリアできないのですが、どこが違うのでしょうか。
Sub 仮()
Dim ws As Worksheet
For Each ws In Worksheets If ws.FilterMode Then ws.ShowAllData End If Next MsgBox ("全シートのフィルタをクリアしました。")
End Sub
< 使用 Excel:Office365、使用 OS:Windows10 >
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.