0
Dim n As Double
n = Sh.Range("B10").Value

Dim rate As Double
rate = (datefin - datedepart) / n

Cells(13, n + 3) = datefin

For y = n - 1 To x Step -1
Cells(13, y + 3) = datefin - rate
datefin = datefin - rate
Next y

我有这个简单的循环,它将值从(由用户给出)开始并根据 a (也由用户给出的值计算)for将值放入 excel 中的单元格中。nrate

我得到的输出值是正确的,但我想让我的公式在 excel 中可见。例如,如果我按下单元格,D13我希望它显示我使用的公式。ActiveCell.Formula我试图用orActiveCell.FormulaR1C1函数来做,但因为n它并不总是一个特定的数字(因此在一个特定的单元格上)我找不到如何执行我想要的。

谢谢!!!

4

1 回答 1

2

通常,您会使用.Formula将公式附加到单元格,但是如果各个组件实际上并未包含在电子表格的其他单元格中,那么您将能够做的最好的事情是

Cells(13, y + 3).Formula = "=" & format(datefin) & " - " & format(rate)

如果 datefin 为 9 且 rate 为 2,则将公式"=9 - 2"放入单元格中。

于 2013-03-30T17:43:21.410 回答