Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Залить строку, если значение из столбца = значение из Array (Макросы/Sub)
Залить строку, если значение из столбца = значение из Array
ant6729 Дата: Воскресенье, 18.02.2018, 22:35 | Сообщение № 1
Группа: Проверенные
Ранг: Ветеран
Сообщений: 533
Репутация: 2 ±
Замечаний: 40% ±

Excel 2010
Всем привет!

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

Можно, конечно, обозначить каждое значение через переменную, но не понимаю, как через массив...
Попытки внутри. Приложил.
К сообщению приложен файл: 6228018.xlsm (14.2 Kb)
 
Ответить
СообщениеВсем привет!

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

Можно, конечно, обозначить каждое значение через переменную, но не понимаю, как через массив...
Попытки внутри. Приложил.
Автор - ant6729
Дата добавления - 18.02.2018 в 22:35
Апострофф Дата: Воскресенье, 18.02.2018, 23:04 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 468
Репутация: 129 ±
Замечаний: 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]
 
Ответить
Сообщение[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]
Автор - Апострофф
Дата добавления - 18.02.2018 в 23:04
doober Дата: Воскресенье, 18.02.2018, 23:07 | Сообщение № 3
Группа: Друзья
Ранг: Ветеран
Сообщений: 995
Репутация: 345 ±
Замечаний: 0% ±

Excel 2010
Один из вариантов.
[vba]
Код
Dim values As String
values = "|1|2|Вася|"
lr = Sheets("Лист1").Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lr
         If InStr(1, values, "|" & Cells(i, 1).Value & "|", vbTextCompare) > 0 Then Cells(i, 1).Interior.Color = 65535
Next i
' ересь согласен
[/vba]

 
Ответить
СообщениеОдин из вариантов.
[vba]
Код
Dim values As String
values = "|1|2|Вася|"
lr = Sheets("Лист1").Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lr
         If InStr(1, values, "|" & Cells(i, 1).Value & "|", vbTextCompare) > 0 Then Cells(i, 1).Interior.Color = 65535
Next i
' ересь согласен
[/vba]
Автор - doober
Дата добавления - 18.02.2018 в 23:07
ant6729 Дата: Воскресенье, 18.02.2018, 23:09 | Сообщение № 4
Группа: Проверенные
Ранг: Ветеран
Сообщений: 533
Репутация: 2 ±
Замечаний: 40% ±

Excel 2010
doober ))

Апострофф, doober Спасибо!
 
Ответить
Сообщениеdoober ))

Апострофф, doober Спасибо!
Автор - ant6729
Дата добавления - 18.02.2018 в 23:09
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Залить строку, если значение из столбца = значение из Array (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2026 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!