Код копирования-вставки - ужасный стиль кодирования, но мне нужно было быстрое решение. Я хотел бы изменить цвет фона ячейки для нескольких ячеек подряд (не для столбца). Я написал несколько строк кода (ниже кода, который я скопировал и вставил), но я не уверен, что я делаю неправильно. В конечном счете, я хотел бы, чтобы 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