VBA 中的各種循環

利用循環和分支語句判斷 B 列數字的符號，將結果填入 C列。

原始表格如如下：

 

 1、For 循環和 If 語句，代碼如下：

Sub sign() Dim sign As String, i As Integer    '聲明變量
    For i = 3 To 13 Step 1
        If Cells(i, "B") < 0 Then sign = "負數"
        ElseIf Cells(i, "B") > 0 Then sign = "正數"
        Else sign = "零"
        End If Cells(i, "C") = sign    '向 C 列對應單元格中寫入數據
    Next i End Sub

運行代碼，結果如下：

 

2、For 循環和 Select Case 語句，代碼如下：

Sub sign() Dim sign As String, i As Integer   '聲明變量
    For i = 3 To 13 Step 1
        Select Case Cells(i, "B") Case Is < 0 sign = "負數"
          Case Is > 0 sign = "正數"
          Case Else sign = "零"
        End Select Cells(i, "C") = sign　　　　'向 C 列對應單元格中寫入數據 Next i End Sub    

 

 3、Do  While 循環和 Select Case 語句， 代碼如下：

Sub sign() Dim sign As String, i As Integer　　　　　　'聲明變量 i = 3　　　　'初始化循環變量 Do While Cells(i, "B") <> "" Select Case Cells(i, "B") Case Is < 0 sign = "負數" Case Is > 0 sign = "正數" Case Else sign = "零" End Select Cells(i, "C") = sign　　　　　　'向 C 列對應單元格中寫入數據 i = i + 1　　　　　　'更新哨兵變量 Loop End Sub

 

4、Do Until 循環和 Select Case 語句， 代碼如下：

Sub sign() Dim sign As String, i As Integer　　　　　　'聲明變量 i = 3　　　　　　'初始化循環變量 Do Until Cells(i, "B") = "" Select Case Cells(i, "B") Case Is < 0 sign = "負數" Case Is > 0 sign = "正數" Case Else sign = "零" End Select Cells(i, "C") = sign i = i + 1　　　　　　'更新循環變量 Loop End Sub