VBAで保存時の状態に戻す方法

質問

• 本などを参考にしながらエクセルVBAを使って売上帳を作成しています。
• 品名欄のキーワード検索機能を付けていますが、抽出した後、元の状態に戻す良い方法はないですか？
• VBAのコードを使用して、売上帳内の品名欄にキーワードを入力すると、該当するデータのみが表示される仕組みを実装しています。しかし、抽出結果を表示した後、元の表示状態に戻す方法が分かりません。どのような手順を踏んで保存時の状態に戻すことができるのでしょうか？

回答No.7

keithin

＞このリセットはコードの途中にあるのでキーワード検索と一体化してしまい、
＞元に戻すという作業に反映されないのでは、と思っていますが、どうなのでしょう？

あなたのアタマにあるのは「キーワード検索したい」だけですが，あなたが参照していたマクロはもうちょっとよく考えられています。

Sub 品名検索()
Dim ans As String
ans = InputBox("文字列を入力してください")
With ActiveSheet

’以下のブロックで，品名検索を開始する前から既にオートフィルタで絞られている想定で
’一度そのオートフィルタを全て解除し，改めてキーワード検索する準備を行っています
’故にここで解除してしまった事前のオートフィルタを復元したいのかな？と思ったワケです
If .AutoFilterMode Then 'オートフィルタモードがオンなら
.AutoFilterMode = False 'リセットする　　　　　　　　　←のように，解説済みです
End If

’以下のブロックでは，全データを平らに広げた状態で改めてオートフィルタを取り付け，
’キーワードによって絞り込みを行います
.Range("A4:IV4").AutoFilter 'オートフィルタモードをセット
.Range("A4:IV4").AutoFilter Field:=5, Criteria1:="=*" & ans & "*" '5つ目のフィルターに検索文字
End With
End Sub

先の回答でも触れたようにあなたは「元の状態」を「オートフィルタが取り付けられていない状態」としか考えていませんでしたが，あなたが参照していたマクロは「事前にオートフィルタで何某か絞られている状態から始まる」という想定をしていたという事です。

お礼

すごく丁寧におしえてくださってありがとうございました。
自分の書いていたコードの中身が良く分かりました。

＞故にここで解除してしまった事前のオートフィルタを復元したいのかな？と思ったワケです

これは、いいえです。
戻したいのは、全く何のフィルタもかかっていない、並べ替えもされていない状態、
つまりそのファイルを最後に保存した状態です。

あと、NO.4で
＞もっと簡単にはツールバーに（またはExcel2007以降ならクイックアクセスツールバーに）「全て表示」のボタンを追加しておいてクリックした方が，便利です。

この全て表示のボタンはどこにありますか？使っているのはExcel2007です。