Excel VBA質問箱 IV

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

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


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

38197 / 76738

←次へ　｜　前へ→


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

ichinose - 06/10/22(日) 20:06 -


	引用なし

	パスワード

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

では、新規ブック（あくまでも新規ブックです）の標準モジュールに

'====================================================
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だけが黄色に塗りつぶされるはずですが・・・。

再度、確認してみてください。

0 hits

▼

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