Cum se dezactivează orice altă linie cu o macro
Doriți să faceți invizibile fiecare secundă sau fiecare al doilea rând dintr-un tabel? Puteți face acest lucru cu comanda „Ascundeți”. Dar dacă doriți să faceți acest lucru pentru un număr mare de linii, devine obositor.
O macro face treaba pentru tine. Iată codul:
Sub a doua linie ascunde ()
Dim Row As Long
Rând = 1
În timp ce linia <1000
Celule (linie, 1) .EntireRow.Hidden = True
Linie = linie + 2
Merge încet
Sfârșitul Sub
Macro ascunde toate celelalte rânduri din foaia de lucru activă de la rândul 1 la rândul 1000. Dacă doriți un scop diferit, introduceți limita inferioară 1 în comandă Rând = 1 și modificați limita superioară 1000 în comandă În timp ce linia <1000. Pur și simplu înlocuiți 1 și 1000 cu numerele la alegere.
Dacă nu doriți să ascundeți fiecare a doua linie, puteți adăuga, de asemenea, o valoare diferită pentru 2 la comandă Linie = linie + 2 introduce. O valoare de 4 ascunde doar fiecare a patra linie, un număr de 10 la fiecare a zecea linie și așa mai departe.
Pentru a afișa din nou liniile ascunse, înlocuiți comanda Adevărat în macro Fals și porniți din nou macro-ul.
