Question

我一直在寻找解决方案的时间，但找不到任何解决方案。我是VBA的绝对初学者，无法为自己解决这个问题。我想要做的是VBA在单元格中输入一个公式，该公式将包含从变量中提取的值，然后减去所有下面的单元格。下面的单元格可能会改变，这会影响整体价值，因此我需要将其保持为动态。（例如：Cell A1应如下所示：= 500-A2-A3-A4 ..等）。目前代码看起来像这样。到目前为止，它只输入变量

的值

crnt = Cells(5, "D").Value
Range("E60").Select
ActiveCell.Offset(0, crnt - 1).Activate
rev = ActiveCell.Value
Range("E9").Select
ActiveCell.Offset(0, crnt - 1).Select
ActiveCell.Value = rev

Answer 1

你可能想要这个：

InVal = 500          ' input value
Cells("A1").FormulaLocal = "=" & CStr(InVal) & "-A2-A3-A4"

或循环

Dim InVal() as Variant
InVal = Range("M60:Z60").Value

For i = LBound(InVal) to UBound(InVal)
    Cells(1, i + 1).FormulaLocal = "=" & CStr(Val(InVal(i))) & "-" & Cells(2, i + 1).Address & "-" & Cells(3, i + 1).Address & "-" & Cells(4, i + 1).Address 
Next i

您需要做的就是使用.Address和字符串来编译公式。

用于组合变量和单元格引用的公式

1 个答案: