[[20050203115938]]　『オートフィルタの色によるフィルタ』（ホリ）　ページの最後に飛ぶ

『オートフィルタの色によるフィルタ』（ホリ）

大量のデータを色で分けて見やすくしたのですが、
オートフィルタで色によって絞りたいと思うのですが、
そういったオートフィルタの設定とかありませんか？
もしあれば教えてください。
宜しくお願いします。

 Excel2000には無いです。　でも頑張ってマクロを作れば可能です。

  (INA)

 考え方を変えて、もし何か規則的な条件があれば条件付書式で色を変える、
（場合によっては作業列を使う）
 オートフィルタで絞るときはその条件で絞り込む、という方法はありますが。
 (sato)

 今、思いついたんだけど、、↓こんな表があったとして
F列にその色の番号を抜き出してそれをオートフィルタするのはどうでしょうか？
例としてE列の色の番号をF列に取り出しています。
A　　　　　B　　　　C　　　　D　　　　E　　　　F
項目1	項目2	項目3	項目4	項目5	色の番号
11	12	13	14	11	6
16	17	18	19	16	6
21	22	23	24	21	33
26	27	28	29	26	34
31	32	33	34	31	37
36	37	38	39	36	46
41	42	43	44	41	46
46	47	48	49	46	7
51	52	53	54	51	9
56	57	58	59	56	9
61	62	63	64	61	11
66	67	68	69	66	38
71	72	73	74	71	46
76	77	78	79	76	46
81	82	83	84	81	39
Option Explicit
Sub てすと()
Dim i As Long
    With Worksheets("Sheet1")
        For i = 2 To .Range("E65536").End(xlUp).Row
            .Range("F" & i).Value = .Range("E" & i).Interior.ColorIndex
        Next
    End With
End Sub
それなら、こんな簡単なコードで出来るけど、、、って
もう、見ていらしゃらないですかね？？汗
（SoulMan）

 一応やってみたけど、まだ不具合が＿/￣|○ il||li
 どうすれば良いのか?(゜_。)?(。_゜)? ワケワカメ
http://skyblue123.hp.infoseek.co.jp/Excel/ColorFilter1.xls

 絞込みのときに、最初に抽出した最終行以降が抜き出せない＿/￣|○ il||li

 （川野鮎太郎）

 カラーパレットをワークシートのカラーパレットに合わせてみました。
http://skyblue123.hp.infoseek.co.jp/Excel/ColorFilter2.xls

 （川野鮎太郎）

コメント返信：

[ 一覧(最新更新順) ]

[[20050203115938]] 『オートフィルタの色によるフィルタ』（ホリ） ページの最後に飛ぶ

[[20050203115938]]　『オートフィルタの色によるフィルタ』（ホリ）　ページの最後に飛ぶ