|
>入力後実施してみました。
>すると、A、C共に同じ文字(数値)のセルが
>色づけされました。(名前は変わりませんので全ての方に
>色がついてしまいました。)
では、新規ブック(あくまでも新規ブックです)の標準モジュールに
'====================================================
Sub mk_sample()
Range("a1:d1").Value = Array("人名c", 564, "人名b", 536)
Range("a2:d2").Value = Array("人名b", 312, "人名d", 343)
Range("a3:d3").Value = Array("人名d", 228, "人名a", 222)
Range("a4:d4").Value = Array("人名a", 121, "人名c", 145)
End Sub
'================================================================
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
として、何も入力されていないシートをアクティブにして
mk_sampleを実行してみてください。
ミクさんが例題データとして記述された
>> A B C D
>>1 人名c 564 人名b 536
>>2 人名b 312 人名d 343
>>3 人名d 228 人名a 222
>>4 人名a 121 人名c 145
このデータが表示されますよね。
このデータに対して、
mainを実行してみてください。
セルA2、C1の人名bだけが黄色に塗りつぶされるはずですが・・・。
再度、確認してみてください。
|
|