[Iska]

Скрытый текст

Код:

Option Explicit

Sub Sample()
    Dim i As Integer
    Dim iCount As Integer
    
    
    With ThisWorkbook.Worksheets.Item(1)
        .UsedRange.ClearFormats
        
        i = 5
        iCount = 0
        
        Do
            Select Case .Cells.Item(i, 3).Value
                Case Is > 0
                    iCount = iCount + 1
                    .Cells.Item(i, 3).Interior.Color = RGB(255, 0, 0)
                Case 0
                    Exit Do
                Case Else
                    ' Nothing to do
            End Select
            
            i = i + 1
        Loop
    End With
    
    MsgBox "Total found: " & CStr(iCount), vbInformation + vbOKOnly, "Total found"
End Sub