|
こんばんは。
>の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位までを調査対象にしました。
試してみてください。
|
|