よくあるアンケートや記入用紙で該当する項目があればいくつでも選んで□にチェックを入れるような事をエクセルで出来ないかと思った事はありませんか?
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ステートメントを使えば簡単にでき、選択・未選択の文字も好きな表現に帰る事も可能です。
関連記事
紅葉スポット
-
茨城県内の11月に見頃を迎えるおススメ紅葉スポット11選
【茨城県内の人気紅葉スポット】 関東地方で紅葉名所といえばなんといっても日光ですが、紅葉シーズンになると平日でもいろは坂は大渋滞なのに休日ともなると日光駅周辺… -
国営ひたち海浜公園みはらしの丘へあたり一面真っ赤なコキアの絶景へ
茨城県で10月中旬頃にピークを迎える人気ダントツ1位の観光スポット「ひたち海浜公園・みはらしの丘」の、真っ赤に染まった約32,000本コキアを見に世界中から訪日外国人… -
「乙女の湖」鎌北湖畔の湖面反射が美しい紅葉絶景へ東毛呂駅からバス
【紅葉見頃】 飯能市の北にある入間郡毛呂山町の山中にある鎌北湖は、毛呂山町ホームページによると昭和10年に完成した農業用貯水池として作られた人工湖で、周囲2㎞… -
塩原温泉・紅の吊橋の紅葉絶景へ那須塩原駅や黒磯駅からバスで行く
【紅葉見頃】10月下旬~11月中旬 塩原温泉郷と言えば、箒川(ほうきがわ)沿いに温泉旅館が点在している首都圏からも近い温泉街ですが、紅葉の時期になるとカエデやも… -
日光穴場!中禅寺湖展望台へ紅葉の中禅寺湖からバスで滞在時間30分
【紅葉見頃】10月中旬~11月上旬 紅葉の見頃となる10月中旬~11月上旬になると、いろは坂から延々華厳の滝や竜頭の滝までとにかく大渋滞して混雑が当たり前ですが、い… -
フリーパスで12月の茨城紅葉スポットへ
【茨城県内の人気紅葉スポット】 関東地方で紅葉名所といえばなんといっても日光ですが、紅葉シーズンになると平日でもいろは坂は大渋滞なのに休日ともなると日光駅周辺…