シート上のすべてのオプションボタンがチェックされていないかどうかを確認します

Question

シートに4つのフォームコントロールオプションボタンがあります。 4つのオプションボタンがすべてチェックされていないと、印刷機能の前にハードストップを設定しようとしています。 空白のままにしてボタンに何も表示されていない場合は、すべてのチェックボックス（フォームのコントロールではなくシェイプを使用）を要求することに成功しました。

If ActiveSheet.OptionButtons("button3") = Unchecked _ 
And ActiveSheet.OptionButtons("button20") = Unchecked _ 
And ActiveSheet.OptionButtons("button45") = Unchecked _ 
And ActiveSheet.OptionButtons("buttonEpic") = Unchecked Then 
MsgBox "Missing" 
Cancel = True 
End If 
End Sub 

私も= Falseと.value = falseを試してみました。すべてのボタンは現在チェックされていませんが、メッセージボックスやハードストップを促すメッセージは表示されません。 助けてくれてありがとう！

Answer 1

私はワークシート上のチェックされたオプションボタンを識別することができますが、チェックされていない場合は確認できないので、非常に簡単な回避策です。私は、4つのボタンのうちの1つがチェックされているかどうかを確認し、そうであれば何もしないで、偽であればキャンセルします。

Private Sub Workbook_BeforePrint (Cancel as Boolean) 

With ActiveSheet 
If .Optionbuttons ("button1").Value = Checked _ 
Or .Optionbuttons ("button2").Value = Checked _ 
Or .Optionbuttons ("button3").Value = Checked Then 
Exit Sub 
Else: Msgbox "Please select an option" 
Cancel = True 
End If 
End With 
End Sub