在VBAmacrosexcel代码中添加公式expression式而不是值

我正在编写一个VBA代码来对Excel进行一些计算。 我有一个数字单元格，我希望另一个单元格具有基于第一个公式的公式 ，而不是公式的计算值。 我一直在尝试使用.Formula，但它不工作：

'Ciclo Cells(rowWhereToAddPhase, 6).Value = Round(3600 / Worksheets(originalSheet.Name).Cells(row, 22), 2) 'Prod/h Cells(rowWhereToAddPhase, 7).Formula = "=Round(60 / Cells(rowWhereToAddPhase, 6).Value * 60, 0)" 

当我尝试这个时，我只是得到错误400。

如果，而是我使用这个：

 'Prod/h Cells(rowWhereToAddPhase, 7).Value= Round(60 / Cells(rowWhereToAddPhase, 6).Value * 60, 0) 

我只是得到一个普通的数字。

图像，它在第二种情况下的外观：

在这里input链接描述

我想如何得到它：

在这里input链接描述

我想象的问题是如何调用单元格：我使用Cells(**rowWhereToAddPhase**, 6)来引用它，因为我不知道它是哪一行，但我想我应该用另一种方式。

有任何想法吗？

谢谢

Answer 1

 Cells(rowWhereToAddPhase, 7).Formula = _ "=Round(60/" & Cells(rowWhereToAddPhase, 6).Address() & "*60,0)" 

Answer 2

.Formula需要是一个string，其内容与在Excel中手动input公式时的内容相同（例如oRange.Formula =“= SUM（A5：C7）”）。

尝试手动在Excel单元格中创build公式。 然后，当它的工作，通过VBA设置，也许使用一些string连接来获取variablesrowWhereToAddPhase在那里。