Kako izklopiti vsako drugo vrstico z makrom
Ali želite, da bi bila vsaka druga ali vsaka n -ta vrstica v tabeli nevidna? To lahko storite z ukazom "Skrij". Če pa želite to narediti za veliko število vrstic, postane dolgočasno.
Makro opravi delo namesto vas. Tukaj je koda:
Skrij pod drugo vrstico ()
Dim Row As Long
Vrstica = 1
Medtem ko je vrstica <1000
Celice (vrstica, 1) .EntireRow.Hidden = True
Vrstica = vrstica + 2
Wend
End Sub
Makro skrije vsako drugo vrstico na aktivnem delovnem listu od 1. do 1. vrstice. Če želite drugačen obseg, v ukaz vnesite spodnjo mejo 1 Vrstica = 1 in v ukazu spremenite zgornjo mejo 1000 Medtem ko je vrstica <1000. Preprosto zamenjajte 1 in 1000 s številkami po vaši izbiri.
Če ne želite skriti vsake druge vrstice, lahko ukazu dodate tudi drugo vrednost za 2 Vrstica = vrstica + 2 vnesite. Vrednost 4 skriva le vsako četrto vrstico, število 10 vsako deseto vrstico itd.
Če želite znova prikazati skrite vrstice, zamenjajte ukaz Prav v makro Napačno in znova zaženite makro.