VBA的基礎知識04 判斷語句 05 迴圈語句

IIF函式判斷

Sub IIF函式()

[B1] = IIf([A1]。value <= 0, “負數或者是零”, “正數”)

End Sub

VBA的基礎知識  04 判斷語句 05 迴圈語句

判斷函式

————————————————————

Select 進行判斷

Sub 單條件的判斷例子()

Select Case [A1]。Value

Case Is > 0

[b1]。Value = “>0”

Case Else

[b1]。Value = “<=0”

End Select

End Sub

————————————————————

Sub 多條件判斷的例子()

Select Case [A1]。Value

Case Is > 0

[B1]。Value = “>0”

Case Is = 0

[B1]。Value) = “=0”

Case Else

[B1]。Value = “<0”

End Select

End Sub

和IF判斷語句類似,只是略有區別而已

VBA的基礎知識  04 判斷語句 05 迴圈語句

Select 和 IF判斷用法類似

以下案例來自於 趙志東 VBA入門到精通80集裡的案例,可以對比著看一看兩種判斷語句用法上的區別和結構。

VBA的基礎知識  04 判斷語句 05 迴圈語句

趙志東 ExcelVBA課程資料

主要是看一下結構 其實和函式結構是一樣的,邏輯也是一樣的。

=======================================

迴圈語句

Sub 手工迴圈()

Range(“d2”) = Range(“b2”) * Range(“c2”)

Range(“d3”) = Range(“b3”) * Range(“c3”)

………………………………………………

Range(“d6”) = Range(“b6”) * Range(“c6”)

End Sub

————————————————————

以下幾種迴圈方式 所達到的效果,都是一樣的

VBA的基礎知識  04 判斷語句 05 迴圈語句

迴圈語句

---------------------------------------------

Sub 迴圈結構1For迴圈()

Dim i As Integer

For i = 2 To 6

Range(“d” & i) = Range(“b” & i) * Range(“c” & i)

Next i

End Sub

第一種 用於迴圈次數確定

————————————————————

Sub 迴圈結構2ForEach迴圈()

Dim rg As Range

For Each rg In Range(“D2:D6”)

rg = rg。Offset(0, -1) * rg。Offset(0, -2)

Next

End Sub

第二種 用於對物件變數進行迴圈操作 單元格 工作表 工作簿 圖形等

————————————————

Sub 迴圈結構3DoWhile迴圈()

Dim i As Integer

i = 2

Do While i < 7

Range(“d” & i) = Range(“b” & i) * Range(“c” & i)

i = i + 1

Loop

End Sub

第三種 用於不確定迴圈次數 當條件滿足的時候進入迴圈

————————————————

Sub 迴圈結構4DoUntil迴圈()

Dim i As Integer

i = 2

Do

Range(“d” & i) = Range(“b” & i) * Range(“c” & i)

i = i + 1

Loop Until i = 7

End Sub

第四種 用於不確定迴圈次數 當條件不滿足的時候退出迴圈

可以自己拿到VBE視窗中試一試~

[點亮平安燈]