エクセルVBAでセルの値を取得してチェックボックスの状態を変える方法

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

波乗りアヒル

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

このような場合、チェックボックスのプロパティでは状況判断する設定は無いので、IFステートメントを使って表示させることが可能なので、ご紹介いたします。

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

チェックボックスの基本処理

チェックボックスでチェック有と無しそれぞれの処理を変える方法 よくあるアンケートや記入用紙で該当する項目があればいくつでも選んで□にチェックを入れるような事をエクセルで出来ないかと思った事はありませんか？ Exce-VBAのチェ…

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

IFステートメントで取得

下の図のようにセルA1に「DM」と入力されていたら、DM希望するチェックがある状態として（True）、空欄だったらDM不要ととしてチェックが無い状態として（False）とします。

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

それでは、ユーザーフォームに配置したコマンドボタン1をクリックするとチェックボックス1がセルA1の状態を認識してチェックの有無ができるようなVBAコードをご紹介します。

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

波乗りアヒル

実際にはこのような使い方はしませんが、セルの値によってチェックボックスの状態を取得する事ができるようになるVBAコードを記述することができました。

関連記事