よくあるアンケートや記入用紙で該当する項目があればいくつでも選んで□にチェックを入れるような事をエクセルで出来ないかと思った事はありませんか？
Exce-VBAのチェックボックスを使う事で簡単に解決でき、セルに表示させる文字や値も自由に書き込むことができる方法をご紹介いたします。
チェックボックス＋IFステートメント
IFステートメント
エクセルに標準機能として用意されているVBA「IFステートメント」は、もし～だったら○〇、そうでなかったら××というように、条件に応じて「真」（True）・「偽」（False）を導き出す「条件分岐」の基本としてよく使うVBAです。
そしてVBA記述する時には「If～True ThenとElse」というように使いますので、いつものようにユーザーフォームに配置したコマンドボタンをクリックする事により、チェックボックス1の選択状況に応じて、判定できるようにVBAコードを書いていきましょう。
IFステートメント
Private Sub CommandButton1_Click()
If CheckBox1.Value = True Then
Range(“A3”).Value = “選択”
Else
Range(“A3”).Value = “未選択”
End If
End Sub
解説
- コマンドボタン1がクリックされたら
- もしチェックボックス１にチェックが入っていたら
- セルA3に「選択」と入力する
- そうではなかったら（チェックが無かったら）
- セルA3に「未選択」と入力する
- Ifステートメント終了
- マクロ記述終了
波乗りアヒル分かりやすくチェックボックス1個の時であれば、このようにIFステートメントを使えば簡単にでき、選択・未選択の文字も好きな表現に帰る事も可能です。
関連記事
新着ページ
よく見られているページ
紅葉スポット
-
![]()
白馬岩岳の絶景「三段紅葉」へ長野駅からバスで滞在時間140分
10月下旬ごろ～11月上旬になるとテレビなどでよく話題になる絶景のビューポイントで、北アルプスの山頂が雪化粧をして赤く色づいた山麓、そして山のふもとはまだ緑色が… -
![]()
埼玉県第1号のダム「有間ダム」によりできた名栗湖畔の鏡面紅葉へ
初！と付くものはやっぱり宣伝したい、そして四季折々の景色が見られる自然絶景スポットならばなおさらですよね。 埼玉県飯能市にある名栗湖へ飯能駅からバスで行くこと… -
![]()
秩父のパワースポット三峯神社の金蔵落としへ大血川渓谷紅葉へ
秩父市大滝にある大血川渓谷は「金蔵落し」の周りを中心にかえでやもみじが真っ赤に染まり、バス停から近い事もあり多くの観光客が訪れます。 そして金蔵落しは紅葉絶景… -
![]()
けさかけ橋と小中大橋の狭い山道でバスも行けない秘境の紅葉名所へ
小さいの？大きいの？中くらいなの？って一瞬思ってしまう小中大滝（こなかおおたき）。 落差100mほどある滝で紅葉シーズンには鮮やかな絶景の中に水が落ちる景色を見る… -
![]()
花園渓谷の花園神社紅葉ライトアップへ磯原駅から観光周遊バスで行く
茨城県の最北端にある北茨城市でもう少し北上すれば福島県という位置なので、東京からだとかなり遠いですが、山間部の花園花貫県立自然公園という名の通り大自然の中を… -
![]()
黒山三滝では日本観光百選のパワースポットで滝行もできる紅葉名所
【紅葉見頃】 黒山三滝は、男滝(おだき)・女滝(めだき)・天狗滝(てんぐだき)の3つの滝からなり、滝に打たれる修行を行う滝開きまであります。 その為か、パワースポッ…
