Заливка ячеек макросом по условию - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 4 из 5
Похожие ответы