エクセルにて シート名を取得し、数式に活用するには？

質問

１月というシート名と、２月というシート名があります。
２月のシートのセルＢ１には、='１月'!A1という式が入っています。

月が３月に変わった時に、２月のシートをコピーして、
シート名を３月と書き換えると、３月のシートのセルＢ１の式が
='２月'!A1と自動でなるようにしたいのです。

ＶＢＡを使わずに実現できる方法が有りますか？

３月のシートのセルＢ１の式を='２月'!A1に自動で変えたいと
言いましたが、実際には

='（シート名の数字を取得-１）月'!A1

といった数式にしたいのですが、可能でしょうか？

回答No.1

grumpy_the_dwarf · ベストアンサー

cell関数を使えば簡単です。

=cell("filename", $A$1)
とすると、「ディレクトリ[ファイル名]シート名」の形式でファイ
ル名が返ってきますので、"]"より後ろがシート名なわけです。する
と自分のシート名を取り出すには

=mid(cell("filename", $A$1),find("]",cell("filename", $A$1), 1)+1,99)

とすればいいと判りますね。今回は最後の99は3でもいいです。これ
をたとえばE1に書いておいたとしますと、B1には

=indirect(left($E$1,len($E$1)-1)-1&"月!$a$1")

でオッケー。

お礼

出来ました。
いつも半信半疑で質問するのですが、
毎回すばらしい回答をして下さる人がたくさんいてすごいです。
回答ありがとうございました。