エクセルのフィルター機能の下向き▼

Question

「全て」の時は黒で、なにかを選択してる時は青ですよね？
あれって区別がつきにくくないですか？
一目で判る様に出来ないのでしょうか？
出来ないのなら、なぜあんなわかりにくい表示になっているのか、
どなたか教えてください。
今日も仕事で「ええっと今どこでフィルターかけてんだっけ？」と・・・。

Wendy02 · Accepted Answer

こんにちは。面白そうなので、私もマクロを作ってみました。以下は、イベント・ドリブン型です。本来は、オート・フィルタをなくすときのために、ボタンをインスタンスでイベントを設定しても良いのですが、二度手間なので、ひとつにまとめてしまいました。ダミーの揮発性関数 Now()の位置だけ、他のデータを上書きしなければ、問題なく使えるはずです。他に、ワークシートが全体的に計算式がある場合、誤動作を避けるために、プロシージャの始めに、　Application.EnableEvents = False, 終わりに、　Application.EnableEvents = True を持ってきても良いかもしれません。 '----------------------------------------------------------------------- Option Explicit Private Sub Worksheet_Calculate() 'オートフィルタの選択時に色をつけるコード　'================================================== 　'**ユーザー設定*** 　''オートフィルタのテーブルの左上端を指定　Const LEFTTOPCELL As String = "A1" 　''ダミー計算式の置き場所　Const DUMFORMULACELL As String = "AA1" 　'================================================== 　　Dim i As Integer 　'ダミーの揮発性関数による計算式　If Me.Range(DUMFORMULACELL).FormulaLocal <> "=NOW()" Then 　Application.EnableEvents = False 　　Me.Range(DUMFORMULACELL).FormulaLocal = "=NOW()" 　Application.EnableEvents = True 　End If 　　If Me.AutoFilterMode Then 　　With Me.AutoFilter 　　　For i = 1 To .Filters.Count 　　　　If .Filters(i).On Then 　　　　　.Range.Rows(1).Cells(i).Interior.ColorIndex = 4 　　　　Else 　　　　　.Range.Rows(1).Cells(i).Interior.ColorIndex = xlColorIndexNone 　　　　End If 　　　Next 　　End With 　ElseIf LEFTTOPCELL <> "" And Me.AutoFilterMode = False Then 　'オートフィルタが消失した場合の色消し　　　Application.ScreenUpdating = False 　　　Range(LEFTTOPCELL).AutoFilter 　　　With Me.AutoFilter 　　　　 .Range.Rows(1).Interior.ColorIndex = xlColorIndexNone 　　　End With 　　　Range(LEFTTOPCELL).AutoFilter 　　　Application.ScreenUpdating = True 　End If End Sub

pauNed · Answer

駄案が気になって...リカバリーを（笑
Sub sample()
　　Dim f As Filter, i As Long
　　With ActiveSheet
　　　　If Not .AutoFilterMode Then Exit Sub
　　　　With .AutoFilter
　　　　　　For Each f In .Filters
　　　　　　　　i = i + 1
　　　　　　　　.Range.Cells(i).Interior.ColorIndex = IIf(f.On, 41, 0)
　　　　　　Next f
　　　　End With
　　End With
End Sub
このマクロをツールバーのボタンか何かに登録しておけば、
クリックする度にフィルターの状態を判定してセルの背景色を変更します。
#色をつけたままAutoFilter解除してしまうと変更しません。
#再度Filterするか、手動で消す事になります^ ^;

pauNed · Answer

こんにちは。オートフィルターのドロップダウンの▼の『青』は無理ですが、
かかっていない場所の▼は変更できるのですが...
コントロールパネル[画面のプロパティ]-[デザイン]タブの[指定する部分]『3Dオブジェクト』の色を変更。

...でも全てのメニューバーの文字色も変わってしまいますので...駄案です...orz

chiezo2005 · Answer

私もそう思います。ほとんど見分けつかないですよね。
私もこまるので，オートフィルタをかけたセルの上のセルに色をつけるようにしてます。
面倒ですが，ややこしい条件でフィルターをたくさんかけているときはちょっとは作業がはかどります。

heisenberg · Answer

こんばんは。
　お気持ち　よく分かります。
　実はわたしも　「黒」と「青」では識別しにくく不便なので　マイクロソフト社に照会したことがあったのですが　別の色に変更することはできないそうです。今後の改善に期待したいところです。
　もし　データの量が膨大で　例えば列数が１００とか２００とかにもなっていて　その中でオートフィルタをかけている列を捜すのが面倒な場合　わたしは　ツールバーの「データ」をクリックし　オートフィルタのチェックを外して機能を解除しています。これで　一瞬のうちに　オートフィルタをかけている全ての列が元の状態に戻ります。
　作業の内容によってはこの操作が使えないこともありますが　ご参考までに・・・。

saru_1234 · Answer

確かに見づらいですね。
でもとりあえず、画面に顔を近づけて凝視するとわかるので
まぁいいかな？と思ってます。

色を変えられるならいいですけど、方法はおろか、可能なのか、もわかりません。

HELP でも「青」と明記されてたので変えられないように思います。

他の手段としては、ちょっと手間ですがそれぞれをドロップダウンしてみて、
「すべて」でないところを探す...という方法も。

エクセルのフィルター機能の下向き▼

こんにちは。

駄案が気になって...リカバリーを（笑

こんにちは。

私もそう思います。

こんばんは。

確かに見づらいですね。

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

　こんばんは。