[[20181004210059]]　『セル入力で図形を表示』（出張日和）　ページの最後に飛ぶ

『セル入力で図形を表示』（出張日和）

いつもお世話になっています。
会社の出張申請書をエクセルで作成しておりまして、申請書に市内と市外の二つ○囲みできるセルが有ります。
以前この掲示板のこの記事[[20111126210215]]にてあすなろさんのクリックで図形を表示非表示できるマクロを見つけまして、これはスゴいと図形をポチポチしておりました。
今まで枠外に置いてる○をコピーして○囲みしていたため、会社の者からも評判で。
しかし、最近、もっと操作を簡単にできるのでは？と言われまして。
市外に行く場合のみ住所セルに住所を入力することになっておりまして、つまり住所セルに入力したら市外に○が、空白なら市内に○ということができないかと。

申請書の配置は下になります。
L10に市内、L12に市外、M10からV12の結合セル(列が細かい仕様です)が住所セルとなっております。

こんな説明で大丈夫ですかね？どうぞよろしくお願いいたします。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

マクロじゃないんですけど、↓これ使えるかもなぁ...と

エクセルの小ネタ帳: 図形をセルに入力されている値によって自動変更
http://yasu-excel.blogspot.com/2014/07/blog-post_18.html

（白茶） 2018/10/04(木) 22:42

白茶様ありがとうございます！
確かに、この方法ならマクロなしで出来そうです。
ひとつ質問がありまして。

自分の部署には20人ほどおりまして、それぞれが個人個人で自分の申請書シートを持っております。(ブックは同じ)
大体出張先は固定されてるので、リスト(入力規則の)にして住所を登録しております。
たまに登録にない場所が有りますので、リストにはエラー値を無視で書き込めるようにしております。
書き込んでいて気づきましたが後半部分は関係ないですね。
つまり、名前定義を使うと、20シート一人ずつ登録しなくてはいけないという。
出来ないことはないですが、手間をかけずにできる方法はありますか？
もし勘違いしていたらすみません。

併せて追加の質問です。すみません。
X、Y列に宿泊の有無に○囲みがありまして、X列が有、Y列が無。
使っているのマクロですと○を消したとき、完全に消えてしまいますよね。もう一度図形をクリックして表示させるんですが、当然枠線にカーソルを当てなきゃいけないわけです。
これがやりにくいという人がおりまして。
これを有の○を消すと有○が消え、無○が表示。無○をクリックで消すと有○が表示、ということは可能ですかね？
これなら常に図形をクリックすることになるのでやり易くできるかなと。
マクロは初心者でして、素人考えですがご教授お願いします。
（出張日和） 2018/10/04(木) 23:31

 >20人ほどおりまして、それぞれが個人個人で自分の申請書シートを持っております。(ブックは同じ)
 >名前定義を使うと、20シート一人ずつ登録しなくてはいけない

 ・個人別にブックを分ける
 ・とりあえず１シート完成させて必要数コピーする(名前定義もコピーされる)
 といった方法で、
 >20シート一人ずつ登録
 は回避できますね。
 ただ、
 「リンクされた図」が大量にあったり、大きい図だったりすると
 操作した時の動きがギクシャクしてストレスになったりしますけど^^;

 >有の○を消すと有○が消え、無○が表示。無○をクリックで消すと有○が表示
 そのまま表現すると、例えばこんな感じになります。

    Rem [有○]に登録するマクロ
    Sub Click有○()
        With ActiveSheet
            .Shapes("有○").Visible = msoFalse
            .Shapes("無○").Visible = msoTrue
        End With
    End Sub
    Rem [無○]に登録するマクロ
    Sub Click無○()
        With ActiveSheet
            .Shapes("有○").Visible = msoTrue
            .Shapes("無○").Visible = msoFalse
        End With
    End Sub

 オプションボタンを配置して、ユーザーにはそっちで選択操作をして貰うという手もありますね。
 オプションボタン自体は印刷されないように設定しておいて、
 ○図形の表示切替は、オプションボタンの[リンクするセル]を経由して、先述の方法で再現するという。

（白茶） 2018/10/05(金) 10:32

白茶様ありがとうございます！
名前の定義の範囲をシートに限定出来ることを失念しておりました。その方法でやってみます。

マクロありがとうございます。
ただ、指定したアイテムが見つかりません、とメッセージが出まして。
一つ確認ですが、有○、無○というのは有、無の文字に重なっている塗り潰しなしの丸図形のことです。もしかしたら勘違いさせてしまいましたかなと。
もし違ったらすみません。
（出張日和） 2018/10/05(金) 12:34

 オートシェイプの名前を[有○][無○]に変更した状態でのマクロです。

 オートシェイプを選択した状態で「名前ボックス」もしくは
 「オブジェクトの選択と表示」を見てみると
 [円/楕円 1]等の名前が付いていると思いますので、
 そこをお好きな名前に書き換えるなりして、
 マクロ側の記述も
 .Shapes("書き換えた名前")
 の様にして揃えてもらえばイケると思います。

（白茶） 2018/10/05(金) 13:05

できました。ありがとうございます！
（出張日和） 2018/10/05(金) 15:52

再び失礼します。
上のクリックで有無を切り替えるマクロに、最初話題にしたあすなろさんの表示非表示のマクロを組み合わせることは可能ですかね？

最初は全て非表示。

一回目クリック=○がカーソルの場所(今回は有)に表示、
二回目クリック=○が無に表示、
三回目クリック=○非表示

という形なんですが･･･。
よろしくお願いいたします。

（出張日和） 2018/10/07(日) 14:05

コメント返信：

[ 一覧(最新更新順) ]

[[20181004210059]] 『セル入力で図形を表示』（出張日和） ページの最後に飛ぶ

[[20181004210059]]　『セル入力で図形を表示』（出張日和）　ページの最後に飛ぶ