Sub 隐藏() Dim sh As Shape For Each sh In ActiveSheet.Shapes If sh.Type = msoFormControl Then If sh.FormControlType = xlGroupBox Then sh.Visible = False End If Next End Sub Sub 显示() Dim sh As Shape For Each sh In ActiveSheet.Shapes If sh.Type = msoFormControl Then If sh.FormControlType = xlGroupBox Then sh.Visible = True End If Next End Sub
时间: 2024-08-01 09:06:32