Скрыть строки в одном листе на основе значения ячейки в другом листе - PullRequest
0 голосов
/ 30 января 2020

Я знаю, что этот вопрос задавался до тошноты, и я извиняюсь, что добавил его в список, но я пробовал много разных постов, чтобы попытаться найти решение, и мой код просто ничего не делает. У меня есть выпадающий список в ячейке 49 вкладки «Рабочий лист», который имеет 3 варианта: «Гибридный», «Онлайн» и «Жилой». Мне бы хотелось, чтобы на моей вкладке «Заметки» человек выбирал гибридные или онлайн-строки 37–63, чтобы они были скрыты. Когда человек выбирает Жилые ряды 37-63 видны. Я думал, что это будет легко, но что бы я ни делал, ничего не происходит. У меня есть это в указанном c коде вкладки "Заметки", а не в модуле. Любая помощь будет принята с благодарностью. Ниже приведен код, который я написал. Спасибо!

Private Sub Worksheet_Change(ByVal Target As Range)
   For a = 37 To 63
      If Worksheets("Worksheet").Cell(C49).Value <> "Residential" Then
         Worksheets("Memo").Rows(a).Hidden = True
      ElseIf Worksheets("Worksheet").Cell(C49).Value = "Residential" Then
             Worksheets("Memo").Rows(a).Hidden = False
      End If
    End Sub

1 Ответ

1 голос
/ 30 января 2020

Поднимание различных комментариев - я думаю, что ваш код может быть уменьшен до

Private Sub Worksheet_Change(ByVal Target As Range)

If intersect(Target,range("C49")) is nothing Then Exit Sub

Worksheets("Memo").Rows("37:63").Hidden = (Range("C49").Value <> "Residential")

End Sub

Редактировать: обновляется в соответствии с комментарием @Pᴇʜ.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...