Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

38198 / 76738

←次へ　｜　前へ→


	【43682】Re:条件２個つきのセルの色付けについて

ミク - 06/10/22(日) 19:52 -


	引用なし

	パスワード

▼ichinose さん：
>こんばんは。
>
>>の２つの表をまずそれぞれ数値の高い順に並び替え
>>　　A　　　　B　　　　C　　　　D
>>1　人名c　　564　　人名b　　 536
>>2　人名b　　312　　人名d　　 343
>>3　人名d　　228　　人名a　　 222
>>4　人名a　　121　　人名c　　 145
>>
>>となった場合に、（ここまでは出来ているのですが）
>>
>>例として２つの表で共に上位２位に入ってきている人
>>ここでは人名bのセル("A2")("C2")を色づけと思っています。
>これ、人名bのセル("A2")("C1")を色づけ　ですね！！
>
>アクティブシートに上記のように並び替えられた表があるとすると、
>条件付書式での設定をＶＢＡで行ってみました
>
>'==============================================================
>Sub main()
>　　Dim rng1 As Range
>　　Dim rng2 As Range
>　　Const 調査順位 As Long = 2
>　　Range("a:a,c:c").FormatConditions.Delete
>　　Set rng1 = Range("a1:a" & 調査順位)
>　　Set rng2 = Range("c1:c" & 調査順位)
>　　With rng1
>　　　 .FormatConditions.Add Type:=xlExpression, Formula1:= _
>　　　　"=countif(" & rng2.Address(, , xlR1C1) & ",rc)"
>　　　 .FormatConditions(1).Interior.ColorIndex = 6
>　　　 End With
>　　With rng2
>　　　 .FormatConditions.Add Type:=xlExpression, Formula1:= _
>　　　　"=countif(" & rng1.Address(, , xlR1C1) & ",rc)"
>　　　 .FormatConditions(1).Interior.ColorIndex = 6
>　　　 End With
>End Sub
>
>上記は、上位2位までを調査対象にしました。
>試してみてください。

こんばんは。
入力後実施してみました。
すると、Ａ、Ｃ共に同じ文字（数値）のセルが
色づけされました。（名前は変わりませんので全ての方に
色がついてしまいました。）

0 hits

▼

【43672】条件２個つきのセルの色付けについて ミク 06/10/22(日) 17:54