セルの値に応じて数式を入力するシートを変えたい

質問

• シート名に応じて数式を入力するマクロを作成したい
• シート「aaa」のD4セルに入力した値に応じて、上記で設定したシートのF7セルに数式を入力したい
• シート「aaa」のD4セルに「ccc」と入力して実行すると、シート「ccc」のF7セルに「=SUM(F5:F6)」の数式を入力するマクロを作成したい

回答No.9

SI299792 · ベストアンサー

入力したい式は
=IF(ISBLANK(G47),"",G47*I47)
最初に書いて下さい。

プログラム内に" を書くときは、""にする必要があります。
今回、""なので、""""にします。

４種類用意しました、
実際の数式の違う数式を書くのが嫌なら、Macro3、Macro4の様にして、直接セル上に数式を書くしかありません。
この２つを使う場合、図の様に入力してください。
'
Option Explicit
'
Sub Macro1()
'　 普通にに数式を入れる
　　Range([AAA!D4] & "!F7") = "=IF(ISBLANK(G47)),"""",G47*I47)"
End Sub
'
Sub Macro2()
'　 エラーになった場合、文字列にして強制的に入れる
　　Const Formula = "=IF(ISBLANK(G47)),"""",G47*I47)"
'
　　On Error Resume Next
　　Range([AAA!D4] & "!F7") = "'" & Formula
　　Range([AAA!D4] & "!F7") = Formula
　　On Error GoTo 0
End Sub
'
Sub Macro3()
'　 D4にシート、E4にアドレス、F4に数式を入れて実行
　　Range([AAA!D4] & "!" & [E4]) = [AAA!F4].Formula & ""
End Sub
'
Sub Macro4()
'　 D4にシート、E4にアドレス、F4に数式を入れて実行
'　 エラーになった場合、文字列にして強制的に入れる
　　On Error Resume Next
　　Range([AAA!D4] & "!" & [AAA!E4]).Formula = [AAA!F4].Formula
　　Range([AAA!D4] & "!" & [AAA!E4]).Formula = [AAA!F4].Formula & ""
　　On Error GoTo 0
End Sub

お礼

ご回答ありがとうございます。
「""""」にする事で無事入力できました。
質問の伝え方がわかりづらく申し訳ありませんでした。
ご丁寧な対応に感謝致します。