如何定義範圍內可變

Question

我剛開始VBA編碼和我在這裏打：

對於一個小區這個程序的工作原理：

Dim score As Integer, result As String 

score = Range("A1").Value 

If score >= 60 Then 

    result = "pass" 

Else 
    result = "fail" 

End If 

Range("B1").Value = result 

以及如何對單元格列？循環可以爲此工作？ 我的代碼使用循環 - 但如何定義範圍內的變量？

Dim score As Integer, result As String, I As Integer 

score = Range("AI").Value 

For I = 1 To 6 

If score >= 60 Then 

result = "pass" 

Else 

    result = "fail" 

End If 
Range("BI").Value = result 

Next I 

在此先感謝！

Answer 1

差不多了，你只需要使用字符串連接（&）

Dim score As Integer, result As String, I As Integer 

'score = Range("AI").Value 

For I = 1 To 6 

    score = Range("A" & I).Value '// Needs to be inside the loop to update. 

    If score >= 60 Then 
     result = "pass" 
    Else 
     result = "fail" 
    End If 

    Range("B" & I).Value = result 

Next I 

這也可以寫成：

For i = 1 To 6 
    Range("B" & i).Value = IIf(Range("A" & i).Value >= 60, "pass", "fail") 
Next 

Answer 2

你也可以去一個 「公式」 的方法：

Range("B1:B6").FormulaR1C1 = "=If(RC1 >= 60, ""pass"", ""fail"")" 

因此保持該檢查對列中任何可能的後續更改保持活動狀態一個單元格的值

，或者你應該想只有「靜態」值：

With Range("B1:B100") 
    .FormulaR1C1 = "=If(RC1 >= 60, ""pass"", ""fail"")" 
    .Value = .Value 
End With