Excelのマクロに変数で式入力

質問

いつもお世話になります。
Excelのマクロをはじめたばかりの初心者ですが、いま、特定のセルを選び、一行下に挿入してから、ずらした行のセルに式を入力してオートフィルをかけるという作業をしています。

この特定のセルが次々と移動していくので、変数を使おうと思い、
Dim ro1, ro2, ro3, ro4 As Long
Dim セル番地 As String

として、
For myCnt = 1 To 15
ro1 = 2
ro3 = ro1 + myCnt * 2
セル番地 = "C" & ro3

と記述していきました。

そして
Rows(ro3 & ":" & ro3).Select
Selection.Insert Shift:=xlDown
Range(セル番地).Select
ActiveCell.Formula = "=C2*セル番地"

と記述して（実際にはまだつづきます）実行したところ、行の挿入とオートフィルがうまくいくものの、式の入力がうまく出来ません。

実際のシートを見ると、数式として
=C2*セル番地

が入力されています。

本来はこの数式を
=C2*C4

としたいのですが、いろいろとサイトを調べてもよくわかりません。

どなたか、よくご存知の方、教えていただけないでしょうか。

まだ勉強中なので、根本的に勘違いしているところもあるかもしれませんが、よろしくお願いいたします。

回答No.1

kmetu · ベストアンサー

"=C2*セル番地"

としてしまうとセル番地も文字列として入力されます。
変数の値を入力したいのなら

ActiveCell.Formula = "=C2*" & セル番地

ですよ。

回答No.3

imogasi

>いろいろとサイトを調べてもよくわかりません。
当たり前。ＶＢＡ利用としては、考え方（着眼点）が変わっている。
（１）そう言う式をオートフィルでいじくる方法もあるが、
マクロの記録を採ればコードはわかるので質問しなくてもすむ。
Sub test03()
Range("A1").FormulaLocal = "=$c$2*C3"
Range("A1").Select
Selection.AutoFill Destination:=Range("A1:A10"), Type:=xlFillDefault
End Sub
第３行目以下はマクロの記録から。
（２）コピー貼り付け方法
Sub test01()
Range("A1").FormulaLocal = "=$c$2*C3"
Range("A1").Copy Range("a2:A10")
End Sub
データ例
Ｃ２：Ｃ１２
2
3
1
4
5
2
7
1
4
5
6
として
結果
Ａ１：Ａ１０
6
2
8
10
4
14
2
8
10
12
確認は各セルをポイントして、スウシキバーを見る。
関数の役割で、ＶＢＡでやる意味は少ない。
（２）普通のＶＢＡでは、式をプログラムに書いて、計算し、結果（セルの値を）をセルにセットする。
Sub test02()
For i = 1 To 10
Cells(i, "D") = Range("c2") * Cells(i + 2, "c")
Next i
End Sub
結果はＤ列に出す。
Ａ列の上例と同行対応。結果は同じ。
ーー
初心者であるがために、初心者には難しい珍奇なやり方に拘って、質問しているのだと思う。
もっと例題集で色々な場合を丹念に集めて、読むべき。質問はその後。

回答No.2

pp300a

Dim ro1, ro2, ro3, ro4 As Long

まず　この使い方は間違いです
Dim ro1 As Long ,ro2 As Long ・・・となります
こうしないと最後のもの以外はVariant型になります

さて、

ActiveCell.Formula = "=C2*セル番地"

これは　"＝C2*セル番地"　という文字をセルに埋め込んだだけです
Activecell.Value= "=C2*セル番地" と同じです
ワークシート側ではVBAの変数は使うことができません