VBA код для скрытия строк n-максимум
Есть ли какой-либо код в Excel 2010 VBA, который я могу использовать, чтобы скрытьстрока n (например, строка 200) до максимального ряда?
Кстати, название листа, в частности,главный.
Чувак, давай. Мы дали вам 2 разных варианта решения. Приспособьте это к своей ситуации.
Ответы на вопрос(2)
чтобы попытаться отклонить ваш вопрос, но эй, яЯ ленивый сегодня утром, поэтому яЯ просто дам вам ответ, за который у вас нетт работал на.
Rows(200, ActiveSheet.Rows.Count).Hidden = true
В противном случае нам нужно немного больше узнать о таблице, чтобы узнать, как это сделать.
Там. Починил это.
Он сказал
to the maximum row нетto the last row with dataТак что, если на листе вообще не было данных? (Я поднял ваш комментарий выше моей ошибки)
это ленивый - например, он предполагает, что есть данные вне строки 200
Решение Вопроса
Обновленный комментарий: для ясности я интерпретировал этот вопрос как скрытие от строки 200 до используемой строки с данными (если эта последняя использованная строка превысила 200)
Что-то вроде этого
код
Sub HideEm()
Dim rng1 As Range
Set rng1 = ActiveSheet.Cells.Find("*", [a1], xlValues, , , xlPrevious)
If Not rng1 Is Nothing Then
If rng1.Row > 200 Then Rows("200:" & rng1.Row).Hidden = True
End If
End Sub
работать на определенном листе
Sub HideEm()
Dim ws As Worksheet
Dim rng1 As Range
Set ws = Sheets("main")
Set rng1 = ws.Cells.Find("*", ws.[a1], xlValues, , , xlPrevious)
If Not rng1 Is Nothing Then
If rng1.Row > 200 Then ws.Rows("200:" & rng1.Row).Hidden = True
End If
End Sub
@methuselah обновил мой второй пример, чтобы сделать это
Таким образом, чтобы установить его на листеглавный Я бы поставил
Set ws = main