☰

每次更改单个输入单元时记录多个计算结果

tag-icon • tag-icon microsoft-excel worksheet-function vba microsoft-excel-2016
每次更改单个输入单元时记录多个计算结果

我有一个电子表格，用于计算威斯康星州不同太阳能光伏容量水平下每个燃料源的发电量和排放量，占该州总发电量的百分比。

现在我可以为总容量的这个百分比输入一个值，电子表格就会计算出我想要的该设定点的结果（四个值）。

我正在寻找一种方法，将输入从 1 更改为 100，并在每个输入时记录一行数据作为结果。

我已在其他（非 Microsoft）应用程序中使用过 VBA，因此我愿意接受使用 VBA 的解决方案，但我不确定如何在 Excel 中开始使用 VBA。

答案1

明白了！感谢@Raystafarian 提供的使用“录制宏”的提示，这非常有帮助。这是我最终使用的代码：

Sub iteratePV()

Dim i As Integer
Dim pasterow As Integer
Dim copyrange As String

For i = 1 To 200
    Range("A2").Select
    ActiveCell.FormulaR1C1 = i / 100
    Range("A2:M2").Select
    Selection.Copy
    pasterow = i + 2
    Let copyrange = "A" & pasterow
    Range(copyrange).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Next i
End Sub

A2是我以百分比形式输入值的地方，结果输出填充范围B2:M2。

然后将这些结果复制到后续行中。

相关内容