|
こんにちは。
▼ちい さん:
>1,2が真の場合は
>Sheets("C")にRange("C3:C4")とRange("D3:D4")に色を付けてプリントアウトしたいのです。
それなら、小僧さんのコードに色を消すコードをこんな感じに追加すれば良いです。
最初にC3:C4、D3:D4の色を消してから判定しても良いですし....。
If Cells(13, 2).Value = 3 And Cells(6, 5).Value = 1 Then
Worksheets("C").Range("C3:C4").Interior.ColorIndex = 4
Else
Worksheets("C").Range("C3:C4").Interior.ColorIndex = xlNone
End If
If Cells(13, 2).Value = 3 And Cells(7, 5).Value = 2 Then
Worksheets("C").Range("D3:D4").Interior.ColorIndex = 4
Else
Worksheets("C").Range("D3:D4").Interior.ColorIndex = xlNone
End If
他
Worksheets("C").Range("C3:C4").Interior.ColorIndex = xlNone
If Cells(13, 2).Value = 3 Then
If Cells(6, 5).Value = 1 Then
Worksheets("C").Range("C3:C4").Interior.ColorIndex = 4
End If
If Cells(7, 5).Value = 2 Then
Worksheets("C").Range("D3:D4").Interior.ColorIndex = 4
End If
End If
|
|