代わりに、絶対値の相対的な範囲内の変数

Question

このコードを使用すると、正常に動作している：

ActiveCell.FormulaR1C1 = "=Sum(R[-6]C:R[-1]C)" 

しかし、その代わりの-6行に私が定義された変数を置きたい - 私はxを定義し、その後、私はそれを書く言うことができます

ActiveCell.FormulaR1C1 = "=Sum(R[-x]C:R[-1]C)" 

しかし、それは私にエラーを与えます。どうやってやるの？

Answer 1

変数の定数Textの部分を変数で区切る必要があります。それには"の前後に「&」を追加します。同様：

Dim x As Long 

x = 6 
ActiveCell.FormulaR1C1 = "=Sum(R[-" & x & "]C:R[-1]C)" 

注：" & x & "

以下のコードを試してみて、完全修飾CellsとRangeを使用する代わりに、ActiveCellを使用しないようお試しください。例えば、

Worksheets("Sheet1").Range("D10").FormulaR1C1 = "=Sum(R[-" & x & "]C:R[-1]C)"