„Excel“ - slėpti eilutes su nulio reikšme keliuose lapuose

Problema

Padėkite man padaryti makrokomandą „Excelsheet“, kad:

Aš galiu paslėpti visas eilutes, jei ląstelių vertė arba (reikšmių diapazonas) yra nulinė vertė keliuose lapuose? Pvz., Kai atidariu failą arba kai spusteliu valdymo apačią, noriu paleisti makrokomandą.

Mano atvejis yra:

Turiu vieną Excel failą, kuriame yra 32 lapai kiekvienam personalui, ir kiekviename lape yra 3 stulpelių lentelė

 (A, B, C) ir 26 eilučių (1-26). B stulpelio A stulpelis, skirtas tekstui, taip pat C stulpelis vertėms

mano prašymas yra paslėpti / išskleisti visą eilę / s, priklausomai nuo C stulpelio vertės ir kiekvieno 32 lapo lapo, paspaudus komandą arba keičiant vertybes ar ką nors.

Sprendimas

Tikslas:

Norėdami filtruoti / paslėpti eilutes visame lape tam tikrai vertei.

Prielaidos:

1. Kiekvieno lapo stulpelio vieta yra tokia pati

3. Filtras turi būti taikomas visuose lapuose

3. Lapai nėra paslėpti

4. Visuose lapuose yra bent vienas langelis

Žingsniai

1. Perskaitykite prielaidas

2. Padarykite atsarginę kopiją

3. Paspauskite ALT + F11 ir įdėkite naują modulį

4. Įklijuokite kodą ir paleiskite jį

KODAS:

 „Sub HideRows“ () „Dim Sheet“ kaip „Objektas“ „Dim filterFor“ kaip variantas „Dim iFilterCol As Integer“ iFilterCol = 3 'taikyti filtrą 3 col filterFor = InputBox („Įveskite vertę, kurią reikia ištrinti“, „Filtruoti“) Kiekvieno lapo lape .Pasirinkite If ActiveSheet.AutoFilterMode Tada Cells.Select Selection.AutoFilter End Jei Cells.Select Jei ActiveSheet.AutoFilterMode = False Tada pasirinkimas.AutoFilter pabaiga Jei Selection.AutoFilter laukas: = iFilterCol, kriterijai1: = "" & filterFor, Operatorius: = xlAnd Kitas pabaiga Sub