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

私はこの単純なループを持っています。これは、(ユーザーによって与えられた) から始まり、(ユーザーによって与えられた値によっても計算されます) に従って逆方向にfor値を Excel のセルに入れます。nrate

取得した出力値は正しいのですが、数式を Excel で表示できるようにしたいと考えています。たとえば、セルを押すと、D13使用した数式が表示されます。ActiveCell.FormulaorActiveCell.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 に答える