Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim oCell As Range
If Target.Column < 18 And Target.Row < 19 Then
 For Each oCell In Range("F5:R14"
 If oCell.Value = 0 Then oCell.NumberFormat = "General"
 End If
 Next
End If
End Sub

Sub Макрос3()
'
' Макрос3 Макрос
'
'Sub example2()
     If O5 = 0 Then
    Selection.NumberFormat = "0.00"
    Else
    Selection.NumberFormat = "General"
    End If
End Sub