ユーザーフォームに配置したチェックボックスの使い方としては、基本的にチェックを入れたら指定したセルに文字や数字を記載するために使いますが、その逆の使い方でセルの値を読み取って自動的にチェックを入れることができないのかなと思ったことありませんか?

例えば住所録でDM送付「希望あり」と「希望無し」をチェックボックスで選択しておいて、個人データが呼び出された時に、ユーザーフォームのチェックボックスも自動的にチェックの有無が表示されるようにしたい。
このような場合、チェックボックスのプロパティでは状況判断する設定は無いので、IFステートメントを使って表示させることが可能なので、ご紹介いたします。
基本的なチェックボックスの使い方については重複してしまうので、ここでは省略しますので下記を参考にしてください。


セルの値からチェックボックスの状態を取得しよう
IFステートメントで取得
下の図のようにセルA1に「DM」と入力されていたら、DM希望するチェックがある状態として(True)、空欄だったらDM不要ととしてチェックが無い状態として(False)とします。
そうすることにより、セルA1の値が【DM】となっていたらチェックを入れた状態にして、空欄だったらチェックを外すことができるので、セルの状態によってチェックボックスの状態を自在にコントロールできるようになります。


それでは、ユーザーフォームに配置したコマンドボタン1をクリックするとチェックボックス1がセルA1の状態を認識してチェックの有無ができるようなVBAコードをご紹介します。
Private Sub CommandButton1_Click()
If Range(“A1”).Value = “DM” Then
CheckBox1.Value = True
Else
If Range(“A1”).Value = “” Then
CheckBox1.Value = False
End If
End If
End Sub
- コマンドボタン1がクリックされたら
- もしセルA1の値がDMだったら
- チェックボタン1の状態をチェック有にする
- そうではなく
- もしセルA1の値が空欄だったら
- チェックボックス1の状態をチェック無しにする
- Ifステートメント終了
- Ifステートメント終了
- マクロ終了


もちろん、セルA1の値を消して空欄にしたらコマンドボタンを押してもチェックボックスには何も入りません。



実際にはこのような使い方はしませんが、セルの値によってチェックボックスの状態を取得する事ができるようになるVBAコードを記述することができました。
関連記事
紅葉スポット
-
開業90年を超えても現役の日光いろは坂にある明智平ロープウェイ
日光駅や日光東照宮がある市街地と奥日光を結ぶいろは坂の終盤にある位置する「明智平」は、トイレや売店があるドライブインと呼んだ方がいい所なのですが、日光エリア… -
埼玉県第1号のダム「有間ダム」によりできた名栗湖畔の鏡面紅葉へ
初!と付くものはやっぱり宣伝したい、そして四季折々の景色が見られる自然絶景スポットならばなおさらですよね。 埼玉県飯能市にある名栗湖へ飯能駅からバスで行くこと… -
十勝岳望岳台へ活火山の溶岩と山頂部の雪化粧と紅葉の三段紅葉絶景
北海道のほぼ真ん中に位置して旭岳・美瑛藤・上富良野岳などが一望でき、さらに旭川市街や富良野市街までも見ることができる絶景スポットです。 標高930mの十勝岳は9月… -
国営武蔵丘陵森林公園の紅葉見ナイトの紅葉ライトアップへ
【紅葉見頃】 東京から電車で1時間ちょっとで東京ドーム65個分の広大な森林公園があり、中央口付近にあるカエデ園には500本のカエデが11月中旬~11月下旬にかけて紅葉… -
北関東トップクラスの日本庭園がある徳明園の標高差による紅葉絶景へ
【紅葉見頃】11月中旬~12月上旬 高崎市内循環バス「ぐるりん」バスのフリーエリア内のあるので、電車とバスを利用して気軽に訪れることができ、北関東一ともいわれる… -
佐白山麓公園の笠間城跡へバスで友部駅・笠間駅から滞在時間40分
紅葉の名所で茨城県を真っ先に探す人は少ないと思いますし、見つけたとしても花貫渓谷や袋田の滝、そして次に水戸偕楽園のもみじ谷や筑波山が茨城県内の紅葉スポットと…