VBA 4 условия ошибка не выполнение хорошо

Question

Возможно, это уже обсуждалось здесь. Я притворяюсь, что скрываю / показываю интервал между строками в зависимости от ячейки C3.Если C3 не является одним из следующих чисел 1,2,3 или 4, предполагается скрыть строки с 7 по 19, нажав на кнопку.Если он равен 1, то предполагается, что он показывает строки с 7 по 8, Если он равен 2, он должен отображать строки с 7 по 12 и так далее.

Кажется, что код, который я написал, должен следовать определенному пути, иначе он не работает.

Я надеюсь, что все было ясно.спасибо всем

Answer 1

Если строки, которые нужно скрыть / показать, зависят от значения в 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