‘セルの値に応じてセルの色を塗り替える

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

For i = 2 To 26

For k = 2 To 26

Worksheets("sheet1").Cells(i, k).Interior.Color = RGB(255, 255, 255)

If Worksheets("sheet1").Cells(i, k) <> "-" Then

If Worksheets("sheet1").Cells(i, k) > 500 Then Worksheets("sheet1").Cells(i, k).Interior.Color = RGB(255, 155, 155)

If Worksheets("sheet1").Cells(i, k) > 2000 Then Worksheets("sheet1").Cells(i, k).Interior.Color = RGB(255, 55, 55)

End If

Next k

Next i

End Sub

備忘録