Question

再次与我...处理另一个问题的同一个项目！

我有3个值（计算，但我只需要结果值），我只需要将其中1个值插入摊销时间表的FIRST单元中。插入值后，LAST单元格应等于0或接近它。

目前，我的循环永远持续到永恒的尽头。

<Webview
    hardwareAccelerationDisabledAndroid={true}
    ... />

我认为我使用的变量组合不正确，这就是为什么它不会触发“直到”的原因，但是我已经尝试了所有我能想到的明智组合。预先感谢！

Answer 1

您可以执行以下操作：

Dim LastCell As Range, UseCalc As Range
Dim arrPV(1 to 3) As Double, x as long

Set LastCell = Destination.Offset(9, 12).End(xlDown)
Set UseCalc = Destination.Offset(9, 12)

arrPV(1) = Destination.Offset(0, 12) '2440754.76
arrPV(2) = Destination.Offset(1, 12) '2400379.97
arrPV(3) = Destination.Offset(2, 12) '2429942.76

for x = 1 to ubound(arrPV)
    UseCalc.Value = arrPV(x)
    If LastCell.Value >= -1 And LastCell.Value <= 1 then exit for
next x

Answer 2

在循环作用域的末尾，您的LastCell值基于PV3，而不是PV2。遍历您的宏并检查UseCalc（UseCalc.Value），PV3和LastCell（LastCell.Value）的值。

此外，在循环期间您不会更改PV1，PV2或PV3的值，因此每个循环将具有完全相同的效果。没有任何变化，您的循环条件将不会触发。

直到单元格值在-1和1之间

2 个答案: