Залить строку, если значение из столбца = значение из Array

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Залить строку, если значение из столбца = значение из Array (Макросы/Sub)

ant6729

Дата: Воскресенье, 18.02.2018, 22:35 | Сообщение № 1

Группа: Проверенные

Ранг: Ветеран

Сообщений: 533

Репутация: 2 ±

Замечаний: 40% ±

Excel 2010

Всем привет!

Как если значение в просматриваемой колонке = значению из массива закрасить ячейку цветом?

Можно, конечно, обозначить каждое значение через переменную, но не понимаю, как через массив...
Попытки внутри. Приложил.

К сообщению приложен файл: 6228018.xlsm (14.2 Kb)

Ответить

Апострофф

Дата: Воскресенье, 18.02.2018, 23:04 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 445

Репутация: 123 ±

Замечаний: 0% ±

Excel 1997

[vba]

Код

Public Sub www()

Dim values As Variant

values = Array(1, 3, "Вася")

lr = Sheets("Лист1").Cells(Rows.Count, 1).End(xlUp).Row

For i = 2 To lr
  For j = 0 To UBound(values)
    If Cells(i, 1) = values(j) Then Cells(i, 1).Interior.Color = 65535
  Next
Next i

End Sub

[/vba]