學(xué)習(xí)啦 > 學(xué)習(xí)電腦 > 工具軟件 > 辦公軟件學(xué)習(xí) > Excel教程 > Excel函數(shù) > Excel中VBA中for循環(huán)語(yǔ)句的使用方法

Excel中VBA中for循環(huán)語(yǔ)句的使用方法

時(shí)間: 曉生931 分享

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)文章:

1.中小學(xué)優(yōu)秀作文范文

2.大學(xué)生找工作推薦信范文3篇推薦信是供學(xué)?;蛘邌挝粎⒖嫉氖?..

3.愛(ài)我中華小學(xué)生的演講稿3篇

4.excel中使用vba功能的方法

5.excel中使用vba的方法

6.EXCEL VBA編程基礎(chǔ)

7.excel怎么使用VBA窗口

2166628