Jak wyłączyć co drugą linię za pomocą makra?
Czy chciałbyś, aby co drugi lub każdy n-ty wiersz w tabeli był niewidoczny? Możesz to zrobić za pomocą polecenia „Ukryj”. Ale jeśli chcesz to zrobić dla dużej liczby linii, staje się to nużące.
Makro wykonuje pracę za Ciebie. Oto kod:
Ukryj drugą linię podrzędną ()
Ciemny rząd tak długo
Rząd = 1
Podczas gdy linia <1000
Komórki (linia, 1) .EntireRow.Hidden = Prawda
Linia = linia + 2
Wend
Napis końcowy
Makro ukrywa co drugi wiersz w aktywnym arkuszu od wiersza 1 do wiersza 1000. Jeśli chcesz inny zakres, dopasuj dolny limit 1 w poleceniu Rząd = 1 i zmień górny limit 1000 w poleceniu Podczas gdy linia <1000. Po prostu zamień 1 i 1000 na wybrane przez siebie liczby.
Jeśli nie chcesz ukrywać co drugiej linii, możesz również dodać do polecenia inną wartość dla 2 Linia = linia + 2 wejść. Wartość 4 ukrywa tylko co czwartą linię, liczbę 10 co dziesiątą i tak dalej.
Aby ponownie wyświetlić ukryte linie, zastąp polecenie Prawdziwe w makro Fałszywe i ponownie uruchom makro.