複数のオプションボタンを使用している場合は、オプションボタンの一方のみを選択することができます。エクセルVBAでオプションボタンを作成するには、次の手順を実行します。

[開発]タブ1. [挿入]をクリックします。

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

Create an option button in Excel VBA

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

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

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

View Code

注:あなたがコントロール上で右クリックして、コントロールのキャプションと名前を変更する(デザインモードが選択されていることを確認してください)、[プロパティをクリックすることができます。女性と男性にオプションボタンのキャプションを変更します。今のところ、我々は、オプションボタンの名称として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.(デザインモードの選択が解除されたことを確認してください)シート上のオプションボタンをクリックします。

結果:

Option Button 1 True

Option Button 2 True

いくつかの状況では、それは直接、ワークシート上のオプションボタンを配置すると便利ですが、ユーザーフォーム上に置かれたときに、オプションボタンが特に有用です。