|
▼ichinose さん:
>こんばんは。
>
>>の2つの表をまずそれぞれ数値の高い順に並び替え
>> A B C D
>>1 人名c 564 人名b 536
>>2 人名b 312 人名d 343
>>3 人名d 228 人名a 222
>>4 人名a 121 人名c 145
>>
>>となった場合に、(ここまでは出来ているのですが)
>>
>>例として2つの表で共に上位2位に入ってきている人
>>ここでは人名bのセル("A2")("C2")を色づけと思っています。
>これ、人名bのセル("A2")("C1")を色づけ ですね!!
>
>アクティブシートに上記のように並び替えられた表があるとすると、
>条件付書式での設定をVBAで行ってみました
>
>'==============================================================
>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位までを調査対象にしました。
>試してみてください。
こんばんは。
入力後実施してみました。
すると、A、C共に同じ文字(数値)のセルが
色づけされました。(名前は変わりませんので全ての方に
色がついてしまいました。)
|
|