[[20030701112433]]　『シートの名前を特定のセルの文字列に』（黒ドラ）　ページの最後に飛ぶ

『シートの名前を特定のセルの文字列に』（黒ドラ）

シートの名前を特定のセルに入っている文字列に置換したい。

はじめまして。
エクセルを使いはじめたばかりの初心者です。
題名のとおり、シートの名前を"A5”セルから参照してそのまま表示させたいのですが、やり方がよくわかりません。過去ログなどを参考にためしてみたのですがうまくいきません。

いまやりたいことは、シートの"A5"というセルに入っている文字列をそのままシート名称にしたいのですが、シート名称のところに”=A5”と入れてもセルが参照されないので困っています。

また、シートの名前を一括で変更することは出来るのでしょうか？

できれば一括でセル参照（すべてのシートがそれぞれのシートの同じ位置のセルを参照）にしたいのですが・・・。

こんにちは

逆の質問はよくありますが・・・・

一般機能では出来ないと思います。
VBAでなら、結構簡単にできますが。

ALT+F11で、VBA画面が出てきますので、｢挿入｣｢標準モジュール｣で、｢Module1｣が、作られますので、その中に、

 Private Sub Rename()

    For i = 1 To Sheets.Count

    　　Sheets(i).Select
    　　Sheets(i).Name = Range("A5").Value

    Next i

 End Sub

と、入れて、実行してみてください。（はじめ）

早速のレスありがとうございます。すぐに試してみようとおもいます。
はじめさん、コードまで書いていただいてありがとうございます。

できました！初めてマクロ？を使いました。正直あまりの便利さに驚いています。
しつこいようですが、はじめさんにお礼を申し上げます。
これからは私もVBAを勉強したいとおもいます。（黒ドラ）

何気なくこのページ拝見して、1つお伺いしたいことがあります。

今の黒ドラさんの状態として、当然Ａ５のセル以外にもデータを入力するところがあるわけですよね。たとえば、Ａ５のセルに数字を１から順番に入れるものとします。１枚目のシートのＡ５に１を入力すれば、シート名が１になります。その時点で、同時に、自動的にシート２が作られるようなVBAを教えてもらいたいです。当然Ａ５以外はまるまるコピーされていて、Ａ５に２を入力すればシート２が２に変わって、シート３が作られるように。。。

お分かりでしたら、お願いします。

  Sheets.Add　の追加で出来ると思います。（ケン）

コメント返信：

[ 一覧(最新更新順) ]

[[20030701112433]] 『シートの名前を特定のセルの文字列に』（黒ドラ） ページの最後に飛ぶ

[[20030701112433]]　『シートの名前を特定のセルの文字列に』（黒ドラ）　ページの最後に飛ぶ