[[20110217154956]]　『オートシェイプ条件によって表示、非表示』（kichisuke）　ページの最後に飛ぶ

『オートシェイプ条件によって表示、非表示』（kichisuke）

Excel2002です

あるセルに何か入力された場合にオートシェイプの○を表示
空白の場合は非表示にしたいのですが、できるのでしょうか？
出来るのであれば教えていただけないでしょうか？

 基本的にはＶＢＡになりますが出来ます。
 Worksheet_Changeイベントであるセルが対象の場合に値を調べて
 ShapeのVisibleプロパティを変更すれば可能です。

 簡単にやりたいのでしたらどこかのセルに
 =if(あるセル="","","○") としておいて、カメラ機能で○っぽく見せるとか。
 （ｍｏｍｏ）

 オートシェイプを作成。
オートシェイプが表示されているセル範囲に名前定義：例えば「test1」
何も表示されていないセル範囲に名前定義：例えば「test2」
挿入＞名前＞定義　で　次のような定義を行う。
名前　　：func ・・・適当でよい
参照範囲：=IF(Sheet1!$A$1="",test2,test1)
　
適当なセルをコピーしてShiftを押しながらメニューの編集をクリック。
図のリンク貼り付け。
貼り付けた図を選択したまま、数式バーの数式を「=func」とする。
Sheet1のA1に何か入力すると、リンク図がtest1の範囲を、
Sheet1のA1をクリアすると、リンク図がtest2の範囲を表示するようになります。
(みやほりん)(-_∂)b

コメント返信：

[ 一覧(最新更新順) ]

[[20110217154956]] 『オートシェイプ条件によって表示、非表示』（kichisuke） ページの最後に飛ぶ

[[20110217154956]]　『オートシェイプ条件によって表示、非表示』（kichisuke）　ページの最後に飛ぶ