VBA，如何讓Excel中的公式可見

Question

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 

我有這個簡單的for循環，即把該值進入細胞在Excel中從n（由用戶給出）開始，倒退根據rate（這是也由用戶給出的值計算）。

我得到的輸出值是正確的，但我想讓我的公式在Excel中可見。例如，如果我按下單元格D13，我希望它顯示我使用的公式。我試圖用ActiveCell.Formula或ActiveCell.FormulaR1C1函數來做，但由於n並不總是一個特定的數字（因此在特定的單元格上），我找不到如何執行我想要的。

謝謝!!!

Answer 1

一般來說，你會用.Formula的公式附着在細胞，但是，如果單個組件不實際包含在電子表格中的其他細胞最好的，你要能夠做的是一樣的東西

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

如果datefin爲9且rate爲2，則會將公式"=9 - 2"放入單元格中。