如何定义范围内可变

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