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

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

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

                    Листинг программы
                
 
                        
                          
                    
Sub color()
 
lr = 3
 
Set Rng = Range("K:V")
Application.ScreenUpdating = False
For r = 1 To lr
Set DRng = Rng.Offset(r, 0)
        For Each cell In DRng
        If cell.Interior.ColorIndex = 37 Then
         If Strg = "" Then
            Strg = cell.Offset(-r, 0).Value
            Else
            Strg = Strg & Chr(9) & cell.Offset(-r, 0).Value
        End If
    End If
    
    Next cell
 
Range("K" & r + 1) = Strg
Strg = ""
 
Next r
Application.ScreenUpdating = True
End Sub

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

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы