Добрый день. Подскажите пожалуйста как можно скрыть все столбцы и строки ( Не пересекающиеся пустые) к примеру не содержащие необходимого значения ? К примеру у меня есть столбцы во второй строке значение "1 из 8 " , " 2 из 8" и тд Как мне автоматически определить все заполненные столбцы и скрывать их и наоборот? Просто чтобы если я выбери допустим "3 из 8" чтобы остались только столбцы "3 из 8" и строки которые заполненные в этом столбце, а другие строки и столбцы скрывались. и тд. Файл во вложении.
Добрый день. Подскажите пожалуйста как можно скрыть все столбцы и строки ( Не пересекающиеся пустые) к примеру не содержащие необходимого значения ? К примеру у меня есть столбцы во второй строке значение "1 из 8 " , " 2 из 8" и тд Как мне автоматически определить все заполненные столбцы и скрывать их и наоборот? Просто чтобы если я выбери допустим "3 из 8" чтобы остались только столбцы "3 из 8" и строки которые заполненные в этом столбце, а другие строки и столбцы скрывались. и тд. Файл во вложении.Amon
Добрый день, спасибо вам большое все работает в примере который вы скинули. Но как только я поменял именованный лист на лист в переменной с именем с ячейки и указал в Pi
[vba]
Код
Dim str$: str = sahe.[c2] Pi = Cells.Find(str).Column
Добрый день, спасибо вам большое все работает в примере который вы скинули. Но как только я поменял именованный лист на лист в переменной с именем с ячейки и указал в Pi
[vba]
Код
Dim str$: str = sahe.[c2] Pi = Cells.Find(str).Column
Ну так проверьте, на каком этапе у Вас идёт сбой. Гоняйте пошагово и смотрите, какие значения у Вас принимают str и Pi. Мы-то ни диста, который у Вас sahe, ни процесса присвоения этой переменной значения не видим...
Ну так проверьте, на каком этапе у Вас идёт сбой. Гоняйте пошагово и смотрите, какие значения у Вас принимают str и Pi. Мы-то ни диста, который у Вас sahe, ни процесса присвоения этой переменной значения не видим...StoTisteg
Интуитивно понятный код - это когда интуитивно понятно, что это код.
Сообщение отредактировал StoTisteg - Четверг, 14.06.2018, 10:54
я понял в чем проблема. Только не знаю пока что как ее решить. Значение str у меня в ячейке листа [c2] и когда он ищет ячейку которая в [c2] он ее же и находит откуда и берет значение. Сейчас нагуглю как исправить чтобы pi искал значения с колонки Д и дальше, а не с шапки с которой он берет значение и будет мне счастье спасибо всем огромное за помощь. [vba]
Код
Dim i As Integer Pi = Cells.Find(str).Column Rows("9:45").Hidden = False For i = 9 To 45 If Cells(i, Pi).Value = "" Then Rows(i).Hidden = True Next
[/vba]
я понял в чем проблема. Только не знаю пока что как ее решить. Значение str у меня в ячейке листа [c2] и когда он ищет ячейку которая в [c2] он ее же и находит откуда и берет значение. Сейчас нагуглю как исправить чтобы pi искал значения с колонки Д и дальше, а не с шапки с которой он берет значение и будет мне счастье спасибо всем огромное за помощь. [vba]
Код
Dim i As Integer Pi = Cells.Find(str).Column Rows("9:45").Hidden = False For i = 9 To 45 If Cells(i, Pi).Value = "" Then Rows(i).Hidden = True Next
Утречка всем! Amon, а столбцы нормально сворачивает? Если процедура вызывается с другого листа, необходимо явно указать на каком листе искать и сворачивать ячейки. Попробуйте так: [vba]
Код
Pi = ws.Cells.Find(str).Column ws.Rows("9:45").Hidden = False For i = 9 To 45 If ws.Cells(i, Pi).Value = "" Then ws.Rows(i).Hidden = True Next
[/vba]
Утречка всем! Amon, а столбцы нормально сворачивает? Если процедура вызывается с другого листа, необходимо явно указать на каком листе искать и сворачивать ячейки. Попробуйте так: [vba]
Код
Pi = ws.Cells.Find(str).Column ws.Rows("9:45").Hidden = False For i = 9 To 45 If ws.Cells(i, Pi).Value = "" Then ws.Rows(i).Hidden = True Next
работает вроде норм) Столбцы да, нормально сворачивается вроде все) Убрал обновление экрана и вообще все супер стало. Вызывается только с активного листа
работает вроде норм) Столбцы да, нормально сворачивается вроде все) Убрал обновление экрана и вообще все супер стало. Вызывается только с активного листаAmon
Сообщение отредактировал Amon - Четверг, 14.06.2018, 12:08
Amon, точный диапазон в любом случае не повредит, ускоряет работу. Поиск-то работает перебором... А если там кто-нибудь с его параметрами игрался и поставил просмотр по столбцам... Ну Вы поняли.
Amon, точный диапазон в любом случае не повредит, ускоряет работу. Поиск-то работает перебором... А если там кто-нибудь с его параметрами игрался и поставил просмотр по столбцам... Ну Вы поняли.StoTisteg
Интуитивно понятный код - это когда интуитивно понятно, что это код.