シート名を記入する

あるシートの Range("A1")のセルにそのシートのファイル名を、Range("B1")のセルに、そのシートのシート名を書きたいのですが、どんな関数を入れたらよいでしょうか？

教えてください。
よろしくお願いします。

質問者からの補足コメント

• 

  ありがとうございます。
  
  やってみましたが、シートＡで実施すると、回答が出るのですが、シートＢでも同じことをすると、
  シートＡまで、Ｂの内容に変わってしまいました。この式を入れると、その時だけは良いのですが、
  他のシートまで変換してしまい、うまくいきません。
  何か他に良い方法はないでしょうか？
  今回入れた式は、セルは指定せず、=RIGHT(CELL("filename"),2) です。
  よろしくお願いします。

  No.1の回答に寄せられた補足コメントです。 補足日時：2016/02/04 10:22

No.3 回答者： yambejp 回答日時： 2016/02/04 10:50

＞=RIGHT(CELL("filename"),2)

=RIGHT(CELL("filename",a1),2)
としてみては？

No.2 回答者： tom04 回答日時： 2016/02/04 10:34

こんにちは！

VBAになりますが、一例です。
Alt＋F11キー　→　メニュー　→　挿入　→　標準モジュール　→　VBE画面のカーソルが点滅しているところに
↓のコードをコピー＆ペースト　→　Excel画面に戻り（VBE画面を閉じて）
マクロを実行してみてください。
（Alt＞＋F8キー　→　マクロ　→　マクロ実行です）

Sub Sample1() 'この行から//
With ActiveSheet
.Range("A1") = ThisWorkbook.Name
.Range("B1") = .Name
End With
End Sub 'この行まで//

※　関数でないので、Sheet名やブック名が変更されるたびに
マクロを実行する必要があります。m(_ _)m

No.1 回答者： yambejp 回答日時： 2016/02/03 13:36

このへん？

http://kokodane.com/kan54.htm