условное форматир

[550953]

Здравствуйте подскажите пожалуйста тупому решение. Есть лист в ширину А-Т и в длину до бесконечности. Если в столбце Е встретился 0 в результате вычисления (не пустая), то строка на которой он расположен(А-Т) должна быть перечеркнута.
Заранее спасибо.

[motorway]

Выделение строки цветом подойдет?

[motorway]

Попробуйте так

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Application.ScreenUpdating=False
For i = 1 To (ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1)
If (Cells(i, 5) = "0") Then
Rows(i).Select
    With Selection.Borders(xlDiagonalDown)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlDiagonalUp)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
   


End If


Next i
Application.EnableEvents = True
Application.ScreenUpdating=True
End Sub

[550953]

Если можно, то с применением условного форматирования перечеркиванием, без ВБА. ВБА на крайний случай с перечеркиванием, только напишите ламеру, куда и как, что бы автоматически срабатывал код.
Большое спасибо.

[motorway]

Нужно именно перечеркивание по середине строки или другое подойдет? По крайней мере у меня можно делать только внешние границы ячеек

[550953]

Нужно именно перечеркивание текста содержащегося в строке А-Т.

[motorway]

Нажимаем Условное форматирование - Правила выделения ячеек - Равно - Слева пишем "0" - справа "Польз. формат" - в Шрифте выбираем зачеркнутый.
VBA - Alt+F11 - вставить код

[550953]

Файл прикрепил результата. По столбцу Е все нули перечеркивает. Но строку всю не перечеркивает.

[motorway]

Попробуйте так: усл форматирование -> создать правило -> исп. формулу для опр. формат. ячеек (последнее) ->написать
=И(ЕПУСТО($E1)=ЛОЖЬ; $E1=0) -> задать перечеркивание -> и потом в управлении правилами форматирования посмотреть, к чему это применилось и изменить на =$1:$1048576

[550953]

Диапалазон не срабатывает, очень большое, Ставил на 999 результата нет, поставил на "=$A$83:$T$84", а в формулу
="И(ЕПУСТО($E$83)=ЛОЖЬ; $E$83=0)"
рузультата нет.