Excelでの○表示

質問

３つのセルに A1:みかん A2:りんご A3:ぶどう とそれぞれ項目が入力されています。りんごのA2セルをダブルクリックすると”りんご”の文字の上に○が表示されるような方法はありますか？
できればラジオボタンのように、別のセルをダブルクリックすると他のセルの○は消える（A2りんごの上に○があるとし、A3ぶどうをダブルクリックするとA2りんごの○は消えてA3ぶどうの○のみに切り替わる）ようにしたいのですが。
または他の方法として、セルをダブルクリックするのではなく、コントロールツールボックスの「コマンドボタン」を４つ作り、それぞれのボタンを押すと対応したセルの文字の上に○を表示する（４つのうち増えた１つは○を全て消すボタンです）ような方法はありますか？

回答No.3

grumpy_the_dwarf

「セルをダブルクリック」だと、imogasiさんのおっしゃるとおりに
VBAでイベントを拾って処理するような話になりますが、ラジオボタ
ンやオプションボタンを選択した時にセルの上に○を重ねるくらい
なら、マクロなしでいけます。

1.ラジオボタンを配置します。書式設定のコントロールで、別シー
　トの適当なところにリンクします。ラジオボタンがオンになると、
　TRUEが入るはずです。
2.そこがTRUEのときに"○"になるセルを作ります。
3.○を表示したいところに適当なオートシェイプを配置し、塗りや
　線をなしにします。
4.オートシェイプを選択したときの数式バーに、2のセルへの参照を
　書きます。

こんな感じですね。他を全部クリアのボタンはマクロを使わないと
ダメ。

お礼

オブジェクトそのものに”参照式”を入れたとしても、ANo.2のお礼内容に記入の通り、シート保護の際、”オブジェクトの編集”をフリーにしないと内容が切り替わらないようなような気がしますが、参考にして１度やってみます。
ご回答ありがとうございました。

回答No.2

imogasi

質問者は少し勉強されているようですが、質問のようなのはVBAを使わないと、うまくできません。イベントの仕組みを使わないとならない部分があるからです。VBAは勉強してますか。
○がオプションボタンの○部なのか、円オブジェクトのことで、円の中を塗りつぶすのかはっきりしません。
＞別のセルをダブルクリック・・
オプションボタンやグループ化で実現できます。
＞コマンドボタン・・
コマンドボタンは普通そういう使い方はしません。
（ラヂオボタンは名称について、VB.NETやMACではラジオボタンですが、エクセルではオプションボタンです。）
質問全般に、コードが長くなるだけで、質問に近いものはできるでしょうが、回答丸覚えの類になりますね。

お礼

シェイプの円オブジェクトのことで、円の線を黒で表示し、塗りつぶしは”無し”にする事で、セル上の文字が透過されて見える・・・というものなのですが、VBAを使い、印刷範囲外に設置したコマンドボタンを選んで押す事により、セル上のオブジェクトの”○”を”TRUE””FALSE”で表示・非表示にする方法で現在は使用しています。他の項目を選んだ場合はそれ以外の項目を”FALSE”にし見た目上○が切り替わったように見えます。また全て”FALSE”のボタンを１つ作る事により○が無い状態に見せる事も出来るようにはしてあります。
シートは保護して使用します。
が、しかし、この方法ですとシート保護の際”オブジェクトの編集”を可能にしておかないと表示・非表示が出来ませんでした。そうするとせっかくシートを保護してもオブジェクトのハンドル（小さい丸）が出てますので、○のオブジェクトのハンドルを不用意に触ってしまい拡大・縮小してしまったりなど動かしてしまう場合が出てきます。
自分ではオブジェクトの○を表示・非表示にする上記の方法と、テキストオブジェクトにあらかじめ文字の”○”を入れておき、線の塗りを”黒””白”に切り替える方法しか思いつかなかったのですが、テキストの場合、シートの保護はオブジェクトもロック出来良かったのですが、文字色を透明に出来なかったのでセルの文字と白い○がかぶってしまい見た目非常に汚く見えます。文字の透明色を指定する方法も探したのですが、私では見つかりませんでした。
そこで昔に見た事がある、”セルの文字をダブルクリックする事でセルの文字の上に○が付く”という方法を思い出したのですが、そのファイルはオブジェクトのハンドルも出てなかったのです。よって、オブジェクトを不用意に動かしてしまう事も無く、シートの保護も出来、セルをダブルクリックすると○が付く、という理想的な方法でした。今はファイルが手元に無く、方法がわからないので今回質問させて頂きました。

回答No.1

tokpy

> りんごのA2セルをダブルクリックすると”りんご”の文字の上に○が表示されるような方法はありますか？

重ねて表示させるのは難しいと思います。というか、Excelの使い方としては想定外のような気がします。（隣のセルに「○」を表示させる、または、セルや文字の色を変えるのであれば可能ですが）。

オプションボタンを使えば良いのでは？

http://kokoro.kir.jp/excel/form-option.html
http://kokoro.kir.jp/excel/form-optiongroup.html

お礼

ページを見てみてなかなか良い方法なのですが、”１”のような丸囲み文字が存在する文字で切り替える場合は良いのですが、質問のような”ぶどう”などの例ですとセルの中身そのものが変わってしまいます。
あくまで紙に印刷されているアンケートの選んだ項目の文字の上に鉛筆で○を付ける・・・ような方法を探しているのですが、色々なサイトを見ましたがみつかりませんでした。
また上記理由により、隣のセルへの表示という方法の使用は考えておりません。
ご回答ありがとうございました。