- ベストアンサー
オートフィルタの青い三角が見づらい・・
end-uの回答
イベントマクロを使えば可能ですが... 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
関連するQ&A
- 【Excel2003】オートフィルタの下向き三角がおかしいです
オートフィルタをかけると出る、セル右下位置の「下向き三角」について質問です。 特定のファイルのみ、オートフィルタを解除(データ-フィルタ-オートフィルタでチェックをはずす)しても下向き三角が消えません。 チェックをはずした後は、下向き三角をクリックしても無反応です。 再度オートフィルタをかけると、普通に反応して使えるようになります。 オートフィルタを解除したら消えるように、要するにまっとうな表示にさせるにはどうしたらいいでしょうか?
- ベストアンサー
- オフィス系ソフト
- オートフィルタについて(再)
excelにて下記のようなファイルを作成しました。 項目にてオートフィルタを実行し、抽出したい項目を 選択するのですがうまく抽出できません 1 品名 サイズ 員数 2 A 100 300 3 200 400 4 B 500 600 (品名2行目、3行目はセルの結合を実施しています。) ↓品名にてオートフィルタを実施 品名 サイズ 員数 A 100 300 2行目が抽出されない。 うまく抽出できる方法ありますでしょうか? よろしくお願いします
- ベストアンサー
- その他(業務ソフトウェア)
- EXCEL2003 オートフィルタ オプション 結果が不正
EXCEL2003 で20 行 10 列の表を作成し、各行には 1 2 3 と数字を入力しておりますが 01 02 という数字も あるため 書式は文字列に設定しています。 これを「オートフィルタオプション」で 2 と等しくないで抽出 すると正しく機能せず すべての数値が表示されます。 セルには [文字列として保存されている数値]のエラーチェックが 働きセル左上が緑色三角マークがついています。 2 が入力されたセルの書式を 一旦[標準]に設定した上で、 再度 2 と入力し直し、また 書式を[文字列]に設定すると セル左上 緑色三角マークがなく、前述の「オートフィルタオプション」が 正しく機能するのですが、このセルの数値を 例えば 3 に変更したり、 セルをダブルクリックすると、エラーチェックが働きセル左上 緑色三角 マークが 表示されます。 結果、「オートフィルタオプション」の 等しくない 抽出が機能しません。 Excelのオプションで[文字列として保存されている数値]のエラーチェック を外しても、「オートフィルタオプション」は正しく機能しません。 「オートフィルタオプション」の 等しくない 抽出を使うには、どの ようにすれば良いか解決をご教示ください。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルのオートフィルターの使い方
エクセル2010で1000行程度の表からオートフィルターで必要な情報を抽出しているのですが、該当する条件を▼セルで探すのも面倒なので、所定のセルに条件を入力したらオートフィルターで抽出できる方法があれば教えてください。
- ベストアンサー
- Excel(エクセル)
- オートフィルターとCOUNTAについて
オートフィルターとCOUNTAについて お世話になります。初歩的な事かもしれませんが教えて下さい。 とものデータベースをオートフィルターで抽出して、その行がいくつあるか、ある列で COUNTAをかけました。その時はたまたま抽出行が少なかったので、実際に数えてみて 更にCOUNTAをかけてみましたら、COUNTAの方の数が大きくなっていました。何度も 数えてみたのですが、実際に抽出された行数より多い数にCOUNTAだとなってしまいます。 オートフィルターで隠れている部分まで、空白でないセルをカウントしているのでしょうか? 対処法をご存知に方いましたら、教えて下さい。 エクセル2003を使用しています。 宜しくお願い致します。
- ベストアンサー
- その他MS Office製品
- EXCEL オートフィルタについて
EXCELの2003と2002を使っています。 オートフィルターで抽出したものを行ごとコピーして違うファイルに 貼り付けた時、同じように操作しているつもりですが、 ときどきオートフィルタがかかった状態で全てのファイル (隠れているデータが隠れた形、再表示するといらないデータまである)張り付いています。 抽出したものだけ貼り付けたいのですが、どの操作が原因で、違いが出るのでしょうか。
- ベストアンサー
- オフィス系ソフト
- セルが結合されている場合のオートフィルタ
図のようにフィルタ抽出するセルが結合されています。 このままだと、3行ある下の2行は折りたたまれてしまいます。 該当する行を全て表示したい。 オートフィルタにこだわりませんが、何かいい知恵がありましたら、 よろしくお願いします。
- ベストアンサー
- その他MS Office製品
- エクセル>結合セルのオートフィルターで不具合?
すいません。また、お知恵をお貸し下さい。 2行単位の結合セルが並ぶ一覧表で、オートフィルターを実行したところ、 2行目は空白として認識されるのか、1行目(結合したセルの一番上の行) しか、抽出(表示)されません。 さらに、各セルは罫線で囲ってあるのですが、抽出されたデータの最下段 に来るセル群には、下線のみが表示されず、印刷結果も画面通りです。 どなたか、お分かりになられる方はいらっしゃいますでしょうか。 恐らく初心者的な質問かと思いますが、よろしくお願い致します。
- 締切済み
- その他MS Office製品
- エクセルのオートフィルタについて
エクセルのオートフィルタについて以下の2つの作業が可能であれば教えて下さい。 (1)1桁目の数字が1、2、3、4の四つの場合の行を抽出することは可能でしょうか?オートフィルタオプションでは「or」条件で例えば1、2の二つの場合の行の抽出はできるのですが。 (2)6桁の数字があるとして5桁目が5の数字の行を抽出することは可能でしょうか?オートフィルタオプションでは「~で始まる」や「~で終わる」行の抽出はできるのですが。
- ベストアンサー
- オフィス系ソフト
- エクセルのオートフィルタについて
エクセルのオートフィルタについてですが、一番取り扱いに困っている所は、社員の給与リストとかで、ある特定のデータ、例として事務員(一つの行の例えば一つのセルに名前、一つ横のセルに給与の数字(数値データ)がはいっている)を抽出した場合(事務員の記号がどこか同じ行にはいっているとして)数値の列を開いているセルで関数処理したい場合、表示されている数字だけを処理する場合と隠れている(多分)データも処理してしまう場合があり大変戸惑っています。なんとかどちらかに統一したいのですが、自分なりに調べましたが分かりません。どなたかご存知ないでしょうか。また、このオートフィルタで特定の数字や文字を抽出しようとしてもうまくいく時とそうでない時があります。なぜなのでしょうか。これはバグと考えても?
- ベストアンサー
- オフィス系ソフト
お礼
有難うございます!!早速やってみます!! Calculate モジュールを使うんですね・・・ またご報告したいと思います!!!