Excel - Ehdollinen piilota rivit useissa arkkeissa

Ongelma

Minulla on yksi Excel-tiedosto, jossa on useita arkkeja, ja ne kaikki ovat samoja sarakkeita ja rivejä. Minun täytyy piilottaa tiettyjä rivejä jokaisessa arkissa (kaikkien rivien samat numerot), jos arvo on nolla tietyssä solussa.

Joten, miten voin tehdä sen VB: ssä ja päivittää automaattisesti, kun muutetaan arvoa edellisessä määritetyssä solussa.

eli: Minulla on 10 arkkia kymmenelle työntekijälle ja jokaisella arkilla on seuraavat tiedot:

 A1 = Työntekijän nimi A2 = Ikä, A4 = Palkka, B4 = 4000 (kaikki summat (arvot) eroavat jokaisessa arkissa) A5 = Vähennykset, B5 = 500 A6 = Vakuutus, B6 = 1000 A8 = Nettopalkka, B8 = 2500 A10 = maksettu sekillä A11 = maksettu siirrolla, B11 = 2500 A13 = yhteensä, B13 = 2500

Minun vaatimukseni on piilottaa jokainen rivi, jolla on nolla sarakkeessa B kaikissa 10 arkissa. Kaikkien arkkien arvo on tietysti otettu yhdestä päälomakkeesta, joten jos master-arkkien arvo muuttuu, sitä muutetaan myös 10 arkissa kullekin kirjeenvaihtajalle.

Huomaa: Minun ei tarvitse suodattaa arvoja.

Lyhyesti haluan kirjoittaa makron piilottaaksesi kaikki rivit (määritetyt), joilla on nolla B-sarakkeessa, ja niitä sovelletaan 10 arkille, joilla on samat rivit ja sarakkeet.

Ratkaisu

Avaa VBE
Napsauta pääarkkia
Liitä tämä koodi:

 Yksityinen alitehtävä_Vaihda (ByVal-kohde alueena) Dim bHide As Boolean Jos Target.Column 2 Sitten Exit Sub bHide = True If (CStr (Target) "0") Sitten bHide = False Jokaiselle arkille Sheets Jos Sheet.Name = ActiveSheet. Nimi Sitten GoTo Next_Sheet Sheets (Sheet.Name) .Rows (Target.Row) .Hidden = bHide Next_Sheet: Next End Sub