すみません。質問させてください。
オートフィルタで抽出すると、青い三角になりますが、
それが見づらいので、抽出している行がすぐわかるようにしたいです。
(ファイルを縮小表示しているもので・・・)
オートフィルタをかけると、かけている(三角がある)セルだけ色が変わる・・
など、いい案があれば教えて下さい!

宜しくお願い致します。

A 回答 (1件)

イベントマクロを使えば可能ですが...


http://oshiete1.goo.ne.jp/qa2305999.html
△ここを参考にしたり、または以下。

AutoFilterの色づけしたい対象シートがSheet1だとします。
それとは別に作業用シートを準備します。
その作業用シート任意の1セルに数式を設定します。(たとえばA1)
=SUBTOTAL(3,Sheet1!A:A)
あとは、その作業用シートのシートモジュールのCalculateイベントを使います。
(作業用シートのシートタブ右クリック[コードの表示]で表示されるモジュールに
 以下コピーペースト)

'SheetModule
Option Explicit

Private Sub Worksheet_Calculate()
  Static r As Range
  Dim f  As Filter
  Dim i  As Long

  On Error GoTo errHndler
  With Sheets("sheet1") '実際の対象シート名に変更が必要
    If .AutoFilterMode Then
      With .AutoFilter
        If r Is Nothing Then Set r = .Range.Rows(1)
        For Each f In .Filters
          i = i + 1
          '33が、識別用 ColorIndex。任意で。
          r.Cells(i).Interior.ColorIndex = IIf(f.On, 33, xlNone)
        Next f
      End With
    Else
      If Not r Is Nothing Then r.Interior.ColorIndex = xlNone
      Set r = Nothing
    End If
  End With
errHndler:
  If Err.Number <> 0 Then MsgBox Err.Number & ":" & Err.Description
End Sub
    • good
    • 0
この回答へのお礼

有難うございます!!早速やってみます!!
Calculate モジュールを使うんですね・・・
またご報告したいと思います!!!

お礼日時:2009/05/12 17:10

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

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

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qフィルタをかけた列のセルの▼マークの色変更できますか?

Excel のオートフィルタ時に、フィルタをかけた列のセルの 「▼マーク」 だけが紺色に表示されますが、
他の 「▼マーク」 とは非常に見分けにくいので、色の変更はどのようにしますか?
もし、不可能でしたら、もっと見分けやすくする方法等が他にございましたら、
教えて下さい。

よろしくお願い致します。

Aベストアンサー

とりあえず、まず過去ログから
『オートフィルタの青い三角が見づらい・・』
http://oshiete1.goo.ne.jp/qa4952620.html

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

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

Aベストアンサー

こんにちは。

面白そうなので、私もマクロを作ってみました。

以下は、イベント・ドリブン型です。本来は、オート・フィルタをなくすときのために、ボタンをインスタンスでイベントを設定しても良いのですが、二度手間なので、ひとつにまとめてしまいました。ダミーの揮発性関数 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

こんにちは。

面白そうなので、私もマクロを作ってみました。

以下は、イベント・ドリブン型です。本来は、オート・フィルタをなくすときのために、ボタンをインスタンスでイベントを設定しても良いのですが、二度手間なので、ひとつにまとめてしまいました。ダミーの揮発性関数 Now()の位置だけ、他のデータを上書きしなければ、問題なく使えるはずです。
他に、ワークシートが全体的に計算式がある場合、誤動作を避けるために、プロシージャの始めに、 Application.EnableEvents = False, 終わりに、 A...続きを読む

Qエクセル オートフィルタで絞り込みをしたデータの色つけ

エクセル2007を使用しています。

オートフィルタで絞り込みをしたデータの数列をまとめて色つけしたいのですが、
できる時とできない時があり、なぜできる時とできない時があるのかその違いも判りません。

数件でしたら諦めて一つ一つセルを選択して色をつけるのですが、
100件近くなるとこの作業がむなしくなってきてしまいます。

どなたかご教授下さい。よろしくお願いいたします。

Aベストアンサー

以下の方法で可視セル(見えているセル)のみの書式設定が出来ます。

オートフィルタで絞り込み

対象のセルをまとめて選択

可視セルの選択([Alt]+[;])

色付け

可視セル選択はメニューからの場合
[編集]→[ジャンプ]→[セル選択]→[可視セル]にチェック→OK

できる時とできない時の違いはよくわかりません。

Qexcelオートフィルタの▼が見にくい

excelオートフィルタを使っていて、いくつか指定をしていくと、
▼の青が見にくいために、どれにフィルタを掛けたのかが、
わからなくなるときがあります。

青の色を変えられたらと思っているのですが、
変えられるものなのでしょうか?
もし変え方をご存知の方がいらっしゃればぜひ教えてください。

Aベストアンサー

出来ない様ですが、対応策は下記に

http://oshiete.coneco.net/kotaeru.php3?q=2305999

Qエクセルでオートフィルタのボタンの位置の変更について

フィルタ(オートフィルタ)で、抽出項目を設定する際の矢印ボタンの位置の変更は出来るでしょうか。
具体的には、1行目から4行目には表にあまり関係ないことが入力されていて、5行目から表が始まり、5行目には列の項目名が入力されています。
普通にオートフィルタを設定すると、1行目に矢印ボタンが表示されますが、これを5行目に表示させたいのですがどのようにすれば出来ますか。
Excel2000です。

Aベストアンサー

オートフィルターは指定がないと一行目を項目と解釈してフィルタ表示をかけます。
任意の項目にかけるのであれば、項目のみ(仮にA5からD5が項目であったらA5からD5)を選択し、そのままデータ/フィルタ/オートフィルタとします。
特にデータ範囲まで指定する必要はありません。
また、とびとびの項目は、指定できません。


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

人気Q&Aランキング

おすすめ情報