[решено] Do Loop (точность) - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)

- - [решено] Do Loop (точность) (http://forum.oszone.net/showthread.php?t=315834)

denis130697

13-06-2016 21:10 2642607

Do Loop (точность)

Вложений: 1

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

Iska	13-06-2016 22:13 2642616

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

Код:

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

Время: 15:27.