VBA:式の設定方法

Question

Excelフォームに入力して印刷してデータを消してを繰り返したいのですが、フォームに式を入れている場合、データを消した後に毎回 式を入力するという工程をいれたいのですがうまく入りません。
どのような構文にすれば式を入れることができるのかご教示ください。

Excelの場合は　D7のセルに　=集計!B1　と入力すれば反映する内容になります。

VBAで下記のように記載してもExcelの式のような結果が得られません。
Worksheets("入力シート").Range("D7").Formula="=Worksheets("集計").Range("B1")"

＜「入力シート」イメージ＞

＜「集計」シートイメージ＞

（一部抜粋）　　　
 With Worksheets("入力シート")

　　　  .Range("C1:H11").PrintOut
         Worksheets("集計").PrintOut
        .Range("D5:D11") = ""
         Worksheets("集計").Range("B3:C42") = ""
        .Range("D7").Formula="=Worksheets("集計").Range("B1")"

 End With

Answer 1

Excelの場合は　D7のセルに　=集計!B1　と入力すれば反映する内容になります。

セルの式なので、VBAでも同じです。

       .Range("D7").Formula="=集計!B1"

Comments

[SatokoH]

ExcelもVBAも同じなのですね。ありがとうございます。

[hatena19]

セルに対する設定ですからね。
VBAコード内でB1の値を取得して利用するなら、
Worksheets("集計").Range("B1").Value
になります。

[SatokoH]

ありがとうございます。勉強になります

Answer 2

シンプルに

.Range("D7").Formula="=集計!B1"

とするか、

.Range("D7").Value = Worksheets("集計").Range("B1").Value

でどうでしょうか。

Comments

[SatokoH]

シンプルにExcelと同様に考えればよかったのですね。いつもありがとうございます