function - 変数を持つ関数を使用するマクロの作成

Question

私のコードは次のとおりです。

Dim N As Single
N = ActiveCell.Offset(0, 0).Value
E = 1 - N

ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=-SUM(R[E]C:R[-1]C)"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=-SUM(R[E]C:R[-1]C)"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=-SUM(R[E]C:R[-1]C)"
ActiveCell.Offset(1, 0).Range("A1").Select

値の 5 行目のスロットになるため、マクロ ユーザーに値 (例 5) を含むセルを選択してもらいます。プログラムで、それ以前のすべての値 (1、2、3、および 4) の負の合計を見つけてほしい。

Answer 1

SELECT の使用を回避する代替手段として、以下を提案できますか?

Sub SampleWithoutSelect()
Dim N As Single
N = ActiveCell.Offset(0, 0).Value
E = 1 - N

for iIndx=0 to -3 step -1
    range(activecell.offset(iindx,0).formular1c1="=-SUM(R[" & E & "]C:R[-1]C)"
next

End Sub

それはあなたが望むものですか - または私は何かが欠けていますか?