Excel_VBAでセル参照式を変更するには？

質問

あるシートのA1セルに、他シートセルの参照式を入れたく思います。
シート名は固定ですが、セルは下・右に移動させるため変数としています。
例えば、Sheet_1シートA列のrow_1を1-10までDO文でまわす場合に、行も数字で表記されてしまうため下記では参照式が成立しません。

　cell_formula = "Sheet_1!" & row_1 & col_1
　ActiveCell.Value = "=" & cell_formula

上記だと「cell_formula = Sheet_1!11」となってしまい、希望する「Sheet_1!A1」とならないのでエラーとなります。
間に変換式を入れることで、「Sheet_1!A1」と変えられないでしょうか？

説明が悪いようでしたら補足しますので、よろしくお願い致します。

回答No.1

xls88 · ベストアンサー

cell_formula = "Sheet_1!" & row_1 & col_1
を
cell_formula = "Sheet_1!" & Cells(row_1, col_1).Address
と変えてみてください。

お礼

早々の回答をありがとうございます、このような乱文で的確な回答を短時間にいただけるなんて・・・。
ちなみに、後学のため併せてお聞きしたいのですが、これだと絶対参照になるようです。相対参照にしたい場合はReplaceで$を置換するのでしょうか？

回答No.2

xls88

Replaceで$を置換してもできます。
折角ですから、ConvertFormulaメソッドを紹介します。

例えば
ActiveCell.Value = "=" & cell_formula
ActiveCell.Formula = Application.ConvertFormula(ActiveCell.Formula, xlA1, , xlRelative)

あるいは下記のように1行に纏めることもできます。
ActiveCell.Formula = Application.ConvertFormula("=" & cell_formula, xlA1, , xlRelative)

お礼

これまた迅速な回答をありがとうございます、素晴らしい知識をお持ちですね。自動マクロをコーディネートする程度の私からは、xls88さまは雲の上のお人です。
非常に助かりました、また、精進して近づけるようがんばります。