シート名をセルに反映させる方法？

質問

Excel2002を使用してます。
シート名をセルに自動表示？させたいのですが、何か方法はありますか？

回答No.1

KODAMAR · ベストアンサー

こちらは参考になりますでしょうか？（関数でのやり方）
マクロを使うとまた別の方法でもできます。

参考URL：

http://www2.odn.ne.jp/excel/waza/sheet.html#SEC5

お礼

お礼が遅くなりごめんなさい。
とても参考になりました。ありがとうございました。

回答No.2

happypoint

VBAをつかってユーザー定義関数を作成します。
手順さえ覚えれば、今回紹介したVBAをブックに組み込んで使うことは、
別段難しいものではありませんので、ぜひちゃれんじしてみてください。

まずExcelを立ち上げて、自動表示させたいブックを開いてください。

そして　Alt + F11 キーを押してください。
VBAを記述・編集するための「Visual Basic Editor(VBE)」という画面が立ち上がります。

画面左半分に、「プロジェクト」というツリー状の項目が表示されていると思います。
そのなかに、
「Microdoft Excel Objects」という項目の下に、
開いたブックのシート名が一覧で表示されていると思います。

この一覧画面の白い部分（なにもないところ）で、右クリックして
　挿入-標準モジュール
を選択してください。
そうすると、画面右半分に白紙の画面が現れると思います。

この白紙の部分に、下記コードを貼り付けてください。

'↓ここから
Option Explicit

Function SHEETNAME() As String
Application.Volatile
SHEETNAME = ActiveSheet.Name
End Function
'↑ここまで

そして、ワークシートに戻ってください。
そして、関数を入力する要領で、セルに

=SHEETNAME()

という数式を入力してください。
シート名がセルに表示されます。

お礼

お礼が遅くなりごめんなさい。
ＶＢＡにチャレンジしてみます。
回答ありがとうございました。