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

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

Checking if a worksheet-based checkbox is checked

试一试;

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