vba 4条件错误，执行不好

也许这里已经讨论过了。我假装的是根据单元格C3隐藏/取消隐藏行间隔。如果C3不是以下数字1、2、3或4中的一个，则应隐藏第7至19行，单击按钮。如果等于1，则假定显示第7到8行，如果等于2，则假定显示第7到12行，依此类推

似乎我编写的代码需要遵循特定的路径，否则它将无法工作

我希望已经说清楚了。

---

谢谢大家

如果要隐藏/取消隐藏的行取决于C3中的值，为什么要使用按钮？当C3中的值更改时，只需隐藏/取消隐藏

右键单击工作表的“名称”选项卡，然后选择“查看代码”。将其粘贴到工作表的代码表中

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Cells(3, "C")) Is Nothing Then

        Select Case Cells(3, "C").Value2
            Case 1
                Rows("7:9").Hidden = True
                Rows("10:19").Hidden = False
            Case 2
                Rows("7:12").Hidden = True
                Rows("13:19").Hidden = False
            Case 3
                'and so on
            Case 4
                'and so on
            Case Else
                Rows("7:19").Hidden = False
        End Select

    End If

End Sub

---

欢迎来到SO！我认为，如果您包含一个复制了您遇到的特定问题（可以是您的实际代码，如果它是自包含的），并且描述了它的问题，那么您的问题可能会更清楚？