| 
    
     |  | 亀マスター さん マナ さん Yさん 
 御助言ありがとうございます。 そして言葉足らずで申し訳ありません。
 
 当方、普段は関数でのみエクセルを活用してましてVBAはまったくの素人です。
 
 今回のもネットで調べて組み合わせて作成しております。
 
 
 亀マスター さん
 
 >Target.Addressの値が狙ったものになっているか
 
 C14に、True・False を表示させるようにしてます。(但し関数にて)
 
 >"四角1"というオートシェイプはちゃんと存在しているか
 
 オートシェイプの名前を変更して"四角1"としてます。
 
 >発生した箇所とエラーメッセージ
 
 記載させていただいたVBAを走らせますと、End Subを記載しているが
 End Subが必要です。 と表示されます。
 
 なので、意味が良くわからずこちらに投稿させていただきました。
 
 
 マナ さん
 
 すみません。 "四角1"です。 点はありません。
 訂正してもう一度試してみましたが、結果は同じでした。
 
 >C14が、数式が入ったセル、ということはありませんか
 
 関数にて判断させて、True か False を表示させるようにしてます。
 
 
 Y さん
 
 >Private Sub Worksheet_Change(ByVal Target As Range)
 というのはどうしてですか?
 
 ネットで調べまして、これを使えば思い通りのことができるかな?と
 思って使用しており、他意はありません。
 
 特定のセルに、True か Falseのどちらかを表示させて、表示・非表示を
 制御したいと考えております。
 
 
 皆様へ
 当方があまりVBAと言うものを理解できておりませんので、言葉足らず
 説明不足があると思いますが、よろしくお願いします。
 
 
 |  |