Excel中VBA中for循環(huán)語(yǔ)句的使用方法
Excel中VBA中for循環(huán)語(yǔ)句的使用方法
for循環(huán)語(yǔ)句在VBA中扮演著比較重要的角色,為我們批量的處理表格數(shù)據(jù)提供了一個(gè)很好的途徑,今天,學(xué)習(xí)啦小編就教大家在Excel中VBA中for循環(huán)語(yǔ)句的使用方法。
Excel中VBA中for循環(huán)語(yǔ)句的使用步驟如下:
我們常用的for循環(huán)語(yǔ)句有兩種,一個(gè)是for ……next結(jié)構(gòu);一個(gè)是For each……next結(jié)構(gòu)。這兩種結(jié)構(gòu)主要都是針對(duì)多數(shù)據(jù)循環(huán)遍歷的時(shí)候用到的。那么下面我將分別來(lái)介紹一下兩種循環(huán)結(jié)構(gòu)的具體用法,首先還是要打開(kāi)VBA編輯器。
1.for……next結(jié)構(gòu)
這個(gè)結(jié)構(gòu)一般是這樣的:
for i=初始值 to 結(jié)束值 step 步長(zhǎng)值
……
next
具體解釋一下,初始值指的是循環(huán)開(kāi)始的值,結(jié)束值指的是循環(huán)結(jié)束的值,實(shí)質(zhì)上就是i值得一個(gè)判斷,如果i值在起始值和結(jié)束值之間,那么進(jìn)入循環(huán)語(yǔ)句,然后i值每運(yùn)行到next語(yǔ)句后會(huì)自動(dòng)加一個(gè)步長(zhǎng)值,直至i值超出了初始值到結(jié)束值這個(gè)范圍,循環(huán)才會(huì)結(jié)束。這里要說(shuō)明一下”step 步長(zhǎng)值“往往是省略掉的,省略掉的話,步長(zhǎng)取默認(rèn)值為1。下面將以一段小實(shí)例來(lái)具體說(shuō)明這個(gè)結(jié)構(gòu)的用法:
實(shí)例:在sheet1工作表中一次輸出1到10這個(gè)數(shù),顯示在第一列中。
程序:
Sub 循環(huán)語(yǔ)句()
Dim i As Integer
For i = 1 To 10
Cells(i, 1) = i
Next
End Sub
步長(zhǎng)為+2的for循環(huán)結(jié)構(gòu)
這里我們看一下一個(gè)示例程序吧
程序:
Sub 循環(huán)語(yǔ)句()
Dim i As Integer
For i = 1 To 10 Step 2
Cells(i, 1) = i
Next
End Sub
步長(zhǎng)為-1的for循環(huán)結(jié)構(gòu)
這里同樣的我們來(lái)看一下當(dāng)step值為-1的時(shí)候,程序又會(huì)是如何的呢?
看下面實(shí)例程序:
Sub 循環(huán)語(yǔ)句()
Dim i As Integer
For i = 10 To 1 Step -1
Cells(i, 1) = i
Next
End Sub
2.for each……next結(jié)構(gòu)
具體結(jié)構(gòu):
For each 對(duì)象變量 in 對(duì)象集合
……
next
具體解釋一下,這里我們看到和上一個(gè)結(jié)構(gòu)的而不同的是上面一種結(jié)構(gòu)主要是數(shù)值變量,而這種結(jié)構(gòu)是對(duì)象變量。什么意思呢?each……in指的是在這個(gè)對(duì)象集合里面,一次將每一個(gè)對(duì)象都遍歷一邊。同樣的道理,執(zhí)行到next后對(duì)象自動(dòng)指到下一個(gè)。具體我們來(lái)看一下下面的一個(gè)實(shí)例吧
實(shí)例:給一個(gè)數(shù)據(jù)區(qū)域內(nèi)的所有單元格賦值,從1開(kāi)始。
分析:顯然數(shù)據(jù)區(qū)域就是一個(gè)對(duì)象集合,單元格就是這個(gè)集合里面的對(duì)象
程序:
Sub 循環(huán)語(yǔ)句()
Dim i As Integer
For Each c In Range("a1:c5")
i = i + 1
c.Value = i
Next
End Sub
循環(huán)語(yǔ)句運(yùn)用起來(lái)是很靈活的,上面只介紹了兩種循環(huán)語(yǔ)句的基本用法,循環(huán)語(yǔ)句是可以套用的,這個(gè)就需要結(jié)合具體情況來(lái)靈活運(yùn)用了!
下面我們用多循環(huán)語(yǔ)句嵌套來(lái)實(shí)現(xiàn)乘法口訣:
程序:
Sub 循環(huán)語(yǔ)句()
Dim i, j As Integer
For i = 1 To 9
For j = 1 To i
Cells(i, j) = i & "*" & j & "=" & i * j
Next
Next
End Sub
Excel中VBA中for循環(huán)語(yǔ)句的使用方法相關(guān)文章: