VBA метод, чтобы увидеть, если ячейка изменила цвет? - PullRequest
0 голосов
/ 25 февраля 2020

Я пытаюсь обновить этот короткий макрос, который я использую для выделения значений в моей электронной таблице. Существует ли метод проверки состояния ячейки? Я хочу изменить цвет ячеек на белый, если текст обновляется. Я не хочу просто менять любой другой цвет в моей электронной таблице на белый, это недопустимый случай, потому что у меня есть другие цвета, которые я хочу сохранить. Я просто хотел бы проверить:

, если цвет был изменен и больше не является допустимым, перекрасьте ячейку обратно в белый ...

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
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...