|
こんにちは。かみちゃん です。
>職位コードに応じ、氏名を次の色にしたい。
>00:黒、10:黒、20:ピンク、30:ブルー、40以上:こげ茶色
>なお、できれば氏名ではなく、その人のセルを色分けしたい
どういう結果を求めておられるのかわかりません。
以下のコードを追加することにより、Sheet1の職位コードの色分けはできます。
色分けのためには、Select Case 〜 を使います。
Set LastCell = WS1.Cells(Rows.Count, 1).End(xlUp)
WS1.Range("A2", LastCell).Font.ColorIndex = xlAutomatic
For Each c In WS1.Range("A2", LastCell)
Select Case c.Offset(, 4).Value
Case "00"
c.Font.ColorIndex = 1
Case "10"
c.Font.ColorIndex = 1
Case "20"
c.Font.ColorIndex = 7
Case "30"
c.Font.ColorIndex = 5
Case Is >= "40"
c.Font.ColorIndex = 53
End Select
lngRow = 0
|
|