Установить цвет фона в пределах диапазона ячеек в строке (без условного форматирования) - PullRequest
0 голосов
/ 05 марта 2020

Код копирования-вставки - ужасный стиль кодирования, но мне нужно было быстрое решение. Я хотел бы изменить цвет фона ячейки для нескольких ячеек подряд (не для столбца). Я написал несколько строк кода (ниже кода, который я скопировал и вставил), но я не уверен, что я делаю неправильно. В конечном счете, я хотел бы, чтобы l oop работал, чтобы потом я мог проверить значение ячейки в разных диапазонах чисел.

If Range("C5").Value = 0 Then Range("C5").Interior.Color = XlRgbColor.rgbRed
If Range("D5").Value = 0 Then Range("D5").Interior.Color = XlRgbColor.rgbRed
If Range("E5").Value = 0 Then Range("E5").Interior.Color = XlRgbColor.rgbRed
If Range("F5").Value = 0 Then Range("F5").Interior.Color = XlRgbColor.rgbRed

If Range("C8").Value = 0 Then Range("C8").Interior.Color = XlRgbColor.rgbRed
If Range("D8").Value = 0 Then Range("D8").Interior.Color = XlRgbColor.rgbRed
If Range("E8").Value = 0 Then Range("E8").Interior.Color = XlRgbColor.rgbRed
If Range("F8").Value = 0 Then Range("F8").Interior.Color = XlRgbColor.rgbRed

***** КОД, КОТОРЫЙ Я ХОТЕЛ БЫ ИСПОЛЬЗОВАТЬ *****

  'Set myRange = Range("C5:F17")
    'Dim cell As Range
    'For Each cell In myRange.Rows(1)
    'If cell.Value = 0 Then cell.Interior.Color = XlRgbColor.rgbRed
    'Next cell
    'If myRange.Rows(1).Value = 0 Then myRange.Interior.Color = XlRgbColor.rgbRed
    Application.ScreenUpdating = True
End Sub  

Ответы [ 2 ]

1 голос
/ 05 марта 2020

Добавьте. Ячейки, чтобы сделать это myrange.Rows (1). Ячейки. Причина в том, что без ячейки есть диапазон $ C $ 5: $ F $ 5, который вы можете увидеть с помощью Debug.Print cell.Address.

0 голосов
/ 05 марта 2020

должно быть -> myrange.Rows (1). Ячейки для доступа к каждой отдельной ячейке.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...