Excel VBA Примеры

Это очень хорошо, когда я начал работать и изучать макросы VBA, я не знал, с чего начать. Мы уже видели редактор VBA, в котором есть все определения параметров и вкладок окна редактора VBA. Как начинающий, мы всегда не знаем, как начать, пока не найдем. Эта статья - решение для тех, кто сталкивается с трудностями в использовании и изучении примеров VBA и создании макросов. Мы все столкнулись с тем временем, когда некоторые вещи в Excel могли быть автоматизированы с помощью Macro. Но тот, кто не знает, как использовать VBA, не сможет его создать. Это будет полезным руководством для тех, кто не знаком с VBA Macro-кодированием.

Примеры VBA в Excel для начинающих

Ниже приведены примеры VBA в Excel:

Вы можете скачать этот шаблон Excel VBA Примеры здесь - Шаблон VBA Примеры Excel

VBA Пример № 1

Давайте посмотрим на простой пример использования VBA Coding. Для этого выполните следующие шаги:

Шаг 1: Откройте модуль VBA, где мы будем писать наш код на вкладке меню «Вставка», как показано ниже.

Шаг 2: Теперь напишите подпроцедуру макроса VBA под любым именем.

Код:

 Sub VBA_Examples1 () End 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: Теперь мы будем использовать окно сообщения для печати значения, хранящегося в переменной A.

Код:

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

Шаг 6: Запустите код, нажав клавишу F8 или нажав кнопку воспроизведения, расположенную под строкой меню. Мы увидим окно сообщения со значением 100 в нем.

Код:

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

Шаг 7: Это также можно сделать с помощью функции Debug Print, значения которой отображаются в Immediate Window. ( Примечание: нажмите Ctrl + G, чтобы открыть окно)

Код:

 Sub VBA_Examples1 () Dim A As Integer A = 100 Debug. Печать A End Sub

VBA Пример № 2

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

Шаг 1: Откройте модуль и напишите подпроцедуру, как показано ниже. Мы можем использовать любое имя, чтобы определить это.

Код:

 Sub VBA_Examples2 () End Sub

Шаг 2: Выберите переменную как целое число. Мы можем выбрать переменную имени, как мы это сделали в примере-1.

Код:

 Sub VBA_Examples2 () Dim A As Integer End Sub

Шаг 3: Откройте цикл For-Next, как показано ниже.

Код:

 Sub VBA_Examples2 () Dim A As Integer For Next A End Sub

Шаг 4: Выберите позицию ячейки, из которой мы хотим видеть имена листов. Здесь, поскольку у нас нет ссылки на заголовок, мы можем начать с ячейки 1.

Код:

 Sub VBA_Examples2 () Dim A As Integer For A = 1 To Sheets.Count Next A End Sub

Шаг 5: Теперь мы назначаем переменную A с ячейкой Value, чтобы увидеть имя листа, как показано ниже.

Код:

 Sub VBA_Examples2 () Dim A As Integer For A = 1 To Sheets. Количество ячеек (A, 1). Значение = Sheets (A). Имя Next A End Sub

Шаг 6: Теперь запустите код, нажав клавишу F8 или нажав кнопку Play.

Мы увидим, как у нас было 3 листа с именами по умолчанию, так что их имя было напечатано от ячейки А1 до ниже, до количества листов у нас есть.

VBA Пример № 3

В этом примере мы научимся печатать числа. Этот процесс совершенно такой же, как мы видели в примере 2. Для этого выполните следующие шаги:

Шаг 1: Откройте модуль и напишите подпроцедуру.

Код:

 Sub VBA_Examples3 () End Sub

Шаг 2: Рассмотрим переменную, использующую DIM в качестве целого числа. Поскольку мы используем числа для целочисленного типа данных должны быть использованы.

Код:

 Sub VBA_Examples3 () Dim A As Integer End Sub

Шаг 3: Снова откройте цикл For-Next, как показано ниже.

Код:

 Sub VBA_Examples3 () Dim A As Integer For Next A End Sub

