Vba 根据输入显示/取消显示组形状

如果“C18”中的输入为1，则组1/2/3/4（行组）应消失。没有发生

代码：

或者，如果将这些组分组为一个组，只需：

Public Sub Design_Click()
    [Group 5].Visible = [C18] = 1
End Sub

---

它应该是

TorsionGroup.Visible

而不是

ActiveSheet.TorsionGroup.GroupItems（）。Visible

Public Sub Design_Click()
    Shapes.Range(["Group "&column(a:d)]).Visible = [C18] = 1
End Sub

Public Sub Design_Click()
    [Group 5].Visible = [C18] = 1
End Sub