主页 / coding / 问题 / 79190682
Accepted
MiceofMen
Asked: 2024-11-15 07:10:47 +0800 CST

如何防止 for 循环出错

  • 772
Sub NewThing()

Dim Cell As Range

For Each Cell In Worksheets("Question 2").Range("B3:B11").Cells

    If Cell.Value >= 90000 Then
    
        Range("C3:C11").Value = Cell.Value * 1.5
    Else
        Range("C3:C11").Value = Cell.Value * 1.1
    
    End If

Next Cell

End Sub

当我进入 vba 编辑器时，我可以看到 C3:C11 中的值循环，我做错了什么？它从 B11 中获取最后一个值并将其用于整个列。请帮忙。

excel

3 个回答

  1. Best Answer

    这里的问题是，您在每次迭代中都使用单个值设置整个范围 C3:C11，而不是在循环中设置相应单元格的值。

    您不应该更新整个范围，而应该更新C 列中的相应单元格。您可以使用Offset方法或通过明确引用 C 列中的单元格来修复它。

    Sub NewThing()

    Dim Cell As Range

    For Each Cell In Worksheets("Question 2").Range("B3:B11").Cells

        If Cell.Value >= 90000 Then
            ' Update the corresponding cell in column C using Offset
            Cell.Offset(0, 1).Value = Cell.Value * 1.5
        Else
            Cell.Offset(0, 1).Value = Cell.Value * 1.1
        End If

    Next Cell

End Sub
    • 1

  2. 我不是 VBA 专家，但它似乎循环正确，但每次迭代时您都会将 cell.value 乘法应用于整个列。您想要的是计算每个单元格的乘法，并将该值放在右侧。

    而不是

    范围（“C3：C11”）。值 = 单元格值 * 1.5

    你可能想要类似的东西

    单元格.偏移量（0，1）.值 = 单元格.值 * 1.5

    • 1

  3. 代替

        If Cell.Value >= 90000 Then
    
        Range("C3:C11").Value = Cell.Value * 1.5
    Else
        Range("C3:C11").Value = Cell.Value * 1.1
    
    End If

    经过

        Cell.Offset(0, 1).Value = Cell.Value * Iif(Cell.Value >= 90000, 1.5, 1.1)
    • 0

相关问题