Excelの質問です。

質問

ブック名をそのブック内の特定のセルに表示させる方法と、シート名にそのシートの特定のセルの値（文字）を表示させる方法を教えて下さい。

回答No.1

mshr1962 · ベストアンサー

ブック名ですが
=CELL("filename")
で
C:\Documents and Settings\ユーザー名\My Documents\[Book.xls]Sheet1
が表示されます。（ただし、ファイルを１度保存する必要があります。）
ブック名のみの場合は
=MID(LEFT(CELL("filename"),FIND(".xls",CELL("filename"))-1),FIND("[",CELL("filename"))+1,100)
の様にしてください。

シート名の方はマクロを組むしかないと思います。

お礼

早々のご回答有難うございました。
早速やってみます。

回答No.3

imogasi

＝CELL("filename")を使う場合（＃１のお答え）
シート名は、C18に上記関数を入れたとして、別セルに
=RIGHT(C18,LEN(C18)-FIND("]",C18))で出るように思いますが。

回答No.2

ept63

エクセル起動後に[alt]+[F11]を押してＶＢＡを起動します。
VBAProject(BOOK1)の所で「右クリック＞挿入＞標準モジュール」とします。
そこで出来た空白部分に、
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Sub test()
'ブック名をセル「Ａ１」にコピーします。
Cells(1, 1) = ActiveWorkbook.Name

'セルの名前を「Ａ２」からコピーします。
ActiveSheet.Name = Cells(2, 1)
End Sub
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
（＝＝＝は含まない）を入力します。
subの中でＦ５を押すとプログラムが実行します。