みんなの「教えて(疑問・質問)」にみんなで「答える」Q&Aコミュニティ

こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

エクセル2007 色フィルタの実行

データベースがあって、A1:A3のセル範囲が赤く塗りつぶされていて、
A6:A10までが黄色で塗りつぶされてます。
塗りつぶされているこの二つのセル範囲だけを抽出するにはどうすればいいんでしょうか。片方の色だけの抽出なら簡単なんですが。
色だけに焦点を当てて、赤と黄色のセル両方を抽出できますか?

投稿日時 - 2009-02-16 11:37:24

QNo.4722061

すぐに回答ほしいです

このQ&Aは役に立ちましたか?

1人が「このQ&Aが役に立った」と投票しています

回答(1)

ANo.1

例として、下のようなユーザファンクションを定義しておけば、
B1に =ColorSerch(A1:A100) と入力すると、結果は
 $A$1:$A$3,$A$7:$A$10 となり赤又は黄色のセル範囲を取得できます。
(値の変更を伴わない色変更だけだと、自動再計算はされません)

-------------------------------------
Function ColorSerch(ad As Range) As String
Dim rng As Range, c As Range
Set rng = Nothing
For Each c In ad
 If c.Interior.ColorIndex = 3 Or c.Interior.ColorIndex = 6 Then
  If rng Is Nothing Then Set rng = c Else Set rng = Union(rng, c)
 End If
Next c
If rng Is Nothing Then ColorSerch = "" Else ColorSerch = rng.Address
End Function

投稿日時 - 2009-02-16 13:00:44

お礼

エクセルは独学で始めたばかりでまだ複雑な事はわかりません。
回答にある手順を踏まないとこの問題は処理できないという事でしょうか。

投稿日時 - 2009-02-16 13:12:20

あなたにオススメの質問