Часто бувають ситуації, коли вам потрібно виділити певну кількість осередків (не обов'язково 500, але ми, наприклад, розглянемо їх). Отже, допустимо нам потрібно виділити 500 осередків, скопіювати їх і кудись вставити.
Отже, почнемо!
Ми розглянемо 2 способи швидкого виділення.
Виділяємо комірки за допомогою поля «Ім'я»
На зображенні нижче, ви можете побачити це поле.
Взагалі, воно відображає активну комірку (або діапазон). Але це поле також можна використовувати для виділення комірки (або діапазону).
Як це зробити:
- Введіть діапазон осередків, який потрібно виділити;
- Підтвердіть.
Діапазон – це серія осередків, наприклад, A1: A25
Отже, ми виділили необхідний спектр.
За допомогою Visual Basic
Також ми можемо автоматизувати цей процес та зробити власну функцію за допомогою Visual Basic.
Код:
Sub Select500Cells() Range(ActiveCell, ActiveCell.Offset(500, 0)).Select End Sub
Отже, як створити власну функцію?
Покрокова інструкція:
- Клацніть на “Розробник”;
- Відкрийте VB;
- Натисніть правою кнопкою на будь-який аркуш і виберіть “Insert” -> “Module”;
- Вставте код нашої функції та закрийте Visual Basic;
Отже, функція виділятиме 500 осередків.
Як використовувати макрос та функцію виділення?
Я скажу вам не лише як її використати, а й як спростити цей процес. Ми можемо додати нову функцію до панелі швидкого доступу.
Як це зробити?
Покрокова інструкція:
- Натисніть стрілку, що йде вниз (на панелі швидкого доступу);
- Натисніть «Інші команди…»;
- У вікні, в опції «Вибрати команди з» виберіть «Макроси»;
- Виділіть нашу функцію та натисніть додати;
- Підтвердіть.
Отже, ми додали функцію до панелі швидкого доступу.
Щоб виділити 500 осередків, достатньо просто натиснути на значок нашої функції, який тепер знаходиться в панелі швидкого доступу.
Давайте розглянемо інші корисні коди для Visual Basic.
Виділення 500 рядків
Sub Select500Rows() Range(ActiveCell, ActiveCell.Offset(500, 0)).EntireRow.Select End Sub
Виділення 500 рядків та їх подальше копіювання
Sub Copy500Cells() Range(ActiveCell, ActiveCell.Offset(500, 0)).Copy End Sub
Виділення 500 рядків починаючи з осередку А1
Sub SelectFirst500Cells() Range(Range(“A1”), Range(“A1”).Offset(500, 0)).Select End Sub
Замість числа 500 можна поставити будь-яку кількість осередків
