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

Excel 我想要一个格式控制按钮来检查是否单击了格式控制复选框,然后删除特定的工作表,excel,vba,Excel,Vba,我只是不知道我做错了什么。我在工作表1中有一个格式控制复选框(我不想使用ActiveX)。然后我有一个链接到Makro1的按钮。当我点击按钮时,我希望makro检查复选框是否被点击,如果是,则删除工作表“Sheet2” 如果有人能帮助我,我会非常高兴,因为我对马克罗斯不太熟悉 提前感谢您可以这样做,但正确的VBA代码是: Sub Makro1() If ActiveSheet.Shapes("Kontrollkästchen 2").ControlFormat.Value

我只是不知道我做错了什么。我在工作表1中有一个格式控制复选框(我不想使用ActiveX)。然后我有一个链接到Makro1的按钮。当我点击按钮时,我希望makro检查复选框是否被点击,如果是,则删除工作表“Sheet2”

如果有人能帮助我,我会非常高兴,因为我对马克罗斯不太熟悉


提前感谢

您可以这样做,但正确的VBA代码是:

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

如果我的回答是正确的,就接受它
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