Як вимкнути кожен інший рядок за допомогою макросу
Ви хотіли б зробити кожен другий або кожен n -й рядок таблиці невидимими? Це можна зробити за допомогою команди "Приховати". Але якщо ви хочете зробити це для великої кількості рядків, це стає нудним.
Макрос виконує роботу за вас. Ось код:
Під другий рядок hide ()
Dim Row As Long
Рядок = 1
Поки рядок <1000
Клітинки (рядок, 1) .EntireRow.Hidden = True
Лінія = рядок + 2
Венд
End Sub
Макрос приховує кожен другий рядок на вашому активному аркуші від рядка 1 до рядка 1000. Якщо вам потрібна інша область застосування, встановіть нижню межу 1 у команді Рядок = 1 і змініть верхню межу 1000 у команді Поки рядок <1000. Просто замініть 1 і 1000 на обрані вами номери.
Якщо ви не хочете приховувати кожен другий рядок, ви також можете додати до команди інше значення для 2 Лінія = рядок + 2 введіть. Значення 4 приховує лише кожен четвертий рядок, число 10 кожного десятого рядка тощо.
Щоб знову показати приховані рядки, замініть команду Правда у макросі помилковий і знову запустіть макрос.