EXCELでシート名を出力できる？？

質問

シート名をあるセルに出力できるでしょうか？ヘッダー、フッターではなくですけど。EXCEL97,2000を使っています。

回答No.4

oresama · ベストアンサー

#1です。

新規ファイルに入れた場合、
関数を入力するまえに、任意のフォルダに保存して、
パス名まで確定させてからでないと、
『＃VALUE！』
が返るようです。
まず、どこか任意のフォルダに、
上書き、もしくは名前をつけて保存してください。

お礼

たび重ねてご親切なお答え有難うございました。バッチリできました(^.^)

回答No.3

imogasi

#2です。お礼部分に関して。
真似して、下記の通り、言われる通りに一度やって見てください。これだけでも良いじゃないですか。
本当はプログラムが組めれば、すごく応用範囲の広いものです。
＞ユーザー関数とかＶＢＥ画面で標準モジュール。）がちょっと難しくて、何をどうしていいのか
－－－－
エクセルの，問題にしている、シート画面をだします。
メニューの「ツール」をクリック
「マクロ」をクリック
「VBE」（VisualBasicEditor)をクリック
これでVBE画面に変ります。
そのVBE画面のメニューの「挿入」をクリック
「標準モジュール」をクリック
出てきた画面の一番大きい区画に
Function filen()
filen = ActiveSheet.Name
End Function
をOKWEBからコピーして、貼りつける。
シート画面に戻り
例えばB2セル(どこでも可）に=filen()と（関数式を入れると同じ要領で）入れれば、シート名が入ります。

お礼

imogasiさん、たび重ねてご回答、有難うございます。すごすぎます。えらい！。こんな英文法などは、どこで覚えられたのですか？VBEって聞いた事はありましたけど、こんなのどうやって皆、覚えてるんだろうって、感心してしまいます。何はともあれ、目からうろこでした(^.^)

回答No.2

imogasi

（１）関数式では＃１のＣＥＬＬ関数を使うのが定石ですが、フル名からシート名を抜き出すのが技巧的。
（２）ユーザー関数を使われた経験があれば（勉強してもらえれば）
ＶＢＥ画面で標準モジュールを挿入し
Function filen()
filen = ActiveSheet.Name
End Function
と１行です。filenは何でも、既存関数名以外ならＯＫ。
セットしたいセルに=filen()といれればＯＫ。

お礼

貴重なご回答有難うございます。お礼が遅くなって申し訳ございません。初心者の私には、ご指導の内容（ユーザー関数とかＶＢＥ画面で標準モジュール。）がちょっと難しくて、何をどうしていいのか、申し訳ないですが、訳分かりません。少し勉強してから、ご回答を参考にしたいと思います。

回答No.1

oresama

表示させたい任意のセルに
=MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,LEN(CELL("filename",A1)))
入れてみてください。

2000で試しました。

お礼

お礼が大変おそくなってすいません。お教え頂いた式をA1に貼り付けますが、2000,97とも『＃VALUE！』のエラーが出るのですが、どこかの設定を変えればいいのでしょうか？