Есть файл с листом, на котором друг за другом идут вниз несколько таблиц.
Подскажите пож-ста код для кнопки, который будет скрывать/показывать строки к примеру для первой таблицы, в том числе и ее шапки (строки с 11 по 29).
При этом учитывается тот факт, что строки в таблице могут как добавляться, так и исчезать. То есть наверно необходимо условие про непустую строку в диапазоне для выполнения кода. Давно я делал нечто подобное, но подзабыл...
Заранее спасибо)))
Добрый день.
Есть файл с листом, на котором друг за другом идут вниз несколько таблиц.
Подскажите пож-ста код для кнопки, который будет скрывать/показывать строки к примеру для первой таблицы, в том числе и ее шапки (строки с 11 по 29).
При этом учитывается тот факт, что строки в таблице могут как добавляться, так и исчезать. То есть наверно необходимо условие про непустую строку в диапазоне для выполнения кода. Давно я делал нечто подобное, но подзабыл...
Такой вариант В С2 вводим номер строки, от которой вниз хотим скрыть все строки до первой пустой. И жмем кнопку. Макрос [vba]
Код
Sub tt() If Range("C2") < 7 Then Exit Sub If IsNumeric(Range("C2")) Then Application.ScreenUpdating = 0 r0_ = Range("C2") h_ = Not Rows(r0_).Hidden For i = r0_ To Rows.Count If Range("C" & i) <> "" Then Rows(i).Hidden = h_ Else Exit For End If Next i Application.ScreenUpdating = 1 End If End Sub
[/vba]
Такой вариант В С2 вводим номер строки, от которой вниз хотим скрыть все строки до первой пустой. И жмем кнопку. Макрос [vba]
Код
Sub tt() If Range("C2") < 7 Then Exit Sub If IsNumeric(Range("C2")) Then Application.ScreenUpdating = 0 r0_ = Range("C2") h_ = Not Rows(r0_).Hidden For i = r0_ To Rows.Count If Range("C" & i) <> "" Then Rows(i).Hidden = h_ Else Exit For End If Next i Application.ScreenUpdating = 1 End If End Sub
Спасибо, попробую))) насчёт введения номера строки, в принципе тут наверно можно без введения номера, ведь первая строка каждой таблицы всегда в одном и том же месте)))
Спасибо, попробую))) насчёт введения номера строки, в принципе тут наверно можно без введения номера, ведь первая строка каждой таблицы всегда в одном и том же месте)))Raven2009
То есть Вы хотите на каждую таблицу свой макрос? и свою кнопку? .не многовато получится? Я для того так и написал, чтобы на все таблицы был один макрос и одна кнопка.
То есть Вы хотите на каждую таблицу свой макрос? и свою кнопку? .не многовато получится? Я для того так и написал, чтобы на все таблицы был один макрос и одна кнопка._Boroda_
Извините, но никак я не заметил. Не обижайтесь, но мне вообще без разницы - для меня это просто файл с какими-то данными. Смены, апельсины, бабочки, мне все равно - это просто данные. А вот про это
каждой смене понадобится информация только своей смены
я что-то не совсем понял. Написали бы в первом сообщении - обязательно был бы дополнительный вопрос. Вот смотрите - у Вас человек из какой-то смены пришел и для того, чтобы увидеть только свою смену, он что сделать должен? Получается, что он должен последовательно понажимать на кучу кнопок, скрывающих каждую смену, кроме своей. Я правильно Вас понял? Может, немного облегчить ему работу и сделать кнопку, работающую наоборот - скрывающую всё и открывающую только нужную смену? А по поводу
[/vba] Но автору это не нужно, как оказалось. Добавлено Оказалось, что нужно стационарное начало много раз, а не произвольное один. Конец добавления [p.s.]Хотел, как лучше, вышло ...
Извините, но никак я не заметил. Не обижайтесь, но мне вообще без разницы - для меня это просто файл с какими-то данными. Смены, апельсины, бабочки, мне все равно - это просто данные. А вот про это
каждой смене понадобится информация только своей смены
я что-то не совсем понял. Написали бы в первом сообщении - обязательно был бы дополнительный вопрос. Вот смотрите - у Вас человек из какой-то смены пришел и для того, чтобы увидеть только свою смену, он что сделать должен? Получается, что он должен последовательно понажимать на кучу кнопок, скрывающих каждую смену, кроме своей. Я правильно Вас понял? Может, немного облегчить ему работу и сделать кнопку, работающую наоборот - скрывающую всё и открывающую только нужную смену? А по поводу
[/vba] Но автору это не нужно, как оказалось. Добавлено Оказалось, что нужно стационарное начало много раз, а не произвольное один. Конец добавления [p.s.]Хотел, как лучше, вышло ..._Boroda_
показалось, что нервничаете, что не сразу отвечаю)))
Не, я ж и сам на работе. Это я про то писал, что число в С2 важно только для варианта, от которого Вы отказались. Для вариантов с жесткой привязкой макроса к первой ячейке проверяемого диапазона число в С2 вообще не нужно, следовательно, и проверка его тоже не нужна
показалось, что нервничаете, что не сразу отвечаю)))
Не, я ж и сам на работе. Это я про то писал, что число в С2 важно только для варианта, от которого Вы отказались. Для вариантов с жесткой привязкой макроса к первой ячейке проверяемого диапазона число в С2 вообще не нужно, следовательно, и проверка его тоже не нужна_Boroda_
Насчёт общей кнопки вы правы))) все таки использую наряду со множеством кнопок одну общую наверху, чтобы скрыть сразу несколько таблиц, а потом посредством одной из нескольких других открыть необходимую таблицу. Спасибо))
Не подскажете, с колонками как преобразовать код? К примеру если понадобится скрыть колонки с шапкой Inbound Stats??
Насчёт общей кнопки вы правы))) все таки использую наряду со множеством кнопок одну общую наверху, чтобы скрыть сразу несколько таблиц, а потом посредством одной из нескольких других открыть необходимую таблицу. Спасибо))
Не подскажете, с колонками как преобразовать код? К примеру если понадобится скрыть колонки с шапкой Inbound Stats??Raven2009