シート名を手入力でなく、セル「A１」の文字を出しい

質問

過去にも、同様見出しでの質問が出ています。私は、この続編を教えて頂きたい。本文後半に【私の質問】として掲示致しました。

≪以下、引用≫

：エクセルのシート名についての質問です。
いつもはシート名を変えるとき、シートタブの上を右クリックして「変更」しています。

◆そこで、
　セル「Ａ１」に入力されてある文字を自動で出す方法について教えて下さい。

http://okwave.jp/qa/q2025849.html?from=history

ベストアンサー：
（１）の場合は、下記のコードを ThisWorkbook に記述してください。
どのワークシートでも機能します。

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address = "$A$1" Then Sh.Name = Target.Range("A1").Value
End Sub

≪引用終了≫

【私の質問】

確かに、"A1"に直接文字を入力すると、この記述でOKです。

ところが、"A1"に、他のセル等からの参照が入っている場合、例えば、=B5&"年"&B７＆”月現金”となっているとき、"A1"の内容をシート名に反映することができません。

コード内容をどのように修正すればよいのでしょうか、ご教授下さい。

回答No.3

tom04

No.1・2です。

Changeイベントが動かないというコトですが・・・

No.1・2の両コードともSheetモジュールですので
各Sheetのコードにしなければ反応しません。

質問文に載せてあるURLを覗いてみました。
もしかして「This Workbook」のVBE画面にコードを記載していませんか？

その場合は全く反応しないはずです。

画面左下の操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面に
前回（No.1でも2でも構いません）を記載して
B5・B7セルにデータを入れてみてください。
おそらくちゃんと動くと思います。

※　このような操作を複数のSheetで行いたい！という場合は
「This Workbook」のVBE画面に、↓のコードでやってみてください。

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
ActiveSheet.Name = ActiveSheet.Range("A1")
End Sub

今度は何とか動けば良いのですが・・・m（_ _）m

お礼

有難うございます。

結論から申し上げますと、うまく動きました。
全体の検証が済んでいませんが、うれしくて早速にお礼を申し上げます。

作業としては、次のように行いました。

第一作業

コードを次のように書き換えました。

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ERR_HANDLER
If Intersect(Target, Range("B5,B7")) Is Nothing Then Exit Sub
ActiveSheet.Name = Range("A2 ")
Exit Sub
ERR_HANDLER:
MsgBox "現在のA2セルの値はシート名にできません。"
End Sub

第二作業

もともと、A2のセルに入っていた式は、
=B5&"年"&B７＆”月現金”でした。

この式のままでは、うまく動きませんでした。
そこで、
=$B$5&"年"&$B$７＆”月現金”という具合に式を書き換えました。

これで、おかげさまで動くようになりました。

VBAの参考書を見ながら式を作っているのですが、基礎理論が理解できて
ないので、やっている作業に確信が持てずにいます。

そんなわけで、これまでも作業一、作業二を切り離して行い、袋小路に入
っていたのです。

NO.１～NO.3さんのご指導で、作業一は正しいようだと自信を持てました。
そこで、作業二と組み合わせてみると、アララ！！　不思議（そのレベルです。）
動くではありませんか。理屈は、よくわかってないんですが…。

本当にありがとうございました。うまくいかないときは、また、ご教授をよろしく
お願いいたします。

回答No.2

tom04

No.1です！
たびたびごめんなさい。

投稿後、思ったのですが、数式によってA1セルが変化するセル（参照セル）が決まっているのであれば
Changeイベントでそのセルを指定してやる方法もあるかと思います。

質問文の「例えば」の場合だと

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B5,B7")) Is Nothing Then Exit Sub
ActiveSheet.Name = Range("A1")
End Sub

でも大丈夫だと思います。

何度も失礼しました。m(_ _)m

補足

早速、ご回答ありがとうございました。

教えて頂いたコードを記入したうえで、A1のセルに（=B5&"年"&B７＆”月現金”）
と入力し、B5に≪25≫と、B7に≪10≫と打ち込みました。

この結果、A１のセルには、25年10月現金と表示されるのですが、何故か肝心のシート名は、
Sheet1のまま変わりません。

どうしてなのでしょうか？

回答No.1

tom04

こんばんは！

数式が入っているセルの場合は、表示そのものが変わっても数式自体がそのままですので、
Changeイベントは反応しないはずです。

そこで一案ですが、

Private Sub Worksheet_Calculate()
ActiveSheet.Name = Range("A1").Value
End Sub

のようにしてみてはどうでしょうか？

※　この場合他のセルが計算されたときにも反応しますが、
Sheet名は必ずA1セルの値になりますので、
大勢には影響はないと思います。m(_ _)m