Skjul hver anden linje

Anonim

Sådan slukkes hver anden linje med en makro

Vil du gerne gøre hver anden eller hver niende række i et bord usynlig? Du kan gøre dette med kommandoen "Skjul". Men hvis du vil gøre dette for et stort antal linjer, bliver det kedeligt.

En makro gør arbejdet for dig. Her er koden:

Sub anden linje skjul ()
Dim Row Så Lang
Række = 1
Mens linje <1000
Celler (linje, 1) .EntireRow.Hidden = True
Linje = linje + 2
Wend
Afslut Sub

Makroen skjuler hver anden række i dit aktive regneark fra række 1 til række 1000. Hvis du vil have et andet omfang, skal du passe til den nedre grænse 1 i kommandoen Række = 1 og ændre den øvre grænse 1000 i kommandoen Mens linje <1000. Du skal blot udskifte 1 og 1000 med numrene efter eget valg.

Hvis du ikke vil skjule hver anden linje, kan du også tilføje en anden værdi for 2 til kommandoen Linje = linje + 2 gå ind. En værdi på 4 skjuler kun hver fjerde linje, et tal på 10 hver tiende linje og så videre.

Hvis du vil vise de skjulte linjer igen, skal du udskifte kommandoen Sand i makroen Falsk og start makroen igen.