在Excel工作表中没有公式的目标寻求宏?

时间:2017-01-11 23:56:23

标签: excel vba excel-vba

我有一张工作表从外部源中提取数据列,然后是一个宏,然后使用该数据计算并填充工作表中的其他列。每行的计算输出取决于上面一行的值。最后,我想通过更改其中一个第一个单元格中的输入数据,将最后一行中一列的值设置为零。如果这是所有Excel公式,那么我可以做一个简单的目标搜索,但所有的计算都是在vba中进行的。

我是vba的新手,所以我不确定我问的是否可能。以下是我的宏计算方式的示例:

Public Sub Calculate()

i = 2
Do While Cells(i, 3) <> ""

Cells(i, 31).Value = Cells(i, 30) / (1 + Cells(i, 61))
Cells(i, 28).Value = -Cells(i, 14) * Cells(i, 31) 
Cells(i, 27).Value = (-Cells(i, 26) * Cells(i, 2)) 
Cells(i, 32).Value = Cells(i, 15) + Cells(i, 2) + Cells(i,27) 
Cells(i, 29).Value = Cells(i, 61) * (Cells(i, 15) + Cells(i, 2) 
Cells(i, 61).Value = (Cells(i, 60) + 1) 
Cells(i, 62).Value = (Cells(18, 3) + 1) 
Cells(i + 1, 15).Value = Cells(i, 32) 
Cells(i + 1, 16).Value = Cells(i, 33) 

i = i + 1

Loop

End Sub

基本上,第32列(AF)的最后一行的值取决于第2列(B)的第一行的值。所以我想根据这些计算改变B2的值,使AF500 = 0。我希望避免在表格中使用公式,所以我希望这是可能的。感谢您抽出宝贵时间阅读,并对可怕的代码感到抱歉。

0 个答案:

没有答案