【VBA】オプションボタンの値を取得しセルに反映【イベント、クリア、グループを使う】

目次から見たい項目へ移動すると便利ですよ。

オプションボタンの使い方について説明します。

ユーザーフォーム中でオプションボタンは一つだけ選択できるようになっています。

例えばアンケートなどでいずれか一つ選んでください。みたいな使い方をしたい場合に使えます。

オプションボタンはこんなやつです。

初期値ではオプションボタンは選択されていません。

オプションボタンを選択してみます。

選択されました。別のオプションボタンを選択してみます。

新しく選択したオプションボタンのみ選択されています。前に選択したオプションボタンの選択は解除されました。

オプションボタンでは特に設定をしていなくてもオプションボタンのいずれか一つだけを選択させることができます。

オプションボタンはツールボックスのこちらからユーザーフォームに作成することができます。

ユーザーフォームにドラッグ&ドロップで作成できます。

ユーザーフォームにオプションボタンを作成できました。

オプションボタンをグループにする方法についてご紹介します。

グループにすればグループ単位でオプションボタンの選択をすることができます。

グループにしたときのオプションボタンの動作について先に紹介します。

グループにするとこんな感じになります。

それぞれのグループの中から選択してみます。

それぞれのグループでオプションボタンを選択できています。

オプションボタンはユーザーフォームの中で1つしか選択できませんがグループを使えばグループ単位でオプションボタンを選択することができます。

グループにする方法を説明します。

2つのグループを作成してみます。

VBAの画面のツールボックスから『フレーム』を選択してユーザーフォームの中に挿入します。

ツールボックスの『フレーム』はこちらです。

このフレームを2つユーザーフォームの中に挿入します。

次に作成したフレームの中にオプションボタンを挿入していきます。

フレームの中にオプションボタンを挿入しました。

これでオプションボタンをグループにすることができます。意外と簡単です。

オプションボタンで選択した値を取得してセルに反映する方法を説明します。

まずは結果からみてみます。

オプションボタンを1つ選択します。

ボタンをクリックして値をセルに反映します。

セルにオプションボタンの値が反映されました。

選択すると値は『True』となり、選択されていない値は『False』となっています。

オプションボタンの値をセルに反映するVBAコードです。

『ユーザーフォームの中のコード』に記載します。

ボタンをクリックした際に実行するコード『Private Sub CommandButton1_Click()』を使います。

オプションボタンの値は『OptionButton1.Value』で取得できて、選択は『True』で選択していない場合は『False』になります。

取得したオプションボタンの値をセル『ActiveSheet.Cells(1, 1)』に反映しています。

これでオプションボタンの値をセルに反映することができます。

オプションボタンの値をイベントで取得してセルに反映する方法についてご紹介します。

オプションボタンの値に変更があったときその値をセルへ反映するということをします。

ボタンをクリックしないでオプションボタンの値をすぐにセルに反映したいといった場合に参考になるかと思います。

オプションボタンの値をイベントで取得してセルに反映した結果からみていきます。

ユーザーフォームを開きます。

2番目のオプションボタンを選択してみます。

2番目のセルの値が『True』になりました。

オプションボタンの値が変更されたタイミングでセルに反映できています。

Changeのイベントを使ってオプションボタンの値をセルに反映するVBAコードです。

『ユーザーフォームの中のコード』に記載します。

オプションボタンの値が変更された際に実行するコードは『Private Sub OptionButton1_Change()』になります。

このコードの中にオプションボタンの値をセルに反映するコード『ActiveSheet.Cells(1, 1) = OptionButton1.Value』を記載します。

それぞれのオプションボタンに対してVBAコードを記載すると完成です。

これでオプションボタン変更時に値をセルに反映することができます。

オプションボタンをクリアする方法をご紹介します。

オプションボタンは一度クリックするとすべてのオプションボタンを選択していない状態にすることができなくなります。

初期状態からオプションボタンを入力したい場合にクリアする方法が使えます。

まずオプションボタンをクリアした結果からみてみます。

