VBAで条件付き書式設定
エクセルの一覧表で2行目から4行ずつ上から商品名、商品コード、会社、商品項目とあって、列がAからXまであります。
以前、商品名ごとに自動で色づけしていた時に使っていたVBAです。
Sub 色分け()
Dim Target As Range
For Each Target In Range("b2:e2,b5:e5,b8:e8,b11:e11,b14:e14,b17:e17,b20:e20,b23:e23")
Select Case True
Case InStr(Target.Value, "〇〇") > 0
Target.Resize(4, 1).Interior.ColorIndex = 24
Case InStr(Target.Value, "△△") > 0
Target.Resize(4, 1).Interior.ColorIndex = 38
Case Else
Target.Resize(4, 1).Interior.ColorIndex = xlNone
End Select
Next
End Sub
この色付け条件を4行目の商品項目ごとに変更したいのですが、方法が分からないので教えてください。
なんかすぐ出来そうな気がするんですけど、丸2日やっても分かりませんでした。
よろしくお願いします。
お礼
ありがとうございます。 今はLEDになっているのですね。 私の記憶に有るのは、グラスファイバーを通して色が変わるという単純な構造だったと思ったのですが。