Шаг 4: Теперь выберите диапазон ячеек, от которого мы хотим видеть число до последнего в синтаксисе For.

Код:

 Sub VBA_Examples3 () Dim A As Integer для A = 1–10 Следующая A End Sub

Шаг 5: Теперь исправьте положение ячейки с помощью переменной А. Здесь, вторая вершина положения в ячейке показывает номер столбца. Поскольку мы выбрали 1, мы ожидаем увидеть числа, начиная с ячейки A1.

Код:

 Sub VBA_Examples3 () Dim A As Integer для A = 1–10 ячеек (A, 1). Значение = A Next A End Sub

Шаг 6: Теперь запустите код, нажав клавишу F8 или нажав кнопку Play. Мы увидим, что числа генерируются от ячейки A1 до A10, начиная с 1 до 10 .

Шаг 7: Что если мы попытаемся добавить эти числа во второй столбец? Измените вершину столбца с 1 на 2. Или добавьте еще одну строку кода, как показано ниже.

Код:

 Sub VBA_Examples3 () Dim A As Integer для A = 1–10 ячеек (A, 1). Значение = A ячеек (A, 2). Значение = A Следующее A End Sub

Шаг 8: Снова запустите полный код, нажав клавишу F8 или нажав кнопку Play. Мы увидим то же число, начиная с 1 по 10, которое будет напечатано в столбце B, а также из ячейки B1 до B10.

VBA Пример № 4

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

Шаг 1: Откройте модуль, напишите подпроцедуру, как показано ниже.

Код:

 Sub VBA_Example4 () End Sub

Шаг 2: Определите переменную, используя DIM в качестве диапазона, так как мы выбираем выходной диапазон номеров.

Код:

 Sub VBA_Example4 () Dim A As End End Sub

Шаг 3: Теперь установите эту переменную как Выбор

Код:

 Sub VBA_Example4 () Dim A As Set Range A = Выбор End Sub

Шаг 4: Теперь выберите диапазон чисел, используя определенную переменную A, и выберите xlCellTypeBlanks, чтобы выбрать только пустые ячейки.

Код:

 Sub VBA_Example4 () Dim A As Set Range A = Выбор A.Cells.SpecialCells (xlCellTypeBlanks). End Sub

Шаг 5: Теперь, чтобы изменить цвет интерьера пустых ячеек, используйте Interior.Color и выберите цвет, которым мы хотим выделить пустые ячейки. Используйте тип vbBlue или vbGreen, чтобы определить цвет. Использование VB является обязательным.

Код:

 Sub VBA_Example4 () Dim A As Set Range A = Выбор A.Cells.SpecialCells (xlCellTypeBlanks) .Interior.Color = vbBlue End Sub

Шаг 6: Теперь выберите диапазон ячеек и затем запустите код, нажав клавишу F8 или нажав кнопку Play. Мы увидим, что ячейки A4 и A7, которые были пустыми, теперь выделены синим цветом, как показано ниже.

Плюсы и минусы Excel VBA Примеры

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

То, что нужно запомнить

  • Начинающим в VBA следует помнить о необходимости сохранения кода в формате Excel с поддержкой макросов. Это позволит нам сохранить код в том же файле.
  • Всегда компилируйте полный код, даже если код состоит из одной строки. Это сократит наше время на отладку, если вы столкнетесь с какой-либо ошибкой после запуска кода.
  • Всегда начинайте процесс обучения VBA или любого другого языка программирования с небольшого и простого кода. Это даст лучшее понимание и уверенность.

Рекомендуемые статьи

Это руководство по VBA Примеры в Excel. Здесь мы обсудим несколько полезных примеров кода макроса VBA в Excel вместе с загружаемым шаблоном Excel. Вы также можете просмотреть наши другие предлагаемые статьи -

  1. Коллекция VBA (Примеры)
  2. VBA IF Заявления | Шаблоны Excel
  3. Как использовать функцию сортировки Excel VBA?
  4. VBA While Loop (Примеры с шаблоном Excel)
  5. VBA Environ

Категория:

VBA