| |
いつも大変お世話になっております。
相変わらずVBのスキルが上達せず苦慮しつつもこちらでお勉強させていただいております。
今回、VBで自動的にセルの中に数式を入れるスクリプトを書いているのですが、
数式内には変数が使えないのか、なかなか思うようにいきません。。。
やりたいことは：
●”シートA”の数値を“シートB”へ数式を自動入力することで取得させたい
●わざわざVBで数式入力させたい理由は、データ元の“シートA”の数値はつど変動するので、“シートB”にあらかじめ数式を入れておくことができないため
そこで、下記のようなコードを書いてみたのですが。。。
Sub 反映()
Dim lastrow As Integer 'データ入力最終行
Dim wkbk As Workbook 'カレントブック
Dim gyo As Integer ’データ反映先の行番号
Dim retsu As Integer ’データ反映先の列番号
Dim siki As String ’入力したい数式
Set wkbk = ActiveWorkbook
Sheets("シートB").Select
Range("B27").Select 'セルB27から下は順に年月日の情報が入っています
'年月日が入った最後の行番号を取得
lastrow = Selection.End(xlDown).Row
gyo = 27 ’数式はセルC27から下方向に入れる
retsu = 3
’数式は【=SUM(シートA!$L3)】で列だけ絶対参照にして入れていく
siki = "=SUM(シートA!R[-24]C12)"
Do
Worksheets("シートB").Cells(gyo, retsu) = siki
gyo = gyo + 1
Loop Until lastrow + 1 = gyo ’B列の年月日の情報がなくなるまで繰り返す
End Sub
という具合に書いてみたのですが、
参照元（シートA）のデータが、１行飛ばしに入力してあるので、
当たり前ですが、上記コードではシートBの数式は全ての行の計算結果を持ってきてしまい、下記のような結果になります。
【シートA】
A B C…
1 10
2
3 12
4
5 14
【シートB】
A B C…
1 10
2 0
3 12
4 0
5 14
ほんとうは、このように表示させたいのですが。。。
●シートB●
A B
1 10
2 12
3 14
4
数式の中に変数を入れられれば、出来そうだったのですが、
素人の頭で、
n = -24
siki = "=SUM(シートA!R[n]C12)"
n = n + 1
で、Do Loopで1行飛ばしの数式が入るように書いてみましたが、やはりエラーになりました。。。OTL
R1C1形式を使ってセルを指定する場合、行・列番号に変数を使うのはできないのでしょうか？？
また、他になにかいい方法があればアドバイスをお願いいたします。m(_ _)m
長く、つたない説明で大変申し訳ございませんが、よろしくお願いいたします。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
