Екцел - Сакриј редове са нултом вредношћу у Вишеструки листови

Питање

Помозите ми да направим макро у Екцелсхеет-у који:

Могу сакрити читаве редове ако вриједност ћелије или (распон вриједности) има нулту вриједност у више листова ??? Мислим, на пример, када отворим датотеку или када кликнем на дно контроле да покренем макро.

Мој случај је:

Имам један екцел фајл који има 32 листа за свако особље, а сваки лист има табелу од 3 колоне

 (А, Б, Ц) и 26 редова (1-26). Колона А за текст Колона Б за текст и Колона Ц за Вредности

мој захтев је да сакријем / прикажем цео ред / овисно о вриједности у ступцу Ц и за сваки лист од 32 или притиском на наредбу или промјеном вриједности или било чега.

Решење

Објективан:

Да бисте филтрирали / сакрили редове на свим листовима за дату вредност.

Претпоставке:

1. Положај колоне је исти на сваком листу

3. Филтар се мора примијенити на свим листовима

3. Листови нису скривени

4. Сви листови имају најмање једну ћелију

СТЕПС

1. Прочитајте претпоставке

2. Направите резервну копију

3. Притисните АЛТ + Ф11 и уметните нови модул

4. Залијепите код и покрените га

ЦОДЕ:

 Суб ХидеРовс () Дим Схеет Ас Објецт Дим филтерЗа варијанта Дим иФилтерЦол Ас Интегер иФилтерЦол = 3 'примени филтер на 3 цол филтерФор = ИнпутБок ("Унесите вредност која ће се филтрирати", "Филтер оут") За сваки лист у листовима Одаберите ако је АцтивеСхеет.АутоФилтерМоде онда Целлс.Селецт Селецтион.АутоФилтер Енд Ако ћелије.Изаберите ако АцтивеСхеет.АутоФилтерМоде = Фалсе онда Селецтион.АутоФилтер Енд Ако Селецтион.АутоФилтер Фиелд: = иФилтерЦол, Цритериа1: = "" & филтерФор, Оператор: = клАнд Следећи крај Суб