質問: target.range("a1").value end sub ≪引用終了≫ 【私の質問】 確かに、"a1"に直接文字を入力すると、この記述でokです。 ところが、"a1"に、他のセル等からの参照が入っている場合、例えば、=b5&"年"&b7&”月現金”となっているとき、"a1"の内容をシート名に反映することができません。 コード内容をどのように修正すればよいのでしょうか、ご教授下さい。
回答: 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