Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Скрыть строки по условию - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Скрыть строки по условию (Макросы/Sub)
Скрыть строки по условию
ASM_0408 Дата: Воскресенье, 13.03.2016, 16:01 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 135
Репутация: 0 ±
Замечаний: 20% ±

2016
Добрый день! Уважаемые форумчане, обращаюсь за советом и помощью вот с какой ситуацией. С VBA сталкиваюсь впервые по причине того, что воспользовашись поиском нашел решение своей задачи только в этом разделе. Но как встраивать и записывать макросы не имею ни малейшего представления. В приложенном примере выделен только один лист из множества. Скажите пожалуйста если пользоваться макросом его необходимо на каждом листе запускать или это как то в самом макросе прописывается? Суть вопроса в следующем: в файле необходимо по признаку в столбце О скрывать строки если 1 стока остается если пусто строка скрывается, но при начале работы список должен быть развернут полностью. Извините если как то не понятно выразился просто не знаю всех возможностей макросов. Спасибо!
К сообщению приложен файл: 9789344.xlsx(13Kb)
 
Ответить
СообщениеДобрый день! Уважаемые форумчане, обращаюсь за советом и помощью вот с какой ситуацией. С VBA сталкиваюсь впервые по причине того, что воспользовашись поиском нашел решение своей задачи только в этом разделе. Но как встраивать и записывать макросы не имею ни малейшего представления. В приложенном примере выделен только один лист из множества. Скажите пожалуйста если пользоваться макросом его необходимо на каждом листе запускать или это как то в самом макросе прописывается? Суть вопроса в следующем: в файле необходимо по признаку в столбце О скрывать строки если 1 стока остается если пусто строка скрывается, но при начале работы список должен быть развернут полностью. Извините если как то не понятно выразился просто не знаю всех возможностей макросов. Спасибо!

Автор - ASM_0408
Дата добавления - 13.03.2016 в 16:01
nilem Дата: Воскресенье, 13.03.2016, 16:05 | Сообщение № 2
Группа: Авторы
Ранг: Ветеран
Сообщений: 1057
Репутация: 400 ±
Замечаний: 0% ±

Excel 2013
ASM_0408, привет
а фильтр не подойдет?
К сообщению приложен файл: _9789344.xlsx(14Kb)


Яндекс.Деньги 4100159601573
 
Ответить
СообщениеASM_0408, привет
а фильтр не подойдет?

Автор - nilem
Дата добавления - 13.03.2016 в 16:05
StoTisteg Дата: Воскресенье, 13.03.2016, 16:08 | Сообщение № 3
Группа: Авторы
Ранг: Ветеран
Сообщений: 541
Репутация: 45 ±
Замечаний: 0% ±

Excel 2010
В приложенном примере выделен только один лист из множества

Так что скорее всего нет.


Проверь всё. ThisWorkbook.Save. On Error Resume Next.
 
Ответить
Сообщение
В приложенном примере выделен только один лист из множества

Так что скорее всего нет.

Автор - StoTisteg
Дата добавления - 13.03.2016 в 16:08
ASM_0408 Дата: Воскресенье, 13.03.2016, 16:10 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 135
Репутация: 0 ±
Замечаний: 20% ±

2016
а фильтр не подойдет?

Это называется легких путей не ищем %) %) %) загнался уже совсем. Конечно фильтр оптимальное решение. Благодарю!!!
 
Ответить
Сообщение
а фильтр не подойдет?

Это называется легких путей не ищем %) %) %) загнался уже совсем. Конечно фильтр оптимальное решение. Благодарю!!!

Автор - ASM_0408
Дата добавления - 13.03.2016 в 16:10
StoTisteg Дата: Воскресенье, 13.03.2016, 16:16 | Сообщение № 5
Группа: Авторы
Ранг: Ветеран
Сообщений: 541
Репутация: 45 ±
Замечаний: 0% ±

Excel 2010
ASM_0408, я правильно понял, что скрываются те строки, в которых ничего нет в столбце D? Тогда столбец O вообще не нужен. Просто фильтруем столбец D по условию "<>" Вот так, как в файле. Если хотите, можно чисто для приколу записать простенький макрос и повесить его на хоткеи :)
К сообщению приложен файл: IceHickey.xlsx(13Kb)


Проверь всё. ThisWorkbook.Save. On Error Resume Next.

Сообщение отредактировал StoTisteg - Воскресенье, 13.03.2016, 16:31
 
Ответить
СообщениеASM_0408, я правильно понял, что скрываются те строки, в которых ничего нет в столбце D? Тогда столбец O вообще не нужен. Просто фильтруем столбец D по условию "<>" Вот так, как в файле. Если хотите, можно чисто для приколу записать простенький макрос и повесить его на хоткеи :)

Автор - StoTisteg
Дата добавления - 13.03.2016 в 16:16
StoTisteg Дата: Воскресенье, 13.03.2016, 16:30 | Сообщение № 6
Группа: Авторы
Ранг: Ветеран
Сообщений: 541
Репутация: 45 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
Sub Скрыть()

     Dim i As Integer

     For i = 1 To Sheets.Count
        On Error Resume Next
        ActiveSheet.UsedRange.AutoFilter Field:=4, Criteria1:="<>"
     Next i
     
End Sub
[/vba]
в личную книгу макросов проделает то же самое на всех листах книги.


Проверь всё. ThisWorkbook.Save. On Error Resume Next.

Сообщение отредактировал StoTisteg - Воскресенье, 13.03.2016, 18:55
 
Ответить
Сообщение[vba]
Код
Sub Скрыть()

     Dim i As Integer

     For i = 1 To Sheets.Count
        On Error Resume Next
        ActiveSheet.UsedRange.AutoFilter Field:=4, Criteria1:="<>"
     Next i
     
End Sub
[/vba]
в личную книгу макросов проделает то же самое на всех листах книги.

Автор - StoTisteg
Дата добавления - 13.03.2016 в 16:30
ASM_0408 Дата: Воскресенье, 13.03.2016, 17:50 | Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 135
Репутация: 0 ±
Замечаний: 20% ±

2016
Если хотите, можно чисто для приколу записать простенький макрос и повесить его на хоткеи :)

Ни разу не имел дело с макросами сейчас попробую. Если не затруднит напишите алгоритм встраивания макроса.
 
Ответить
Сообщение
Если хотите, можно чисто для приколу записать простенький макрос и повесить его на хоткеи :)

Ни разу не имел дело с макросами сейчас попробую. Если не затруднит напишите алгоритм встраивания макроса.

Автор - ASM_0408
Дата добавления - 13.03.2016 в 17:50
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Скрыть строки по условию (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!