エクセルVBAのオプションボタン
複数のオプションボタンを使用している場合は、オプションボタンの一方のみを選択することができます。エクセルVBAでオプションボタンを作成するには、次の手順を実行します。
[開発]タブ1. [挿入]をクリックします。
ActiveXコントロールグループで、[オプション]ボタンをクリックします。
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.(デザインモードの選択が解除されたことを確認してください)シート上のオプションボタンをクリックします。
結果:
いくつかの状況では、それは直接、ワークシート上のオプションボタンを配置すると便利ですが、ユーザーフォーム上に置かれたときに、オプションボタンが特に有用です。