[[20021007161409]]　『シート名をＡ１セルの入力内容にする方法を』（誠）　ページの最後に飛ぶ

『シート名をＡ１セルの入力内容にする方法を』（誠）

シート名をＡ１セルの入力内容にする方法を教えて下さい。（誠）

シート名を特定セル（例えばＡ１セル）に表示させる方法は、このサイトを見させていただき、

わかったのですが、逆の場合は、どうすればよいのでしょうか？

使い方としては、納品書の番号（セルA1に入力)をシートの名前として、１ヶ月単位でファイルを分けて保存してゆきたいのですが・・・　で、理解していただけますか？

こんばんは

 関数ではちょっと考え付きませんでした。

 マクロになります、

 Private Sub Worksheet_Change(ByVal Target As Range)

     On Error Resume Next

     If Target.Address = "$A$1" Then

         ActiveSheet.Name = Target.Value

     End If

 End Sub

 イベントマクロになります、

 使用するシート名のタブのところで右クリックをするとＶＢＥの編集画面が出ると思います

 そこにコピーをして貼り付けてください。

 Ａ１の値が変更されるとシート名も変更します。

 ※シート名は、半角３１文字まで、：コロン、/スラッシュ・・・・・・・等の

 　制限はありますので注意してください（詳細はヘルプを見てください）

 よければ試してみてください。

 （尋）

尋さん　ありがとうございます。シート名の変更できました。

　ただ、ブック内全てのシートに対して実行できません。

　シートタブを右クリックでコピーしてゆけば可能ですが、

　シートを追加する場合、［挿入］-［ワークシート］の方が楽なのですが、

　ブック内の全てのシートに反映させる事は無理なのでしょうか？

　（誠）

こんばんは

 各シートのＡ１の値をシート名に変更していきます

 Sub WSN_change()

  Dim WS As Worksheet

  on error resume next

  For Each WS In Worksheets

      If Not IsEmpty(WS.Range("A１").Value) Then

         WS.Name = WS.Range("A1").Value

      End If

  Next

 End Sub

 標準モジュールに貼り付けてください。

 マクロをツールバー等にボタン登録するといいかもしれません。

 ちょっと試してみてください。

 （尋）

ありがとうございました

ＶＢＥに関しては、解らない事だらけですが、試行錯誤の上、何とか出来ました。

ボタン登録に関しても、意図された事とは違うと思いますが、ＶＢＥのツールバーを表示させ、

実行ボタンからマクロを選択し、実行するようにして行こうと思っています。

（誠）

この過去の質問で2010/3/1と入力するとシート名が変わりません？文字や数字だとシート名を変更できますが日付だとダメでした日付のみで表示可能にできますか？（もも）

 上の方にこんな注意書きがありますが。。。 日付の形をそれに抵触しないように変えられませんか？
 　　　　　　↓
 > ※シート名は、半角３１文字まで、：コロン、/スラッシュ・・・・・・・等の
 > 　制限はありますので注意してください（詳細はヘルプを見てください）

 (半平太) 2010/04/03 07:58

コメント返信：