Подчеркивание всей строки в зависимости от значения в ячейке

@Warmorger · Регистрация: 14.01.2014

Студворк — интернет-сервис помощи студентам

Доброе утро.
Имеется файлик в котором в определенном столбце есть значение 0 или 1.
необходимо подчеркивать все строчку в которой имеется ячейка со значением один. Ниже написал код. но он подчеркивает только ячейку с указанным значением. а необходимо всю строчку или точнее диапазон ячеек до колонки с самим этим значением...

Visual Basic

Sub Макрос()
 
'
' Ìàêðîñ1 Ìàêðîñ
' Ìàêðîñ çàïèñàí '
' Ñî÷åòàíèå êëàâèø: Ctrl+z
'
 
    Dim i As Long
    For i = 57 To 10 Step -1
        If Not IsError(Cells(i, 7).Value) Then
            If Cells(i, 7).Value = 1 Then
            With Cells(i, 7).Borders(xlEdgeTop)
                 .LineStyle = xlContinuous
                 .Weight = xlThin
                 .ColorIndex = xlAutomatic
            End With
        End If
      End If
    Next i
End Sub

@Surrogate · 16.01.2014, 11:29

Сообщение от Warmorger

Visual Basic

With Range(Cells(i, 1), Cells(i, 7))
 .LineStyle = xlContinuous
 .Weight = xlThin
 .ColorIndex = xlAutomatic
 End With

примерно так

Опции темы