Макрос автоматическое прописывание имени столбца в зависимости от цвета - VBA

Узнай цену своей работы

Формулировка задачи:

Привет не работает макрос, объясните, пожалуйста, что сделано не так? суть в том, что имя столбцов с K по V прописываются в ячейку I, если ее цвет синий.

Решение задачи: «Макрос автоматическое прописывание имени столбца в зависимости от цвета»

textual
Листинг программы
Sub color()
Dim r As Range, cell As Range, Strg As String
  Application.ScreenUpdating = False
  For Each r In Range("K2", Cells.SpecialCells(xlCellTypeLastCell)).Rows
    Strg = ""
    For Each cell In r.Cells
      If cell.Interior.ColorIndex = 37 Then Strg = Strg & vbLf & Cells(1, cell.Column).Value
    Next
    Cells(r.Row, "I") = Mid(Strg, 2)
  Next
Application.ScreenUpdating = True
End Sub

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


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

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

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