【VBA】オートフィルタ解除&非表示を表示する
作成日:2022-11-29
更新日:2022-12-28

オートフィルタを解除し、行列を再表示する
Public Function ResetFilterMode(ByVal ws As Worksheet)
On Error GoTo ErrHdl
With ws
'オートフィルタがあれば解除する
If .FilterMode Then .ShowAllData
'グループ化されてれば行列の表示をする
With .Outline.ShowLevels
ColumnLevels:=5
RowLevels:=5
End With
'隠れている行列を表示する
With .Cells
.EntireColumn.Hidden = False
.EntireRow.Hidden = False
End With
End With
Exit Function
ErrHdl:
Call MsgError 'エラー処理
End Function
関連記事

データをすべて削除したい場合は、こちら
CLICK
関連記事
CLICK
2022-11-29
編集後記:
この記事の内容がベストではないかもしれません。
記事一覧
-
先頭の空白を削除する 【VBA】先頭の空白を削除する|LTrim -
fsoでブックの存在確認 【VBA】ブックの存在確認|fso(FileSystemObject)を使う -
fsoをセットする 【VBA】fsoをセットする|CreateObject(“Scripting.FileSystemObject”) -
終了のメッセージボックス 【VBA】マクロ終了時のメッセージ|タイム付きmsgbox -
OKのみのメッセージボックス 【VBA】OKのみのメッセージボックス|MsgOKOnly -
ユーザーフォームのタイトルバー非表示 【VBA】ユーザーフォームのタイトルバーを非表示にしてシステムっぽい見た目にする