Приклади VBA - Найкращі 4 приклади макро Excel VBA для початківців

• Приклади Excel VBA

Приклади Excel VBA

Це дуже річ, коли я почав працювати і вивчати макроси VBA, мене розгубило, з чого почати. Ми вже бачили редактор VBA, який містить усі визначення параметрів і вкладок вікна редактора VBA. Як початківець, ми завжди не знаємо способу розпочати річ, поки не знайдемо її. Ця стаття є рішенням для тих, хто стикається з труднощами у використанні та вивченні прикладів VBA та створенні макросів. Всі ми стикалися з часом, коли певні речі в Excel могли бути автоматизовані за допомогою Macro. Але той, хто не знає, як використовувати VBA, не зможе створити його. Це буде корисним посібником для тих, хто новачок у кодуванні макросів VBA.

Приклади VBA в Excel для початківців

Нижче наведено приклади VBA в Excel:

Ви можете завантажити шаблон VBA Приклади шаблону Excel тут - VBA Приклади Шаблон Excel

Приклад VBA №1

Розглянемо простий приклад використання кодування VBA. Для цього виконайте наступні кроки:

Крок 1: Відкрийте модуль VBA, куди ми будемо записувати наш код з вкладки меню Вставка, як показано нижче.

Крок 2: Тепер запишіть підпроцедуру макросу VBA в будь-яке ім’я.

Код:

 Sub VBA_Examples1 () Кінець Sub 

Крок 3: Визначте змінну за допомогою DIM, де ми будемо зберігати числа як Цілі.

Код:

 Sub VBA_Examples1 () Dim A As Integer End Sub 

Крок 4: Тепер дайте будь-яке число вище визначеній змінній, як показано нижче.

Код:

 Sub VBA_Examples1 () Dim A As Integer A = 100 End Sub 

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

Код:

 Sub VBA_Examples1 () Dim A As Integer A = 100 MsgBox A End Sub 

Крок 6: Запустіть код натисканням клавіші F8 або натисканням кнопки Play, розташованої під панеллю меню. Ми побачимо вікно повідомлення зі значенням 100 в ньому.

Код:

 Sub VBA_Examples1 () Dim A As Integer A = 100 MsgBox A End Sub 

Крок 7: Це могло бути зроблено і за допомогою функції «Налагодження друку», значення якої відображаються у «Негайному вікні». ( Примітка: Натисніть Ctrl + G, щоб відкрити негайне вікно)

Код:

 Sub VBA_Examples1 () Dim A As Integer A = 100 Debug.Print A End Sub 

Приклад VBA №2

Тепер у цьому прикладі ми побачимо ще один приклад, де ми будемо використовувати цикл For-Next для друку імен аркушів. Для цього виконайте наступні кроки:

Крок 1: Відкрийте модуль і запишіть підпроцедуру, як показано нижче. Ми можемо використовувати будь-яке ім'я для визначення цього.

Код:

 Sub VBA_Examples2 () Кінець Sub 

Крок 2: Виберіть змінну як ціле число. Ми можемо вибрати змінну імен, як це було зроблено в прикладі-1.

Код:

 Sub VBA_Examples2 () Dim A As Integer End Sub 

Крок 3: Відкрийте цикл For-Next, як показано нижче.

Код:

 Sub VBA_Examples2 () Dim A як цілий число для наступного кінця Sub 

Крок 4: Виберіть позицію комірки, звідки ми хочемо побачити імена Листа. Тут ми не маємо посилань на заголовки, щоб ми могли почати з клітини 1.

Код:

 Sub VBA_Examples2 () Dim A як ціле число для A = 1 до аркушів.Count Next A End Sub 

Крок 5: Тепер ми призначаємо змінну A зі значенням комірки, щоб побачити ім'я таблиці, як показано нижче.

Код:

 Під VBA_Examples2 () Dim A як цілий число для A = 1 для таблиць. Кількість комірок (A, 1) .Value = Таблиці (A). Ім'я Next A End Sub 

Крок 6: Тепер запустіть код, натиснувши клавішу F8 або натиснувши кнопку Відтворити.

Ми побачимо, як у нас було 3 аркуші, всі названі за замовчуванням, так що їх ім'я було надруковано з комірки А1 внизу до кількості таблиць, які ми маємо.

Приклад VBA №3

У цьому прикладі ми дізнаємось, як друкувати цифри. Цей процес є таким самим, як ми бачили в прикладі-2. Для цього виконайте наступні кроки:

Крок 1: Відкрийте модуль і запишіть підпроцедуру.

Код:

 Sub VBA_Examples3 () Кінець Sub 

