excel - 按钮可见属性在 Excel VBA 中不起作用

Question

我正在处理一个非常简单的电子表格，直接在工作表上使用命令按钮(表单控件，而不是 ActiveX)。我想这样做，以便在单击一次按钮时，它要么被隐藏要么被锁定，以便在不重新打开工作表的情况下无法再次单击它。



我试过btnNewMonth.Visible和 btnNewMonth.Locked ，并且这些都不起作用。我已经检查了大约 500 次拼写错误，但我找不到任何错误。还有什么我可能做错了吗？

我已经在这里粘贴了我的整个代码，但有问题的行是最后一行。它抛出

Run-time Error 424: Object required.

Sub btnNewMonth_Click()

Dim lastmonth As Variant

Cells(1, 1) = DateAdd("m", 1, DateValue(Cells(1, 1)))
lastmonth = Range("D6:D9")
Range("C6:C9") = lastmonth
Range("D6:D9") = ""
Range("B17:G18") = ""
Range("B20:G21") = ""

btnNewMonth.Visible = False  'Run-time error 424: Object required

End Sub

Answer 1

见 this answer如果您需要在工作表上找到 ActiveX 或表单控件。

在这种情况下，这应该足够了:

ActiveSheet.Shapes.Item("btnNewMonth").Visible = False

我强烈建议使用特定的 Worksheet对象而不是隐式或显式处理 ActiveSheet尽管。例如，如果您更改 (Name)您的工作表的属性，例如 SummarySheet ，那么你可以这样做:

SummarySheet.Shapes.Item("btnNewMonth").Visible = False