VBAセルの値によりチェックボックスの状態を変える方法

2022 4/24

2020年1月28日 2022年4月24日

ユーザーフォームに配置したチェックボックスにチェックを入れると、ワークシートの特定のセルにセル文字を転記する為に使いますが、その逆ってできないのかな？って思いませんか？

波乗りアヒル

例えば住所録でDM送付「希望あり」と「希望無し」をチェックボックスで選択しておいて、個人データが呼び出された時に、ユーザーフォームのチェックボックスも自動的にチェックの有無が表示されるようにしたい。

よくよく考えると、チェックボックスのプロパティでの設定は、ユーザーフォームが表示された時にチェックボックスの状態をしていする事しかできないので、普通じゃないんだって思います。

基本的なチェックボックスの使い方については重複してしまうので、ここでは省略しますので下記を参考にしてください。

あわせて読みたい

チェックボックスでチェック有と無しそれぞれの処理を変える方法ユーザーフォームに配置してチェックを入れる為のチェックボックス。ボウリングのリーグ戦での成績表でもボックスの人数を設定する時に、チェックしたらその人数に設定...

それならば、自分で考えてやってしまうしかないんですよね。

セルの値からチェックボックスの状態を取得しよう

まず、チェックボックスの状態で、チェックがある状態（True）とチェックが無い状態（False）がありますよね。

そして、DM希望ありをTrueにして、DM希望無しをFalseにします。

そうすることにより、セルA1の値が【DM】となっていたらチェックを入れた状態にして、空欄だったら、チェックをはずすことができれば、セルの状態によってチェックボックスを自在にコントロールできるようになります。

これらを踏まえて、VBAコードを書いてみるとこうなりました。

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の値によってチェックボックスの状態を変えることができることが確認できました。

当然ながら、セルA1が空欄だったらコマンドボタンを押してもチェックボックスには何も入りません。

波乗りアヒル

さあ、ここからが応用編というよりも、実際に使えるようにVBAコードを付け加えていきましょう。

選択されているセルの右〇個目にチェックボックスの値を転記する

エクセル住所録などで顧客検索を行った時に、セルの位置は検索結果の値にありますので、データの書き換えや追記をした時にチェックボックスの値を指定したセルの位置に転記することをやる為の事です。

そうなると、見つけたセルの位置は【Activecell】となり、ここから右に10個目のセルの位置を示すのは【Offset(,10)】となります。

そしてチェックボックスが【True】の時は「DM」をセルに記載させるとするとこのようになります。

VBAコード

Private Sub CommandButton1_Click()
If CheckBox1 = True Then
ActiveCell.Offset(, 10).Value = “DM”
Else
ActiveCell.Offset(, 10).Value = “”
End If
End Sub

解説