オートフィルタの使い方と注意点

質問

• オートフィルタを使用する際に、複数の列に同じ条件で一括でフィルタをかける方法を知りたい。
• オートフィルタを使用して表を作成している際、1日ずつフィルタをかけるのが大変になってくる。
• オートフィルタを使う際の注意点として、作業中にわかりづらくなることがあるので注意が必要。

回答No.3

nishi6 · ベストアンサー

＞「Sub 色付け()」から「End Sub 」までを・・・

（１）開発タブ＞Visual Basicを選択。VBE画面が表示されます。（Alt+F11でも可）
（２）表示されたVBE画面のメニューで、挿入＞標準モジュールとします。
（３）表示された標準モジュールに「Sub 色付け()」から「End Sub 」までをコピーして貼り付けます。
（４）Excel Sheetに戻ります。（Alt+F11でも可）
（５）色を付けたいセル領域を選択します。
　　　　広いセル領域の選択は、領域の左上セルを選択した状態で、
　　　　名前ボックスに右下セルを入力して、「B2:h34」のようにして、
　　　　Shift+Enterとすれば簡単に選択できます。慣れれば簡単です。
（６）開発タブ＞マクロ＞色付け　を実行します。

マクロは、選択したセル領域の色付けをクリアした後、色付けを行っています。
従って、１回色付けをした後、データ修正があれば、修正した後、再度マクロ色付けを実行してください。

マクロは色付けを行った後、選択領域が選択されたままです。どこかセルをクリックすればいいんですが、最後の２行目の「End With」の前に、「　　.Cells(1, 1).Select」を挿入すれば、選択した領域の左上セルが選択された状態で終わります。試してみてください。

　　Next
　　.Cells(1, 1).Select
　End With
End Sub

お礼

お礼が遅くなり申し訳ありません。。

結局今回教えて頂いたやり方ではうまくできませんでしたが
何度となく親切丁寧にお答えくださったので
こちらをベストアンサーにさせていただきます。

この度はありがとうございました(^^♪

補足

先程実際に登録して実行してみましたが
色が消えただけでした。。

金曜日から木曜日まで列をまるごと選択してから実行したり
列まるごとではなく、表の部分だけ選択してみたりしましたが
やはり結果は同じでした。。

選択の仕方がおかしったのでしょうか？