Excelでセルの値によりチェックボックスを操作

Question

EXCEL2007で作業しています。
シートにチェックボックスを配置しています。

・セルA1の値が「あ」だったら
チェックボックス1にチェックを入れる。

・チェックボックス2にチェックが入っていたら
オートシェイプ2を表示させる

上記2つを実現したいです。
どちらかひとつでもおしえていただければと思います。

よろしくお願いいたします！

keithin · Accepted Answer

＞「あ」と入力するシートとチェックボックスを配置しているシートが別シート

手順：
これまでのマクロを「漏れなく全部消去する」

改めて
チェックボックスのシートを開く
開発タブでデザインモードを選択，チェックボックスを右クリック，コードの表示を開始
下記のマクロを記載する

private sub CheckBox1_Click()
　application.enableevents = false
　worksheets("「あ」のシート名").range("F20") = iif(me.checkbox1,"あ","")
　application.enableevents = true
end sub

ファイルメニューからエクセルに戻り，忘れずに開発タブで「デザインモード」を終了する

「あ」のシートを開き，シート名タブを右クリック，コードの表示を開始
下記のマクロをコピー貼り付ける

private sub  Worksheet_Change(byval Target as excel.range)
　if target.address = "$F$20" then
　　application.enableevents = false
　　worksheets("チェックボックスのシート名").checkbox1 = target = "あ"
　　application.enableevents = true
　end if
end sub

以上です。

keithin · Answer

＞古いバージョンのExcelを使っている人が使うこともある

古いってどんな古いエクセルですか？
どーして「古いエクセルを使っている」事が問題だと思われたのか判りませんが，エクセル９７以降なら回答した方法で全く問題無く利用できます。

＞フォームコントロールを使いたい

フォームコントロールに，無理クリ「マクロの登録」してマクロ（動作内容は概ね類似，ただし勿論それ用に調整は必要。アクティブＸコントロール用のマクロをただコピーしてもダメという意味です）を作動させれば，まぁ「やればできます」の範疇です。今回回答はアクティブＸコントロールでマクロを活用した内容なので，フォームコントロールで無理矢理マクロを取り付けて行う方策については割愛します。

マクロを使わないフォームコントロールだけの機能では
○セルに「あ」を記入すると自動でチェックが入る（外れる）
ように細工する事はできます。

既に回答したとおり，マクロを使わない「標準的なフォームコントロールの動作」だけの範疇では，次の問題があります。
●うっかりチェックボックスの方をクリックすると，作り込んだ細工が破損して以後使えなくなる
●チェックボックスをクリックしてセルに「あ」が入ったり消えたりする細工はできない
●オートシェイプを表示したり消したりも出来ない。

keithin · Answer

＞シートにチェックボックスを配置しています。

エクセル２００７では，開発タブの挿入から「フォームコントロール」と「ActiveXコントロール」の２種類のチェックボックスが選べます。
どちらを使っているのか，使いたい理由があるのかに応じて，具体的な使い方や出来る事できない事が変わってきます。

幾つかの理由から今回のご相談に見合う手段としては，「ActiveXコントロール」のチェックボックスを利用します。フォームコントロールだけでは，基本的には下記でヤリタイこと全てを実現することができません。

手順：
新しいシートを用意する
アクティブＸコントロールのチェックボックスを１個，シート上に配置する
右クリックして「コードの表示」を選ぶ
現れたシートに「checkbox1_click …end sub」が記入されているので下記に加筆し，併せて下記をコピー貼り付ける

private sub CheckBox1_Click()
range("A1") = iif(me.checkbox1, "あ", "")
end sub

private sub Worksheet_Change(byval Target as excel.range)
if target.address = "$A$1" then
me.checkbox1 = target = "あ"
end if
end sub

ファイルメニューから終了してエクセルに戻る
開発タブで「デザインモード」をクリックしてデザインモードを解除する

使い方：
Ａ１セルに「あ」とか「い」とか記入する
チェックボックスのチェックを入れたりハズしたりする

＞オートシェイプ

シート上に図形を描画し，名前ボックスで myShape　と名前を付けておく（必ず行う）
ActiveXコントロールのチェックボックス２を配置，右クリックしてコードの表示で下記のようにする

private sub CheckBox2_Click()
me.shapes("myShape").visible = me.checkbox2.value
end sub

ファイルメニューから終了してエクセルに戻り，デザインモードを解除する

使い方：
チェックボックス２のチェックを入れたりハズしたりする。

Excelでセルの値によりチェックボックスを操作

＞「あ」と入力するシートとチェックボックスを配置しているシートが別シート

＞古いバージョンのExcelを使っている人が使うこともある

この回答への補足

＞シートにチェックボックスを配置しています。

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング