[[20100509013214]]　『オートフィルタで抽出している項目の列全体の背景』（Pokopon）　ページの最後に飛ぶ

『オートフィルタで抽出している項目の列全体の背景色を変えたい』（Pokopon）

Excel2003以降です。既出の事例かも知れませんが、過去ログで調べられませんでした。
オートフィルタで抽出中の列全体の背景色を変えたいと思っています。
条件付き書式で設定できそうなのでが、
「現在抽出している項目（列）」を何かしらの関数を使って調べなければなりません。
countA とSUBTOTAL(3,range) を組み合わせれば「抽出中である」とは調べられますが、抽出しているキーとなっている列を調べるにはどうしたらいいのでしょうか？
できればマクロに頼らず、エクセルの基本機能だけで実現したいのですが。

 >できればマクロに頼らず
 とりあえず、マクロです。一般機能での回答は識者の出番を待ちましょう。

 Sub test()
    Dim i As Long
    With ActiveSheet.AutoFilter
        For i = 1 To .Filters.Count
            If .Filters(i).On Then
                .Range.Columns(i).Interior.Color = vbYellow
            Else
                .Range.Columns(i).Interior.ColorIndex = xlColorIndexNone
            End If
        Next
    End With
 End Sub

 (トオリガカリ)

ありがとうございます。
一般機能では難しいそうですね。
マクロであれば、何かしらのきっかけ（マクロを実行するイベントなど）で結果が反映されるようにすればいいのかな？

検討してみます。

 【関連ログ】
[[20060118155616]]　『オートフィルタのかかっている列がわかりにくい？』（★しずく★）　
　
(みやほりん)(-_∂)b

コメント返信：

[ 一覧(最新更新順) ]

[[20100509013214]] 『オートフィルタで抽出している項目の列全体の背景』（Pokopon） ページの最後に飛ぶ

[[20100509013214]]　『オートフィルタで抽出している項目の列全体の背景』（Pokopon）　ページの最後に飛ぶ