Набір VBA - Призначте посилання на об'єкт, діапазон комірок за допомогою набору Excel VBA

• Набір Excel VBA

Набір Excel VBA

"Встановити" - це ключове слово, яке використовується в програмуванні VBA для призначення посилання на об'єкт або діапазон комірок, який буде залишатися виправленим протягом всієї програми або коду в Excel. VBA Set в основному допомагає нам уникнути повторного введення діапазону, який нам потрібно вибрати під час виконання коду. Крім цього, "Набір" в основному застосовується на робочих аркушах / діапазонах комірок на певному аркуші.

Синтаксис:

Встановити ім'я / змінну об'єкта = Об'єкт / Діапазон

Примітка . На робочому аркуші Excel потрібно мати вкладку Developer.

Якщо ви не бачите в Excel вкладку «Розробник», перегляньте нижче кроки:

Крок 1: Клацніть на варіант файлу .

Крок 2: З'являється меню, що випадає, натисніть на вкладку Параметри .

Крок 3: Після натискання на "Параметри" з'явиться діалогове вікно, як показано нижче, і натисніть на параметр Налаштувати стрічку .

Крок 4: Коли ми перетягнемо вниз налаштування стрічки для налаштування, ми знайдемо варіант для Developer, нам потрібно встановити прапорець, який дозволить нам використовувати VBA в excel.

Як використовувати набір ключових слів у VBA?

Нижче наведено різні приклади використання набору ключових слів у Excel VBA.

Ви можете завантажити шаблон VBA Set Excel тут - Шаблон VBA Set Excel

Набір Excel VBA - приклад №1

Візьмемо простий приклад набору ключових слів у Excel VBA. Припустимо, ми хотіли б вибрати діапазон і встановити його як діапазон виправлення, щоб уникнути повторення. Нижче представлений діапазон комірок, що містить назви:

Для використання набору ключових слів у Excel VBA виконайте наведені нижче дії:

Крок 1: Перейдіть на вкладку «Developer», а потім натисніть на опцію «Visual Basic» ліворуч (перша опція), як показано нижче.

Після натискання на нього з'являється нове вікно, як показано нижче:

Ви помітите, що він містить дві вкладки з лівої сторони, "Sheet1 (Sheet1)" та "ThisWorkbook". Єдина відмінність - "Sheet1", коли ви хочете виконати код лише для цього аркуша, і в "ThisWorkbook" ми можемо написати код і виконати, який можна застосувати до всієї робочої книги excel.

Крок 2: Двічі клацніть на "Sheet1 (Sheet1)", і ви побачите порожній екран, де нам потрібно написати код. Спочатку оголосіть підмножину як ім'я підменю та натисніть клавішу Enter, і ви побачите підмножину, створену, як показано нижче:

Код:

 Sub setexmp () Кінець Sub 

Таким чином ми створюємо підмножину і автоматично з’являється “End Sub”. Це за замовчуванням функція excel. Якщо "End Sub" не з'являється, код не виконає і видасть помилку.

Крок 3: Тепер ми оголосимо змінні, які будуть використані в коді.

Введіть ім'я змінної Dim і тип змінної. Тут назва буде подібна до ідентичності діапазону, а тип буде чи Integer, Long, String, Range тощо.

Код:

 Sub setexmp () Dim Rnst As Range End Sub 

Тут "Rnst" - це ім'я змінної і призначте (As) функцію діапазону. Це попередить систему про те, що буде зроблено вибір діапазону.

Крок 4: Потім введіть ключове слово «Встановити» та введіть діапазон у форматі: Встановити змінну = Діапазон («Діапазон комірок») .

Код:

 Sub setexmp () Dim Rnst As Range Set Rnst = Діапазон ("A2: A11") Кінець Sub 

Крок 5. Ми повинні вибрати вказаний діапазон рядків. Отже, введіть нижче вибір як Rnst.Select Скріншот посилань :

Код:

 Sub setexmp () Dim Rnst As Range Set Rnst = Діапазон ("A2: A11") Rnst.Select End Sub 

