На основании значения данных ячейки B2 ячейки C2: W2 также будут установлены на число 0. - PullRequest
0 голосов
/ 14 мая 2019

У меня есть лист Excel, который заполняет данные из ранее созданного макроса.

У меня есть данные от B2 до W2 при количестве строк X.

Как мне получить код дляСчитайте значение из B2, и если B2 равно 0, вся строка изменится на 0, а внутренняя строка изменится на зеленый?И если B2 это что-то другое, чем 0, ничего не делать.Также возможно ли сделать это с помощью цикла для количества строк X?

Как в B1, B2, B3 ... BX

Спасибо за любую помощь.

РЕДАКТИРОВАТЬ ** Я пробовал что-то похожее на это,

RowAmount Определяет, сколько строк.

For Each cell in Range("B2:B" & RowAmount & "")

    If cell.value = 0 Then
        (part where I am Stuck on to change entire row)
    End If
Next cell

Эта часть не включает изменение цвета (с которым у меня также есть проблемы)

1 Ответ

0 голосов
/ 14 мая 2019

Вы можете использовать комбинацию Range & Cells, где значения 2 и 23 отвечают за применение изменений к столбцам B: W для данной строки.

For Each cell In Range("B2:B" & rowAmount & "")
    If cell.Value = 0 Then
        Range(Cells(cell.Row, 2), Cells(cell.Row, 23)).Value = 0
        Range(Cells(cell.Row, 2), Cells(cell.Row, 23)).Interior.Color = RGB(0, 200, 0)
    End If
Next cell

Надеюсь, это работает для вас.Также убедитесь, что вы правильно объявили свои переменные:

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