我想要一个格式控制按钮来检查是否单击了格式控制复选框，然后删除特定的工作表

Question

Sub Makro1()
If ActiveSheet.Shapes("Kontrollkästchen 2").ControlFormat.Value = 1 Then
Application.DisplayAlerts = False
Worksheets("Sheet2").Delete
Application.DisplayAlerts = True

End If
End Sub

我只是不知道我做错了什么。我在工作表1中有一个格式控件复选框(我不想使用ActiveX(。然后我有一个链接到Makro1的按钮。当我点击按钮时，我希望makro检查复选框是否被点击，如果是这样的话，delte Worksheet"表2"；。

如果有人能帮我，我会很高兴，因为我对马克罗斯不是很熟悉。

提前感谢

Answer 1

您可以这样做，但正确的VBA代码是：

Sub Makro1()
If ActiveSheet.Shapes("Kontrollkästchen 2").OLEFormat.Object.Value = 1 Then
Application.DisplayAlerts = False
Worksheets("Sheet2").Delete
Application.DisplayAlerts = True

End If

End Sub