[решено] Do Loop (точность)

[denis130697]

Здравствуйте пользователи oszone. Помогите пожалуйста решить задачу по Visual basic. Нужно её решить через do loop. Ячейки в указанных столбцах заполнять числами по своему усмотрению. Подготовить контрольные примеры. Результат выводить в окне сообщений. Выделить найденные ячейки цветом (заливкой или цветом шрифта)

[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