質問: false end if end select end sub 上記コードを書いているのですがa1:d1に文字を入力しても削除してもテキストボックスに変化がありません。 似たような内容でオプションボタンをクリックしたら表示、非表示を切り替えるコードも同じモジュール内に書いているのですが、そちらは正常に動きます。 何が問題なのでしょうか。ご教授頂けると幸いです。
回答: こんにちは 結合セルの場合、値は一つだけですし、そのアドレスはセル範囲の左上になります。 ですので「$a$1:$d$1」となることはありません。 ついでながら、判断したいケースは一通り(対象セルか否か)だけなので、select case で分岐しなくとも、普通にif文で分岐すれば十分ではないでしょうか? if target.address = "$a$1" then ' ~~ 必要な処理 ~~ end if とか。