【VBA】オートフィルタ解除&非表示を表示する
記事更新日:2022-11-29
![サムネイル](https://tsukiusagi.biz/wp-content/uploads/2022/09/vba.png)
オートフィルタを解除し、行列を再表示する
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
関連記事
![](https://i0.wp.com/tsukiusagi.biz/wp-content/uploads/2022/01/rabbit3.png?resize=150%2C150&ssl=1)
データをすべて削除したい場合は、こちら
CLICK
関連記事
CLICK
2022-11-29
編集後記:
この記事の内容がベストではないかもしれません。