Макрос автоматическое прописывание имени столбца в зависимости от цвета - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д