Крок 6: Запустіть код, натиснувши кнопку F5 або Запустити і подивіться вихід.

Він вибере вказаний діапазон, який знаходиться від комірок від А2 до А11.

Набір Excel VBA - приклад №2

Припустимо, ми хочемо вставити ці комірки або діапазон в іншу клітинку. Ми будемо використовувати той самий код, що і вище, і додамо код для вставки цих даних у кілька стовпців.

Виконайте наступні кроки:

Крок 1: Тепер ми скопіюємо діапазон комірок, який є стовпцем імен. Введіть копію, тобто "Rnst.Copy", коли ви вводите "Rnst". З'являється вид спадного меню. Він містить різні функції, такі як копіювання, вставлення тощо.

Крок 2: Ви можете прокрутити вниз і вибрати потрібну функцію, яку потрібно виконати. Тут просто введіть "Копіювати", як показано на скріншоті нижче:

Код:

 Sub setexmp () Dim Rnst As Range Set Rnst = Діапазон ("A2: A11") Rnst.Select Rnst.Copy End Sub 

Крок 3. Складіть код, натиснувши клавішу F8.

Після того як ви виконаєте цю функцію копіювання, ви побачите, що діапазон excel копіюється, а навколо діапазону комірок з'являються пунктирні лінії, як показано нижче:

Крок 4: Тепер нам потрібно вставити цю клітинку, скажімо, в сусідні стовпчики, одна за одною, тому нам потрібно використовувати циклічну функцію "For" і припустимо, що 5 разів нам потрібно вставити, щоб ми ввели її, як показано нижче:

Для Integer i = 1 до 5 -> це вказує, скільки разів нам потрібно вставити дані. Якщо 5, то від 1 до 5 ще залежно від того, що ви вважаєте за краще.

Код:

 Sub setexmp () Dim Rnst As Range Set Rnst = Діапазон ("A2: A11") Rnst.Select Rnst.Copy For i = 1 to 5 End Sub 

Крок 5: Виберіть клітинку, в яку потрібно вставити цей діапазон комірок. Припустимо, ми хочемо почати вставляти з стовпця В2, а потім вставлення даних має бути динамічним, тобто воно повинно автоматично вибирати сусідні стовпці один за одним без накладення. Отже, синтаксис буде "комірка (номер рядка, номер стовпця) .PasteSpecial".

Клітини (2, i + 1) .PasteSpecial, Тут 2-> представляє номер рядка, а i + 1 -> представляє номер стовпця. i + 1 означає, що перше значення, яке я оголосив у циклі "For", це i = 1, значить, значення стовпця стане 2, воно вказує, що він починає вставляти з стовпця B. І як і коли я збільшує значення, то продовжуватиме вибір суміжних стовпців один за одним.

Код:

 Sub setexmp () Dim Rnst As Range Set Rnst = Діапазон ("A2: A11") Rnst.Select Rnst.Copy For i = 1 to 5 Cell (2, i + 1) .PasteSpecial xlValues ​​End Sub 

Крок 6: Введіть " Далі i ", що означає, що ви збільшуєте значення "i" по черзі, щоб вставлення стовпців залишалося динамічним.

Код:

 Sub setexmp () Dim Rnst As Range Set Rnst = Діапазон ("A2: A11") Rnst.Select Rnst.Copy For i = 1 to 5 Cell (2, i + 1) .PasteSpecial xlValues ​​Next i End Sub 

Крок 7: Натисніть “F8”, щоб побачити виконання коду по черзі, і покаже вам вставлення клітинки в сусідні стовпці по черзі.

Тут ви можете побачити значення i є 1, а дані були вставлені у стовпчик B за бажанням.

Крок 8: Тепер, коли ви знову натиснете "F8", ви побачите, що тепер значення i дорівнює 2. Отже, 2 + 1 стане 3, а дані будуть вставлені в комірку (2, 3), тобто значення рядка те саме, але стовпець зміни кількості, як показано на скріншоті нижче:

