[[20180510121039]] 『ファイルオープン時にフィルタをすべて表示したい』(もち) ページの最後に飛ぶ

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

 

『ファイルオープン時にフィルタをすべて表示したい』(もち)

エクセルファイルをオープンした際
テーブルでフィルタをかけられている部分に対して
フィルタを解除しすべて表示させたいと思っています。

シートは複数ありそのすべてのシートに対して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 >


参考まで
https://qiita.com/tomikiya/items/e0e56366ac424b8380e3

(通りすがり) 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

通りすがりさんのURLを参考にテーブル内のセルを選択するコードを頭に入れたところ
思った通りの挙動を確認できました。

ありがとうございます。
(もち) 2018/05/10(木) 14:36


コメント返信:

[ 一覧(最新更新順) ]


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