我在 Excel(2011 Mac)中有一些单选按钮,它们按组框分组。
我想让 Group Box 不可见。我在互联网上搜索,发现我可以通过输入以下代码使用 VBA 来实现:
ActiveSheet.GroupBoxes.Visible = False
在与相关工作表对应的 VBA 窗口中。我这样做了,但似乎没有什么区别。我是否必须执行其他操作才能激活更改?
答案1
尝试具体地叫出它的名字
ActiveSheet.Shapes("Group Box 1").Visible = False
确保Application.ScreenUpdating = True
例如
Sub hidethings()
Application.ScreenUpdating = False
ActiveSheet.Shapes("Group Box 2").Visible = False
Application.ScreenUpdating = True
End Sub
如果你有一堆想要隐藏的东西,你可以这样做 -
Sub tellme()
Dim thing As Shape
For Each thing In ActiveSheet.Shapes
If thing.FormControlType = xlGroupBox Then
thing.Visible = msoFalse
End If
Next
End Sub
答案2
听起来您输入了一行 VBA 代码,但并未将其放入可执行的子程序中。因此,您所做的操作没有任何效果。
请尝试以下操作:
- 按Alt+打开 VBA 编辑器窗格F11。
- 在打开的窗口中,通过单击
Insert
>插入新模块Module
。 在出现的文本框中粘贴以下内容:
子隐藏框() ActiveSheet.GroupBoxes.Visible = False 子目录结束
将光标放在代码内的任意位置,然后按F5即可执行代码。
这应该会隐藏活动工作表上的所有组框。