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个按钮中的一个，如果是真的则不执行任何操作，如果为假则取消。

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

确定是否在工作表上取消选中所有选项按钮

1 个答案: