excel - Excel取消选中复选框vbokcancel宏

Question

当我选中复选框以取消选中复选框时，我试图在弹出的消息框中获取取消按钮。我已经弹出框，但我的取消按钮会产生“运行时错误 438”。

我目前的代码如下：

Sub Checkbox1()

Dim msgRes As VbMsgBoxResult

msgRes = MsgBox("Please review your changes.    If correct, click OK", _
                 vbOKCancel)

If msgRes = vbCancel Then
Sheets("sheet1").Checkbox1.Value = False

End If


End Sub

Answer 1

认为您的问题与此答案有关

检查是否选中了基于工作表的复选框

试试这个；

If msgRes = vbCancel Then
    Sheets("sheet1").Shapes("Checkbox1").OLEFormat.Object.Value = True
End If