Крок 2: Розгляньте змінну, використовуючи DIM як цілий. Оскільки ми використовуємо числа до типу даних Integer, слід використовувати.

Код:

 Sub VBA_Examples3 () Dim A As Integer End Sub 

Крок 3: Знову відкрийте цикл For-Next, як показано нижче.

Код:

 Sub VBA_Examples3 () Dim A як цілий число для наступного кінця Sub 

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

Код:

 Sub VBA_Examples3 () Dim A як цілий число для A = 1 до 10 Наступний A Кінець Sub 

Крок 5: Тепер зафіксуйте позицію комірки змінною А. Тут друга вершина позиції в комірці показує номер стовпця. Оскільки ми вибрали 1, ми очікуємо побачити числа, що починаються з комірки A1.

Код:

 Під VBA_Examples3 () Dim A як ціле число для A = 1 до 10 клітин (A, 1) .Value = A Next A End Sub 

Крок 6: Тепер запустіть код, натиснувши клавішу F8 або натиснувши кнопку Відтворити. Ми побачимо, числа генеруються від комірки А1 до А10, починаючи з 1 до 10 .

Крок 7: Що робити, якщо ми спробуємо додати ці числа у другий стовпчик? Змініть вершину стовпця з 1 на 2. Або додайте інший рядок коду, як показано нижче.

Код:

 Під VBA_Examples3 () Dim A як ціле число для A = 1 до 10 клітин (A, 1) .Value = A Cell (A, 2) .Value = A Next A End Sub 

Крок 8: Знову запустіть повний код, натиснувши клавішу F8 або натиснувши кнопку Відтворити. Ми побачимо те саме число, починаючи з 1 до 10, надрукованих у колонці B, а також у комірці B1 до B10.

Приклад VBA №4

У цьому прикладі ми побачимо, як змінити колір порожніх комірок із вибраних діапазонів. Для цього ми використовували те саме число, що і в наведеному вище прикладі, але для видалення результату ми видалили деякі комірки.

Крок 1: Відкрийте модуль, запишіть підпроцедуру, як показано нижче.

Код:

 Sub VBA_Example4 () Кінець Sub 

Крок 2: Визначте змінну, використовуючи DIM як діапазон, оскільки ми вибираємо діапазон числа, що виходить.

Код:

 Sub VBA_Example4 () Dim A As Range End Sub 

Крок 3: Тепер встановіть цю змінну як Виділення

Код:

 Sub VBA_Example4 () Dim A As Range Set A = Вибір Кінець Sub 

Крок 4: Тепер виберіть Діапазон чисел за допомогою визначеної змінної A та виберіть xlCellTypeBlanks, щоб вибрати лише порожні комірки.

Код:

 Під VBA_Example4 () Dim A As Range Set A = Вибір A.Cells.SpecialCells (xlCellTypeBlanks). Кінець Під 

Крок 5: Тепер, щоб змінити колір інтер'єру порожніх комірок, використовуйте Interior.Color і вибирайте колір, яким ми хочемо виділити порожні клітинки. Використовуйте тип vbBlue або vbGreen, щоб визначити колір. Використання vb є обов'язковим.

Код:

 Sub VBA_Example4 () Dim A As Range Set A = Вибір A.Cells.SpecialCells (xlCellTypeBlanks) .Interior.Color = vbBlue Кінець Sub 

Крок 6: Тепер виберіть діапазон комірок, а потім запустіть код, натиснувши клавішу F8 або натиснувши кнопку Відтворити. Ми побачимо, комірки A4 та A7, які були порожніми, тепер виділені синім кольором, як показано нижче.

Плюси і мінуси прикладів Excel VBA

• VBA підвищує ефективність роботи.
• Цим ми хочемо за один раз зменшити повторювані завдання.
• Ми можемо створити будь-який тип макросу, який ми хочемо.
• Ми також можемо записати макрос, якщо зробити кодування непросто.
• Людям, які не володіють знаннями чи ідеями кодування, може бути важко використовувати VBA Macro.

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

• Початківцю в VBA слід пам’ятати, щоб зберегти код у форматі excel з підтримкою Macro. Це дозволить нам зберегти код в одному файлі.
• Завжди складайте повний код, навіть якщо код має один рядок. Це скоротить наш час налагодження, якщо ви стикаєтесь з будь-якою помилкою під час запуску коду.
• Завжди запускайте процес навчання VBA або будь-якої іншої мови кодування з невеликим та простим кодом. Це дасть краще розуміння та впевненість.

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

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

1. Колекція VBA (приклади)
2. Виписки VBA IF | Шаблони Excel
3. Як використовувати функцію сортування Excel VBA?
4. VBA while цикл (приклади з шаблоном Excel)
5. VBA Environment