- 締切済み
エクセル特定範囲の色塗り 条件付き書式等
- みんなの回答 (4)
- 専門家の回答
みんなの回答
- imogasi
- ベストアンサー率27% (4737/17069)
VBAでやってみた。出来るだけコード行数を少なくを目指してやった。 色は小生の勝手設定。 欠点(データを変更したときに連動しない。本質問ではデータは変動せず、基準範囲が変動ありかも。)もあり、また質問を改変している部分(色つけ無しの定義)もあるので、気に食わなければ無視してください。 ーー シートで A4:D10(D列はColorIndexのコード) http://www.relief.jp/docs/000482.html をみて、好きな色に変更できる。 1 1 3 3 2 4 5 5 ー 6 6 0 3 7 10 7 4 11 14 9 ー 15 15 0 5 16 20 10 E4:N6 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 標準モジュールに Sub test01() Set r = Union(Range("E4:N4"), Range("E6:N6")) For Each c In r 'MsgBox "D=" & c.Value x = WorksheetFunction.VLookup(c, Range("b4:D10"), 3, True) 'MsgBox "c=" & x If c = 0 Then c.Interior.ColorIndex = xlNone Else c.Interior.ColorIndex = x End If Next End Sub と入れて実行。 着色状況は、VBAを実行して,その結果を見てください。 塗りつぶし色は、ColorIndexsで指定にしていますが、勉強すればRGB指定に変更もできる。 参考 http://d.hatena.ne.jp/hichame/20090715/1247632406