[[20130521103025]]　『VBA　各セル値を別シートのシート名にする』（ココロ）　ページの最後に飛ぶ

『VBA　各セル値を別シートのシート名にする』（ココロ）

いつもお世話になります。

今回行いたい事。
①全体シートのＤ４～Ｐ４の名前を追加している各シート名にしたい※
Sheet1→全体シートＤ４の名前
Sheet2→全体シートＥ４の名前
Sheet3→全体シートＦ４の名前

②その各シート名をＥ１に記載したい
Sheet1のＥ１→全体シートＤ４の名前
Sheet2のＥ１→全体シートＥ４の名前
Sheet3のＥ１→全体シートＦ４の名前

どちらが先でも問題はないのですが、できればセルには直接関数を打ちたくないです。
というのも、Ｄ４～Ｐ４の間に列を追加する可能性もあるため。

過去ログを見たりして何度か試していたのですが、各シートのＥ１の値をシート名にしたり、シート名をＥ１の値にしたりすることは出来ました。

しかし、①をしようとしたときが
Sheet1→全体シートＤ４の名前
Sheet2→全体シートＤ４の名前※ここでデバック
になるコードしかかけずに立ち止まっています。

皆様のお力添えを宜しくお願い致します。

 [エクセルのバージョン]
EXCEL2007で作成、保存はxls形式
PCによってはEXCEL2010やEXCEL2003での使用もある

[OSのバージョン]
Windows Vistaを使用
PCによってはWIN7やWINXPもある

 まずは自分で書かれたコードを提示してはどうでしょうか。
 現象だけ説明されても、内部を推測することしか出来ません。
 それはお互いに回り道だと思いますが。
 (Mook)

[[20130520153434]]　『シート名を変える』（みえ）

 テーマとしては似通っているところがあるね。

 ところで、Sheet1 とか Sheet2 とか Sheet3 とかいう表現だけど、これがシート名だとすると
 いったんシート名を変更すると、その名前のシートは存在しなくなるので、２回目に実行するとエラーになるね？

 これらは、ブックの左側から数えて１番目のシート、２番目のシート、３番目のシート　ということかな？

 追記で。

 >Sheet2→全体シートＤ４の名前※ここでデバック

 これがタイプミスではなく、本当にコードも、このように書かれていれば、当然エラーだよね？
 その前に、すでに Sheet1 が Ｄ４の名前になっているので、もう、その名前は使えないよね？

 (ぶらっと)

コメント返信：