Excel(エクセル)基本講座:条件付き書式の使い方 |
||
| 設定方法 | 複数条件の設定 | カレンダーの土日に色を付ける |
| 条件の優先順位 | 条件が4以上の場合(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