Заливка ячеек макросом по условию - VBA
Формулировка задачи:
Доброго времени суток. случилось не предвиденное... Не работает цикл. Я выделяю несколько строк на листе потом обрабатываю эти строки последовательно сверху-вниз макросом. Мне нужно в пределах выделения выкрашивать ячейку первого столбца после того как очередная стока обработана. Перепробовал разные циклы, но выкрашивается либо только первая строка соответствующая условию, либо весь столбец в пределах выделенного. Для примера добавляю файл с макросом. Нужно выделить все строки и запустить макрос. Выкрашивать хотя-бы по введенному номеру. Пожалуйста помогите разобраться?
Решение задачи: «Заливка ячеек макросом по условию»
textual
Листинг программы
Sub Заливка() Dim Zak As Range 'Object Dim Zakaz As String Zakaz = InputBox("Введите номер заказа (15 или 11 или 88 в данном случае)") 'Set Zak = Selection.Columns(1).Find(Zakaz) For Each Zak In Selection.Columns(1).Cells If Trim(Zak) = Zakaz Then Zak.Interior.Color = 5296274 Exit For End If Next End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д