Скриване на празни редове и автоматично обновяване на филтъра в Excel?

0 одобрения 0 неодобрения
попитан 2018 октомври 31 в Excel от ИВАН ученик (37 точки)
Здравейте,някой да ми предложи код за Автоматично скриване на празни редове? Трябва ми решение без макро... Че файла се използва на телефон и телефона не ги разпознава.

Примерно: от A15 до I15 и така до A19 ,I19.

Мерси.

Редовете, които искам да скрия са с формули и се пълнят с данни при определени правила. Искам когато в клетките има стойност, да се показват, а когато са празни, да са скрити, т.е филтъра да се обновява автоматично при промяна на числата. Мерси.

3 коментари

коментиран 2018 ноември 2 от ИВАН ученик (37 точки)
Пробвах филтрите но и с тях не крие редовете някакви други идеи ?
Това с филтрите ако заработи ще ми свърши работа.  Стига само като няма отметка на празна клетка да крие реда а ако няма празна клетка да си го показва.
коментиран 2018 ноември 5 от vbafreak експерт (203 точки)
Филтрите ще ти свършат перфектна работа в този случай. data -> filter и скриваш всички празни редове.
коментиран 2018 ноември 10 от ИВАН ученик (37 точки)
Там е работата че като се скрият после не се показват....

1 отговор

2 одобрения 0 неодобрения
отговорени 2018 ноември 5 от Badan експерт (253 точки)
редактиран 2018 ноември 10 от Badan

Здравей,

За да скриеш празни редове най-лесно и бързо е да използваш вградения филтър в Ексел:

1. Маркираш колоната с прази клетки.

2. От Data таба избираш filter, след което на първия ред ще се появи бутонче за филтър.

3. Натискаш филтър бутона и ще се появи прозорче с параметрите, по които можеш да филтрираш

4. Махаш тикчето от последния параметър (Blanks).

Ъпдейт: за да се покажат отново скритите редове, ако има промяна в данните и клетките вече имат стойности, е необходимо да се обнови филтъра. От Ексел 2010г. нагоре има вграден шорткът за това: CTRL + ALT + L.

11 коментари

коментиран 2018 ноември 10 от ИВАН ученик (37 точки)
Здравей, след като пусна филтъра махам отметката на празни клетки и клетките изчезват. До тук добре. Обаче след това когато вече не е празна не иска да се покаже...
коментиран 2018 ноември 10 от Badan експерт (253 точки)
След като клетката е скрита, как въвеждаш данни в нея? Трябва ми повече информация, за да мога да ти помогна. Пробвай да обновиш данните с F9.
коментиран 2018 ноември 10 от ИВАН ученик (37 точки)
Здравей отново, Въвеждам от други клетки.
Цялата таблица да кажем че е калкулатор. Примерно от А1 до А4  слагам суми . Там редовете си остават видими независимо дали е празна или с сума.
А от А5 до А9 са ми формулите който взимат данни от А1 до А4 .
Та когато А1 и А2 не съм добавил нищо съответно А5 и А6 остават празни. Крия ги с формула
=IF(А1>0,A5," ")
Това е като цяло.
В задачата търся как автоматично да се скрият примерно А5 и А6 се скриват когато в А1 и А2 са празни. И обратно когато А1 и А2 съм добавил трябва А5 и А6 да се покажат

Дано съм обяснил за какво става дума.
коментиран 2018 ноември 10 от Badan експерт (253 точки)
Сега разбрах какъв е проблема, искаш филтъра да се обновява автоматично, всеки път, когато се променят данните. Пробвай с ctrl + alt + L. Това би трявбало да обнови данните. При мен работи (Excel 2013). Ако не става, единственият друг начин, който се сещам е с макро, но доколкото разбрах такова решение не ти върши работа.
коментиран 2018 ноември 10 от ИВАН ученик (37 точки)
Да точно това ми трябва...
Работата е там че се използва на телефон. Гоогле таблици не подържа макро. Трябва да пробвам мобилния microsoft excel . А макро готово от къде мога да намеря за скриване и показване на редове или макро което обновява филтъра ?
Мерси.
коментиран 2018 ноември 10 от Badan експерт (253 точки)
Нещо такова:
Sub Worksheet_Change(ByVal Target As Range)
   Sheets("Sheet1").AutoFilter.ApplyFilter
End Sub

С ctrl - alt - L не става ли в Ексел?
коментиран 2018 ноември 11 от ИВАН ученик (37 точки)
Здравей, с 2010 се получава CTRL + ALT + L.
Но няма как да стане за телефона :( За това търся решение за Автоматично да се прави.
А  с по горния код ми изписва някаква грешка.
Но не мога да намеря от къде се качват снимки...
коментиран 2018 ноември 11 от Badan експерт (253 точки)
Каква грешка ти дава? Напиши какво пише точно.
коментиран 2018 ноември 11 от ИВАН ученик (37 точки)
Run Time error '9':
Subscript out of range

Sub Worksheet_Change(ByVal Target As Range)
   Sheets("Sheet1").AutoFilter.ApplyFilter -(това ми го подчертава с жълто)
End Sub
коментиран 2018 ноември 11 от Badan експерт (253 точки)
Предполагам, че не си инициализирал филтъра и Ексел не го разпознава и затова връща грешка. При мен работи, когато има филтър. Сложи филтъра и пробвай пак. Ако ти трябва вариант да не връща грешка, когато няма филтър, сложи някаква проверка в кода. Нещо такова:
If Not (Sheets("Sheet1").AutoFilter Is Nothing) Then
    'Do something
End If
коментиран 2018 ноември 11 от Badan експерт (253 точки)
Върнах ти отговор. Не беше сложил макрото във файла.
Добре дошли в българския форум за Ексел и Майкрософт офис! Тук можете да питате хора със знания и опит, както и да споделите знанията и опита си с другите.
...