よくあるアンケートや記入用紙で該当する項目があればいくつでも選んで□にチェックを入れるような事をエクセルで出来ないかと思った事はありませんか?
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ステートメント終了
- マクロ記述終了
![](https://tripbowl.net/wp-content/uploads/2018/07/cropped-512x512.jpg)
分かりやすくチェックボックス1個の時であれば、このようにIFステートメントを使えば簡単にでき、選択・未選択の文字も好きな表現に帰る事も可能です。
関連記事
紅葉スポット
-
四方木ふれあい館から四方木不動滝の紅葉絶景へ安房天津駅からバス
県道から山道に入り林の中にある秘境で、水量によって左右に分かれることから夫婦滝とも呼ばれています。 山深い大自然の中を散策していく四方木不動滝と紅葉がひそかな… -
茨城県内の11月に見頃を迎えるおススメ紅葉スポット11選
茨城県内の人気紅葉スポット 関東地方で紅葉名所といえばなんといっても日光ですが、紅葉シーズンになると平日でもいろは坂は大渋滞なのに休日ともなると日光駅周辺から… -
長門峡の紅葉橋・竜宮淵へバスで紅葉も雪景色も楽しめる萩紅葉名所
日本の自然100選にも選ばれ紅葉シーズンには臨時シャトルバスも運行される長門峡(ちょうもんきょう)へは、JR山口線でも防長交通バスでも行くことができるので、全長5…. -
土合駅から谷川岳ロープウェイで天神平スキー場からの天空紅葉絶景へ
谷川岳ロープウェイに乗って谷川岳天神平スキー場として冬は多くのスキーヤーに楽しまれていますが、夏は避暑地スポットとして気温22℃の涼しさを体感でき、さらに秋は一… -
日光穴場!中禅寺湖展望台へ紅葉の中禅寺湖からバスで滞在時間30分
【紅葉見頃】10月中旬~11月上旬 紅葉の見頃となる10月中旬~11月上旬になると、いろは坂から延々華厳の滝や竜頭の滝までとにかく大渋滞して混雑が当たり前ですが、い… -
紅葉の寸又峡コバルトブルーの夢の吊橋へ滞在時間2時間
サンドウィッチマンとゲストがバスで旅するバスサンドの放送を見て、ビックリするほど綺麗なコバルトブルーの湖にかかる吊り橋がとても気になったので、夏に青春18きっ…