Після повторення циклу завершення ви побачите дані, вставлені 5 разів, тобто з рахунку 1 до 5, починаючи вставляти з стовпця B до стовпця F, як показано нижче:

Набір Excel VBA - приклад №3

Припустимо, ми хотіли б показати кількість клітинок у цьому діапазоні у вікні повідомлення, що з’являється при натисканні кнопки. Ми візьмемо ті самі дані, як показано нижче.

Також ми запустимо код цього прикладу на новому аркуші. Отже, додайте новий аркуш, і у вікні VBA він з’явиться, як показано нижче:

Нам доведеться вставити варіант командної кнопки. Це особливість excel, тому виконайте наступні кроки:

Крок 1: Введіть назву підмножини, сказати "Setcount ()", як показано на скріншоті нижче:

Код:

 Налаштування субрахунку () Закінчення Sub 

Крок 2: Оголосіть ту ж змінну "Rnct", що й діапазон у підмножині, як показано на скріншоті нижче:

Код:

 Sub Setcount () Dim Rnct As Range End Sub 

Крок 3: Потім введіть ключове слово «Встановити» та дайте діапазон.

Код:

 Налаштування субрахунку () Dim Rnct як набір діапазону Rnct = Діапазон ("A2: A11") Кінець Sub 

Крок 4: Тепер після виправлення діапазону нам потрібно побачити спливаюче вікно або діалогове вікно, що показує кількість комірок у діапазоні. Отже, використовуйте функцію «MsgBox», яка після виконання підрахунку з’явиться у діалоговому вікні. Введіть “змінну MsgBox name.count”. На наступний момент після введення назви змінної, тоді точка (.), З’являється розкривне меню, що містить різні функції, і ми виберемо “count” або введемо вручну “count”.

Введіть "MsgBox Rnct.count" і після його виконання відобразиться кількість.

Крок 5: Тепер ми хочемо вставити командну кнопку і при натисканні на цій кнопці повинно з’явитися поле повідомлення.

Клацніть на "Вставити" на вкладці "Розробник", як зазначено у червоному полі, і ви побачите випадаюче меню категорії "Форми управління". Клацніть на першій прямокутній формі, подібній до прямокутника, яку нам доведеться вручну намалювати та вставити в аркуш excel:

Крок 6: Після натискання на прямокутний вікно намалюйте та вставте поле в аркуш, і як тільки ви почнете малювати, з'явиться діалогове вікно, як показано нижче. Це кнопка вікна "Призначити макрос" і виберіть макрос підмножини "Установка". Клацніть “OK”.

Це означає, що ми призначили макрос підрахунку цієї кнопки. А після натискання він виконає.

Крок 7: Він з’явиться, як показано нижче в excel.

Крок 8: Клацніть правою кнопкою миші на ній та перейменуйте її за допомогою параметра « Редагувати текст », як показано нижче:

Крок 9: Назвіть його як "COUNT", і ви побачите його в excel як кількість, як показано нижче.

Крок 10: Потім натисніть кнопку "COUNT": Після натискання кнопки "COUNT" з'являється вікно повідомлень, як показано нижче:

Як ми бачимо, є 10 імен і показали правильне число від діапазону від A2 до A11.

Що потрібно пам’ятати

• Переконайтеся, що для запуску цього коду VBA встановлена ​​вкладка «Developer» у стрічки Excel.
• "Набір" застосовується здебільшого на робочих аркушах / діапазонах комірок у певному аркуші.

Рекомендовані статті

Це посібник із набору VBA. Тут ми обговорюємо, як призначити посилання на об’єкт або діапазон комірок, використовуючи ключове слово excel VBA Set word zajedno з практичними прикладами та шаблоном excel для завантаження. Нижче наведено кілька корисних статей Excel, пов’язаних із VBA -

1. Функція об'єднання VBA
2. Підручники з наборів значків Excel
3. Робота з дальномірними клітинами в VBA
4. Розв’яжіть рівняння в Excel