Я пытаюсь обновить этот короткий макрос, который я использую для выделения значений в моей электронной таблице. Существует ли метод проверки состояния ячейки? Я хочу изменить цвет ячеек на белый, если текст обновляется. Я не хочу просто менять любой другой цвет в моей электронной таблице на белый, это недопустимый случай, потому что у меня есть другие цвета, которые я хочу сохранить. Я просто хотел бы проверить:
, если цвет был изменен и больше не является допустимым, перекрасьте ячейку обратно в белый ...
Private Sub CommandButton1_Click()
Dim itm As Range
Application.ScreenUpdating = False
For Each itm In ActiveSheet.UsedRange.Offset(1)
If Not IsError(itm) Then
With itm
Select Case .Value2
Case "GREEN", "green", "Green"
.Interior.Color = XlRgbColor.rgbLightGreen
Case "RED", "red", "Red"
.Interior.Color = XlRgbColor.rgbRed
Case "Serverely Delayed"
.Interior.Color = XlRgbColor.rgbRed
Case "Yellow", "yellow", "Yellow"
.Interior.Color = XlRgbColor.rgbYellow
Case "Delayed", "delayed"
.Interior.Color = XlRgbColor.rgbYellow
Case "Complete", "complete"
.Interior.Color = RGB(153, 204, 0)
End Select
End With
End If
Next
Application.ScreenUpdating = True
End Sub