Excel - betingede skjulrader i flere ark

Utgave

Jeg har en Excel-fil med flere ark, og alle med samme kolonner og rader. Jeg må gjemme bestemte rader i hvert ark (samme radnummer for alle arkene) hvis verdien er null i en bestemt celle.

Så, hvordan kan jeg gjøre det i VB og automatisk oppdatert ved å endre verdien i tidligere angitte celle.

dvs.: Jeg har 10 ark for ti ansatte, og i hvert ark har jeg følgende data:

 A1 = Arbeidsnavn A2 = Alder, A4 = Lønn, B4 = 4000 (alle beløpene (verdiene) vil variere i hvert ark) A5 = Avdrag, B5 = 500 A6 = Forsikring, B6 = 1000 A8 = Netto lønn, B8 = 2500 A10 = Betalt med sjekk A11 = Betalt ved overføring, B11 = 2500 A13 = Totalt, B13 = 2500 

Mitt krav er å skjule hver rad som har null i kolonne B i alle de 10 arkene. Selvfølgelig er verdien for alle arkene hentet fra ett mesterark, så hvis verdien i mesterarket endret, vil den bli endret også i de 10 arkene på hver korrespondent.

Merk: Jeg trenger ikke å filtrere verdiene.

Kort sagt, jeg vil skrive en makro for å skjule alle rader (spesifisert) som har null i kolonnen B, og bli brukt på de 10 arkene som har samme rader og kolonner.

Løsning

  • Åpne VBE
  • Klikk på masterarket ditt
  • Lim inn denne koden:

 Private Sub Worksheet_Change (ByVal Mål Som Range) Dim BHide Som Boolean Hvis Target.Column 2 Deretter Avslutt Sub bHide = True If (CStr (Target) "0") Så bHide = False For Each Sheet In Sheets Hvis Sheet.Name = ActiveSheet. Navn Så Gå til Next_Sheet Sheets (Sheet.Name) .Rows (Target.Row) .Hidden = bHide Next_Sheet: Next End Sub 

Merk

Takk til rizvisa1 for dette tipset på forumet.

Forrige Artikkel Neste Artikkel

Beste Tips