よくあるアンケートや記入用紙で該当する項目があればいくつでも選んで□にチェックを入れるような事をエクセルで出来ないかと思った事はありませんか?
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がクリックされたら
- もしチェックボックス1にチェックが入っていたら
- セルA3に「選択」と入力する
- そうではなかったら(チェックが無かったら)
- セルA3に「未選択」と入力する
- Ifステートメント終了
- マクロ記述終了
波乗りアヒル
分かりやすくチェックボックス1個の時であれば、このようにIFステートメントを使えば簡単にでき、選択・未選択の文字も好きな表現に帰る事も可能です。
関連記事
紅葉スポット
-
三国峠猿ヶ京温泉の赤谷湖畔水鏡紅葉と江戸時代の関所跡見学へ
国道17号で三国峠を目指す途中にある温泉街の猿ヶ京には、関所と相俣ダムによってできた赤谷湖が観光スポットになっています。 そして紅葉になると周囲の三国連山が綺麗… -
秩父長瀞紅葉へ不動の埼玉県ナンバーワンの紅葉スポットへ
東京から電車で2時間半ほどで長瀞駅からバスを使わなくても、秩父鉄道で長瀞の各観光スポットを巡ることができるので、車の運転ができなくてもたっぷり楽しめますよ。 … -
塩原温泉・紅の吊橋の紅葉絶景へ那須塩原駅や黒磯駅からバスで行く
【紅葉見頃】10月下旬~11月中旬 塩原温泉郷と言えば、箒川(ほうきがわ)沿いに温泉旅館が点在している首都圏からも近い温泉街ですが、紅葉の時期になるとカエデやも… -
電車とバスのフリーきっぷで行ける10月見頃の紅葉スポットへ
見頃順人気順10月見頃11月見頃12月見頃 【関東エリアの人気紅葉スポット】 関東地方で紅葉名所といえばなんといっても日光ですが、紅葉シーズンになると平日でもいろは… -
中禅寺湖を上から見られる絶景ポイント半月山展望台へ滞在時間50分
【紅葉見頃】10月中旬~11月上旬 最近インターネットや雑誌などで日光を紹介する時によく見る機会がある、中禅寺湖を上から撮った写真の場所ってどこだろうって思いま… -
日本庭園「松雲山荘」へ柏崎駅から徒歩圏内の大正時代からの紅葉名所
紅葉見頃 10月下旬~11月下旬 約3,000本つつじやもみじなどで大正時代に作られた日本庭園で、柏崎ガス創設者の飯塚謙三氏から柏崎市に移譲され無料で庭園内を散策でき…