前幾期圖文教程都是臨時(shí)插播的內(nèi)容，今天繼續(xù)為大家介紹VBA初學(xué)者教程,，如何在單元格區(qū)域循環(huán),。在使用VBA編程的過(guò)程中，經(jīng)常需要對(duì)某一區(qū)域內(nèi)的單元格執(zhí)行同一段語(yǔ)句,。為了達(dá)到這個(gè)目的,，可將循環(huán)語(yǔ)句和標(biāo)識(shí)每個(gè)單元格的一個(gè)或多個(gè)方法組合使用，沒(méi)循環(huán)一次,，就對(duì)一個(gè)單元格執(zhí)行一次操作,。

        對(duì)單元格區(qū)域進(jìn)行循環(huán)最常用的方法是使用For…Next循環(huán)語(yǔ)句和Cells屬性。使用Cells屬性時(shí),，可用循環(huán)計(jì)數(shù)器（或其他變量或表達(dá)式）作為單元格編號(hào),。下例中,，變量i代替了行號(hào),。此過(guò)程將在單元格區(qū)域“A1:A10”中循環(huán)，將所有小于0的單元格底色設(shè)置為紅色,。

Sub one()

    Dim i As Integer

    For i = 1 To 10 Step 1 '步長(zhǎng)為1

        If Cells(i, 1).Value < 0 Then

            Cells(i, 1).Interior.Color = vbRed

        End If

    Next

End Sub

        執(zhí)行完如上的代碼后,，單元格區(qū)域“A1:A10”中小于0的單元格背景色將被設(shè)置為紅色，如下圖所示：

        在既定的單元格區(qū)域內(nèi)循環(huán)的另一種簡(jiǎn)便的方法是使用For Each…Next循環(huán)語(yǔ)句和由Range方法返回的單元格集合,。在每一次循環(huán)過(guò)程中,，Visual Basic為下一次循環(huán)所用的單元格自動(dòng)設(shè)置一個(gè)對(duì)象變量。案例同上，具體代碼如下：

Sub two()

    Dim rng As Range

    For Each rng In Worksheets('Sheet1').Range('A1:A10').Cells

        If rng.Value < 0 Then

            rng.Interior.Color = vbRed

        End If

    Next

End Sub

        如果不知道要循環(huán)的單元格區(qū)域的確切邊界,，可用CurrentRegion屬性返回活動(dòng)單元格周圍的區(qū)域,。還是上面案例的要求，具體代碼如下：

Sub three()

    Dim rng As Range

    Range('A1').Select

    For Each rng In ActiveCell.CurrentRegion.Cells

        If rng.Value < 0 Then

            rng.Interior.Color = vbRed

        End If

    Next

End Sub

        執(zhí)行如上的代碼,，效果和上圖一致,，此處省略。不知道邊界的情況下也可以通過(guò)Do While…Loop,、Do Until…Loop,、Do…Loop While或Do…Loop Until來(lái)實(shí)現(xiàn)，一大波代碼來(lái)襲,，請(qǐng)做好準(zhǔn)備,。

Sub four()

    Range('A1').Select

    '當(dāng)活動(dòng)單元格不為空，執(zhí)行循環(huán)

    Do While ActiveCell.Value <> ''

        If ActiveCell.Value < 0 Then

            ActiveCell.Interior.Color = vbRed

        End If

        ActiveCell.Offset(1, 0).Select

    Loop

End Sub

Sub five()

    Range('A1').Select

    '直到活動(dòng)單元格為空,，執(zhí)行循環(huán)

    Do Until ActiveCell.Value = ''

        If ActiveCell.Value < 0 Then

            ActiveCell.Interior.Color = vbRed

        End If

        ActiveCell.Offset(1, 0).Select

    Loop

End Sub

Sub six()

    Range('A1').Select

    Do

        If ActiveCell.Value < 0 Then

            ActiveCell.Interior.Color = vbRed

        End If

        ActiveCell.Offset(1, 0).Select

    Loop While ActiveCell.Value <> ''

End Sub

Sub seven()

    Range('A1').Select

    Do

        If ActiveCell.Value < 0 Then

            ActiveCell.Interior.Color = vbRed

        End If

        ActiveCell.Offset(1, 0).Select

    Loop Until ActiveCell.Value = ''

End Sub

        上面4個(gè)宏代碼的執(zhí)行效果都和第一幅圖一致,，達(dá)到的效果完全一樣。經(jīng)過(guò)今天的學(xué)習(xí),，還在為不會(huì)循環(huán)為發(fā)愁嗎,？

        Tips：如果在書(shū)寫(xiě)循環(huán)過(guò)程中，導(dǎo)致死循環(huán)（執(zhí)行代碼不會(huì)結(jié)束,，Excel處于假死狀態(tài)）,，可以通過(guò)按下鍵盤(pán)上的Ctrl Break結(jié)束哦。