如何遍历所有计算结果并保留每次计算结果

LV草地

自己做了一个模拟计算工具。计算模板已经做好了，其中有一个关键变量需要从6-30递增变化，并且分别得到计算结果。目前是手动一个一个变量输入到公式里，出结果，然后手动copy到表格里。

希望能有一个直接引用变量自动出结果并都显示出来的工具。

感谢各位支持！

附件是excel，请直接改文件后缀为".xlsx"即可。

512008404

上传个附件吧。便于解决问题。

LV草地

512008404 发表于 2023-9-28 13:15
上传个附件吧。便于解决问题。

已上传附件。请直接下载文件并改后缀名称为".xlsx"即可。

你地铁图

没看懂呢。。。。

leeson7502

你35行数字是取自何处？你自己看着改吧。

1. Sub cal()
   
2.     Dim ws As Worksheet
   
3.     Dim arr()
   
4.     Set ws = Sheets("Cockpit")
   
5.     With ws
   
6.         arr = .Range("B27:Z27").Value
   
7.         For i = LBound(arr) To UBound(arr, 2)
   
8.             .Cells(3, 2) = arr(1, i)
   
9.             Application.CalculateFull
   
10.             .Cells(31, i + 1) = .Cells(21, 2)
    
11.             .Cells(32, i + 1) = .Cells(22, 2)
    
12.             .Cells(34, i + 1) = .Cells(21, 6)
    
13.             .Cells(35, i + 1) = .Cells(22, 6)
    
14.         Next
    
15.     End With
    
16. End Sub
    

复制代码

feilanga

问题要描述清楚别人才能看明白，反正我看不明白。当变量为6的时候，下面方框里面的数据取自于哪里，这个你得说清楚对应关系

LV草地

leeson7502 发表于 2023-9-29 16:31
你35行数字是取自何处？你自己看着改吧。

sorry 是我没写明白。
35行数字是F22+F22

感谢支持！

LV草地

feilanga 发表于 2023-9-29 17:00
问题要描述清楚别人才能看明白，反正我看不明白。当变量为6的时候，下面方框里面的数据取自于哪里，这个你 ...

感谢提问！
我再描述一下：
31行是B21的计算结果copy；
32行是B22的计算结果copy；
33行可忽略编辑，其是31和32行的加总结果。
34行是F21的计算结果copy；
35行是F22+F23的计算结果合计结果。
36行可忽略编辑，其是34和35行的加总结果。

LV草地

leeson7502 发表于 2023-9-29 16:31
你35行数字是取自何处？你自己看着改吧。

这个代码我试过了。能用！
感谢支持！

LV草地

leeson7502 发表于 2023-9-29 16:31
你35行数字是取自何处？你自己看着改吧。

能否帮忙解读一下您的这个代码？
感谢支持！

Sub cal()
    Dim ws As Worksheet
    Dim arr()
    Set ws = Sheets("Cockpit")
    With ws
        arr = .Range("B27:Z27").Value
        For i = LBound(arr) To UBound(arr, 2)
            .Cells(3, 2) = arr(1, i)
            Application.CalculateFull
            .Cells(31, i + 1) = .Cells(21, 2)
            .Cells(32, i + 1) = .Cells(22, 2)
            .Cells(34, i + 1) = .Cells(21, 6)
            .Cells(35, i + 1) = .Cells(22, 6)
        Next
    End With
End Sub