Skjul annenhver linje

Anonim

Slik slår du av hver annen linje med en makro

Vil du gjøre hver andre eller hver niende rad i et bord usynlig? Du kan gjøre dette med kommandoen "Skjul". Men hvis du vil gjøre dette for et stort antall linjer, blir det kjedelig.

En makro gjør jobben for deg. Her er koden:

Sub second line hide ()
Dim Row As Long
Rad = 1
Mens linje <1000
Celler (linje, 1) .EntireRow.Hidden = True
Linje = linje + 2
Wend
Slutt Sub

Makroen skjuler hver annen rad i det aktive regnearket fra rad 1 til rad 1000. Hvis du vil ha et annet omfang, passer du nedre grense 1 i kommandoen Rad = 1 og endre den øvre grensen 1000 i kommandoen Mens linje <1000. Bare erstatt 1 og 1000 med tallene du ønsker.

Hvis du ikke vil skjule hver andre linje, kan du også legge til en annen verdi for 2 i kommandoen Linje = linje + 2 Tast inn. En verdi på 4 skjuler bare hver fjerde linje, et tall på 10 hver tiende linje, og så videre.

For å vise de skjulte linjene igjen, erstatt kommandoen ekte i makroen Falsk og start makroen igjen.