[[20051117153404]]　『色検索について』（いいだよ）　ページの最後に飛ぶ

『色検索について』（いいだよ）

　男子は黒字　女子は　赤字の名簿がありますが　ごちゃごちゃにはいっています。
検索で　赤字の人（女子）だけを　出したいが、どうたらよいでしょう？

　エクセル２０００　windows xp

 検索機能で書式を検索出来るのは2002からです。VBAやマクロ関数を利用する事になりそうです。
(kenbou)

 こんな感じで如何でしょう？

     A    B       C          D
 1 名簿			
 2 あ（赤）	3	あ（赤）
 3 い（黒）	0	う（赤）
 4 う（赤）	3	お（赤）
 5 え（黒）	0	か（赤）
 6 お（赤）	3	く（赤）
 7 か（赤）	3	け（赤）
 8 き（黒）	0	
 9 く（赤）	3	
10 け（赤）	3	
11 こ（黒）	0

 １）C2 にカーソルを置き、挿入 → 名前 → 定義
 ２）【名前】を、iro に。（名前はご自身で適当なものにしても大丈夫）
 ３）【参照範囲】を、「=GET.CELL(24,A2)+NOW()*0」と入力。OK。
 ４）C2 =iro と、入力。
 ５）C11 までコピー
 ６）D2 =IF(COUNTIF($C$2:$C$11,">0")<ROW(A1),"",OFFSET($A$1,SMALL(IF($C$2:$C$11>0,ROW($A$1:$A$10),""),ROW(A1)),))
 　　↑配列数式
 　　　Ctrl + Shift + Enter で、確定。
 　　　｛　数式　｝となればOK。
 　　必要範囲までコピー

 ※上記は例ですので、ご自身の表に合うように変更してください。
 （キリキ）(〃⌒o⌒)b

具体的なデータ書式がわからないので，なんとも言えませんが
所定の列に名前が並んでいれば，その列をtopから順に
そのセルの文字色をマクロで，判断して，黒ならその行を
非表示，赤なら表示のように処理してできるでしょう。（なお）

C列に２行目から名前があれば，赤，黒の名前のみ表示する
マクロです。

  黒は自動でも黒色になるため自動色も黒として扱っています。

 Sub searchred()

lastrow = Cells(Rows.Count, 3).End(xlUp).Row

For i = 2 To lastrow

If Cells(i, 3).Font.ColorIndex <> 3 Then Rows(i).Hidden = True

End Sub

Sub seachblack()

lastrow = Cells(Rows.Count, 3).End(xlUp).Row

For i = 2 To lastrow

If Cells(i, 3).Font.ColorIndex <> 1 And Cells(i, 3).Font.ColorIndex <> xlAutomatic Then Rows(i).Hidden = True

End Sub

（なお）

コメント返信：

[ 一覧(最新更新順) ]

[[20051117153404]] 『色検索について』（いいだよ） ページの最後に飛ぶ

[[20051117153404]]　『色検索について』（いいだよ）　ページの最後に飛ぶ