Офисное программирование. Язык программирования VBA (Visual Basic for Application)

Язык программирования
VBA (Visual Basic for Application)

Офисное программирование

Процедура обработки события

События: Click, DblClick, KeyPress

Private Sub CommandButton1_Click()
End Sub

Создание проекта программы на VBA состоит из 2 этапов:
1. размещение

Основные элементы управления

Кнопка - CommandButton

Поле со списком - ComboBox

Поле - TextBox

Надпись

Кнопка

Поле со списком

Поле

Надпись

Элементы управления находятся на вкладке Разработчик

Вкладка Разработчик
1. Оffice
2. Параметры Excel
3. Показывать вкладку «Разработчик» на ленте.
4.

Кнопка

Свойства командных кнопок

Caption – название
Font – шрифт
ForeColor – цвет букв
BackColor

Задаются в окне свойств Properties

В контекстном меню кнопки выбрать команду Свойства

Объекты VBA

Workbooks - рабочая книга, Worksheets - рабочий лист, Cells - ячейки,

Worksheets(“Пример”) – рабочий лист с именем “Пример”

Worksheets(“Лист1”) – рабочий лист с

Ячейка A4 – Cells(4, 1)
или
Range(“A4”)

Ячейка C2 – Cells(2,

Чтобы запустить программу на выполнение надо:
Отключить кнопку Режим конструктора на

Включить Режим конструктора на вкладке Разработчик
Щелкнуть 2 ЛКМ по элементу управления

Сохранять файл необходимо как
Книга Excel с поддержкой макросов

Файл сохраняется с

Вкладка Разработчик /
Кнопка Безопасность макросов
Отметить кнопку Включить все макросы.
Закрыть файл

Запуск редактора VBA

1 способ: 2 ЛКМ по созданной Кнопке
2 способ: 1

Текст программы

Пример

Private Sub CommandButton1_Click()
Dim S As String
s = InputBox(“Как Вас зовут?")
MsgBox “Привет

используется для вывода данных в отдельное окно.

Функция MsgBox()

Запуск программы на выполнение

Приостановить выполнение

Остановить выполнение программы

Ошибка в программе

Программирование в среде VBA
Синтаксис, основные конструкции

Программа на VBA

Переменные VBA

Требования к имени переменной

A1 = 2.4 Sum = A1

Примеры

Dim < имя > As < тип >
Dim x As Integer
Dim

Integer – целые числа (диапазон значений от -32 768 до 32 767), объем

Большие по модулю и близкие к нулю числа записываются в экспоненциальном

String – символьные (строковые) значения, каждый символ требует объем памяти в

Константы в VBA

Типы констант в VBA: символьные, целые числа, вещественные числа.

Const

Математические операции в VBA

Операции работы со строками

В VBA только одна операция работы со строками

Встроенные функции

Atn(n) ⇒ arctg(n)
Cos(n) ⇒ cos n
Sin(n) ⇒ sin n
Tan(n) ⇒

Str(n) - число n преобразует в строку
Val(s) - строку символов

Вычисление логарифма

Арифметические выражения

sin(3*x)+(log(x-1)+tan(x))/(x^3+
exp(x+3))^(1/4)

Запись на VBA

1.

2.

3.

Exp(x+1) - cos(x)^2

Abs(exp(n-3)) - sin(a^2)^2 - sqr(cos(2*b))

Atn(3+a^3) – (2*cos(2*a)^2-b)/
(Sqr(abs(a*b-20))-b)

1.

2.

3.

Exp^(x+1) ОШИБКА

Sin^(a) НЕ ПРАВИЛЬНО

Cos*(b) НЕ ВЕРНО

Операторы в VBA

1) Dim
Оператор присваивания
ИмяПеременной = Выражение
Примеры
a1 = 34.7
a2

a = 24 : x = x + 1

MsgBox “Первая

Комментарии в VBA

Примеры
' Это текст комментария
или
Rem Это текст комментария
x =

Объекты VBA

Workbooks - рабочая книга, Worksheets - рабочий лист, Cells - ячейки,

Ячейка A4 – Cells(4, 1)
или
Range(“A4”)

Worksheets(“Пример”) – лист с

Любая программа состоит из 4 этапов:

Объявление всех переменных (исходных и содержащих

Ввод данных

Ввести исходные данные можно:
С помощью команды Inputbox c клавиатуры во

2. Непосредственно в программе командой присваивания
a = 45
prim = 6.87
s

3. Из ячеек таблицы Excel
a = Worksheets(“Имя”).Cells(3,2)
Или
a = Worksheets(“Имя”).Range(“B3”)

Вывод данных

Вывести данные можно:
С помощью команды MsgBox в отдельное окно
MsgBox (“а=”

В ячейки таблицы Excel
Worksheets(“Имя”). Cells(3,2) = a
Или
Worksheets(“Имя”). Range(“B3”) = a

a=Val(InputBox(“Введите значение переменной x ...”))

Окно ввода InputBox

Чтобы вывести число в нужном виде, используют функцию Format

Format (x, “##.#”)

Вывод в диалоговое окно

MsgBox x

MsgBox Format(x, “##.##”)

MsgBox "Значение x=" & x

MsgBox "Значение x=“ & Format(x, “##.##”)

Пример

Для x=1,5 a=3,75 m=0.5▪10-4 вычислить выражения:

Формула в ячейке листа для вычисления w
=0,5*КОРЕНЬ(C8*C9*ABS(1-C10^2))
Формула в ячейке листа для

Для кнопки «Вычислить». Пример 1.

Dim x As Single, a As Single,

Пример 2.
Dim x As Single, a As Single, m As Single,

Dim x As Single, a As Single, m As Single
Dim w

Очистка ячейки A2

Range(«A2").Clear
Или

Range(«A2")=“”

Для кнопки «Очистить»:

Worksheets("Лист2").Range(" d15 ").Clear
Worksheets("Лист2").Range(" e15 ").Clear

Очистка всех ячеек:

Worksheets("Лист2").Сells.Clear

Ввод переменной х из ячейки листа A1
x=Worksheets("Лист1").Range("A1")
или
x=Worksheets("Лист1").Cells(1, 1)

Вывод переменной х в ячейку листа A1

Worksheets("Лист1").Range("A1") = x
или
Worksheets("Лист1").Cells(1, 1) =

x=Worksheets(“Иванов”).Range("A1")
Или
x=Worksheets(“Иванов”).Cells(1, 1)

Ввод из ячейки листа Excel

Имя листа

Имя ячейки на указанном

Пример

Private Sub CommandButton6_Click()
x = 10
Worksheets("Лист1").Range("A3") = x
x = 5
Worksheets("Лист1").Cells(5, 1) =