オプションボタンの3番目を選択してみます。

ボタンをクリックしてオプションボタンの値をクリアしてみます。

すべてのオプションボタンが選択されていない状態にできました。

オプションボタンをクリアするVBAコードを説明します

『ユーザーフォームの中のコード』に記載します。

オプションボタンの値をクリアするには『OptionButton1.Value = False』というふうに『False』をオプションボタンの値に入力してやるとできます。

このVBAコードではボタンクリックで実行するコード『Private Sub CommandButton1_Click()』を使用してこの中にクリアのコードを記載しています。

これでオプションボタンをクリアすることができます。

セルから初期値を取得してオプションボタンに設定する方法をご紹介します。

さっき入力したオプションボタンの値をやっぱり変更したいな。という場合に使えます。

セルにオプションボタンの入力を保存しておいて初期値として取得して続きから始めるといった具合です。

オプションボタンの初期値をセルから取得した結果から説明します。

セルにはこのような値が保存されています。

ユーザーフォームを開いてみます。

セルからオプションボタンの初期値が取得できました。

セルからオプションボタンの初期値を取得するVBAコードです。

『ユーザーフォームの中のコード』に記載します。

ユーザーフォームを開いた際に実行するコード『Private Sub UserForm_Initialize()』を使用しています。

オプションボタンの値『OptionButton1.Value』にセルの値『Activesheet.Cells(1,1)』を入力することでオプションボタンにセルの値を設定することができます。

これをオプションボタンの数だけ記載すればセルからオプションボタンの初期値を設定することができます。

応用でもないですが、これまで紹介したセルから初期値取得、セルへ反映、クリアする方法をまとめるとこんな感じになります。

VBAコードを実行した結果からみてみます。

ユーザーフォームを開いてみます。

セルからオプションボタンに初期値が取得されています。

グループにしたオプションボタンと登録ボタン、クリアボタンを用意しています。

オプションボタンの値を変更してみます。

登録のボタンでオプションボタンの値をセルに反映してみます。

セルに値が反映されました。

次に、やっぱり最初から入力し直したいのでクリアしたい。ということでクリアしてみます。

オプションボタンがすべて解除されて、セルの値もすべてFalseになりました。

ちょっと応用のVBAコードはこちらです。

『ユーザーフォームの中のコード』に記載します。

初期値の取得、セルに反映、クリアのコードを記載しました。それぞれ解説していきます。

初期値を取得するためユーザーフォームが開かれた際に実行するコード『Private Sub UserForm_Initialize()』を使用します。

このコードの中にセルからオプションボタンに初期値を設定するコード『Controls("OptionButton" & i).Value = ActiveSheet.Cells(i, 1)』を記載します。

オプションボタンが増えましたので『Controls』を使って『OptionButton1.Value』の数字部分を変数にしています。

ボタンクリックでセルに反映したいのでボタンクリック時に実行するコード『Private Sub CommandButton1_Click()』を使用しています。

このコードの中にオプションボタンの値をセルに反映するコード『ActiveSheet.Cells(i, 1) = Controls("OptionButton" & i).Value』を記載します。

こちらもオプションボタンの数が多いので『Controls』を使っています。

ボタンクリックでオプションボタンをクリアしたいのでボタンクリック時に実行するコード『Private Sub CommandButton2_Click()』を使用しています。

このコードの中にオプションボタンの値をクリアするコード『Controls("OptionButton" & i).Value = False』を記載します。

また、セルの値もクリアしたいのでFalseを入力するコード『ActiveSheet.Cells(i, 1) = False』を記載しています。

この記事ではオプションボタンの使い方、セルに反映する方法、クリアする方法、初期値を設定する方法についてご紹介しました。

アンケートフォームの作成などでいずれか一つの値を選択してほしいといった場合にオプションボタンが必要になってきます。

今回ご紹介した方法で基本的なオプションボタンの操作ができますのでご参考になるかと思います。

最後までご覧くださいましてありがとうございました。