条件付き書式の使い方:Excel基本講座 |
スポンサードリンク | |
更新:2021/11/09;作成:2006/4/6
設定方法 | 3つの条件で書式を変える | VBAで書式を変える |
保護されているセルに色をつける | 条件付き書式の削除 | 別のシートを参照する |
Private Sub Worksheet_Change(ByVal Target As Range) Dim myColor As Integer If Target.Count <> 1 Then Exit Sub If Target.Column <> 0 Then Exit Sub Select Case Target.Value Case 0 To 19 myColor = 3 '赤 Case 20 To 39 myColor = 45 'オレンジ色 Case 40 To 59 myColor = 6 '黄 Case 60 To 79 myColor = 5 '青色 Case 80 To 100 myColor = 4 '緑色 Case Else myColor = xlNone End Select Target.Font.ColorIndex = myColor End Sub |
スポンサードリンク
PageViewCounter
Since2006/2/27