[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『ファイルオープン時にフィルタをすべて表示したい』(もち)
エクセルファイルをオープンした際
テーブルでフィルタをかけられている部分に対して
フィルタを解除しすべて表示させたいと思っています。
シートは複数ありそのすべてのシートに対してShowAllDataをかけたいと思い
以下のようにコードを作りました。
Private Sub Workbook_Open()
Dim k As Long
For k = 1 To Worksheets.Count
If Worksheets(k).FilterMode Then Worksheets(k).ShowAllData End If
Next k
End Sub
これだと、一つ目のシートはすべて表示されるのですが
2つ目以降のシートはフィルタがかかったままで表示されません。
どのように修正すればよいでしょうか。
< 使用 Excel:Excel2013、使用 OS:Windows7 >
(通りすがり) 2018/05/10(木) 12:24
Private Sub Workbook_Open() Dim sh As Worksheet
For Each sh In Worksheets If sh.FilterMode = True Then sh.ShowAllData Next sh End Sub (もこな2) 2018/05/10(木) 12:35
ありがとうございます。
(もち) 2018/05/10(木) 14:36
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.