[[20210906140406]] 『 For Eachの要素が変わらない』(ねむりくま) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『 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 >


参考まで
https://papasensei365.com/excel-filtermode-showalldata/#toc4
(よりみち) 2021/09/06(月) 16:34

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.