ＶＢＡ セルに式を追加するには

質問

お願いします。

セルＣ３に”=D5*3”、
セルＣ４に”=D7*3”、
セルＣ５に”=D9*3”と式を書き込みたいのです。

まず、式を書き込むこと自体がどうすれば判りません。
次に、式をたくさん書き込みたいので、セルが一つずれるたびに、規則的にＤ列は２つ飛びに参照するようにするにはどうすれば良いか教えてください。

回答No.1

BLUEPIXY · ベストアンサー

startPos = 5
Count = 0
For Each x In Range("C3:C13")
x.Formula = "=D" & startPos + Count * 2 & "*3"
Count = Count + 1
Next
みたいな感じでやればいいです。

お礼

回答ありがとうございます。

教えていただいた方法で出来ることは確認しました。
大変申しわけないのですが、質問の内容を間違えてしまいました。

実際には、下記のようにデータが横方向に並んでいます。
この場合は数字ではなくアルファベットが増えていくのでどうすればよいのでしょうか？

セルＣ３に　”＝Ｄ５＊３”
セルＤ３に　”＝Ｆ５＊３”
セルＥ３に　”＝Ｈ５＊３”

回答No.3

BLUEPIXY

'横向き
Dim base As Range
Set base = Range("D5")

For Each x In Range("C3:F3")
x.Formula = "=" & base.Address(RowAbsolute:=False, ColumnAbsolute:=False) & "*3"
Set base = base.Offset(0, 2)
Next

お礼

回答ありがとうございます。

うまくいきました。
あと、縦の場合で教えていただいたように、数字を変化させてシンプルにコードを書くことは、横方向では出来ないのでしょうか？

回答No.2

imogasi

セルに式を残すなら
Sub test03()
For i = 3 To 20
Cells(i, "C").Formula = "=D" & ((i - 3) * 2 + 5) & "* 3"
Next i
End Sub
計算した値をセットするだけなら
Sub test02()
For i = 3 To 20
Cells(i, "C") = Cells((i - 3) * 2 + 5, "D") * 3
Next i
End Sub
式は残らない。

お礼

回答ありがとうございます。

ＮＯ１のお礼に書いたように、横方向の場合はどうすればよいのでしょうか？