Скриване на празни редове и автоматично обновяване на филтъра в 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.

6 коментари

коментиран 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 точки)
Върнах ти отговор. Не беше сложил макрото във файла.
Добре дошли в българския форум за Ексел и Майкрософт офис! Тук можете да питате хора със знания и опит, както и да споделите знанията и опита си с другите.
...