excel - OptionButton スイッチ効果を作成することは可能ですか?

Question

このようなもの：

Private Sub opt01_Click()
If opt01.Value = True Then
opt01.Value = False
Else
opt01.Value = True
End If

同様の小さな画像を探してインポートするのではなく、私のフォームデザインに適しています。

Answer 1

Click イベントが実行されると、OptionButton の値は常に true になるため、目的の値を変数に格納する必要があります。シート 1 のオプション ボタン 1 という名前のシート内でフォーム コントロール オプション ボタンを使用する例を次に示します。このメソッドはモジュールに格納されます。

Private optionClicked As Boolean
Sub OptionButton1_Click()
    Dim o As OptionButton
    Set o = Sheets(1).Shapes("Option Button 1").OLEFormat.Object
    o.Value = Not optionClicked
    optionClicked = Not optionClicked
End Sub

ただし、この方法を使用すると、任意のオプション ボタンをクリックすると、他のすべてのオプション ボタンが false になることに注意してください。したがって、複数のオプション ボタンをチェック ボックスとして使用するには、オプション ボタンの正しい値を (おそらく配列に) 格納し、オプション ボタンがクリックされるたびに値を修正する必要があります。

チェックボックスが使えないって本当？