エクセルVBA 数式の中に、変数で定義したシート名を入力するには

いつもお世話になります。

=SUMPRODUCT(('[BOOK1.xls]SHEET1!$D$20:$D$1000=$E$4)*('[BOOK1.xls]SHEET1!$D$20:$D$1000!$O$20:$O$235>=$B9)*('[[BOOK1.・・・
という長い数式を、VBAに書き込みたいのですが、関数が長すぎるせいか、書き込めません。
そこで、
Dim SH1 As Worksheet
SET SH1 = Workbooks("BOOK1.xls").Worksheets("SHEET1")
として、[BOOK1.xls]SHEET1!をSH1に省略したいのですが、どのように数式に組み込めば良いでしょうか。

No.1 ベストアンサー 回答者： hogehage 回答日時： 2005/01/31 15:47

オブジェクト変数ではなく、文字列の変数として & で繋げてしまえばよいと思います。

（例）
T_SHEET = "[BOOK1.xls]Sheet1!"
Range("B2").Formula = "=SUM(" & T_SHEET & "$A$1)"

この回答へのお礼

"[BOOK1.xls]Sheet1!"ではうまくいきませんでしたが、前後に「'」をつけるとうまく行きました。

ありがとうございました。

お礼日時：2005/02/01 11:05