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

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

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

Мерси.

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

3 коментари

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

1 отговор

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

Здравей,

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

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

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

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

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

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

6 коментари

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

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