/ / Excel VBAオプションボタン

Excel VBAオプションボタン

複数のオプションボタンがある場合、オプションボタンの1つのみを選択できます。作成するには オプションボタンExcel VBA次の手順を実行します。

1.開発者タブで、挿入をクリックします。

2. ActiveXコントロールグループで、オプションボタンをクリックします。

Excel VBAでオプションボタンを作成する

3.ワークシート上の2つのオプションボタンをドラッグします。

4.最初のオプションボタンを右クリックします(デザインモードが選択されていることを確認してください)。

5.コードの表示をクリックします。

コードを表示

注意: コントロールのキャプションと名前を変更するには、コントロールを右クリックして([デザインモード]が選択されていることを確認してください)、[プロパティ]をクリックします。オプションボタンのキャプションを女性と男性に変更します。ここでは、OptionButton1とOptionButton2をオプションボタンの名前として残します。

6.次のコード行を追加します。

If OptionButton1.Value = True Then Range("D3").Value = 10

7. 2番目のオプションボタンを右クリックします(デザインモードが選択されていることを確認します)。

8. [コードの表示]をクリックします。

9.次のコード行を追加します。

If OptionButton2.Value = True Then Range("D3").Value = 20

10.シート上のオプションボタンをクリックします(デザインモードが選択されていないことを確認してください)。

結果:

オプションボタン1 True

オプションボタン2 True

場合によっては、ワークシート上にオプションボタンを直接配置すると便利な場合もありますが、オプションボタンはユーザーフォームに配置すると特に便利です。

また読む: