Table Of ContentVBA – Visual Basic for Application
Макрос – процедура на языке программирования VBA.
Процедура – группа операторов VB, выполняющих законченную задачу.
Оператор Visual Basic (VB) – одна строка программного кода; выполняет одно действие.
Создание процедуры
<имя процедуры>
Sub
<блок операторов>
End Sub
Объявление переменной
<имя переменной> <тип>
Dim As
Типы переменных:
String Текстовый
Integer, Long Числовой: целый; длинный целый
Single, Double Числовой с плавающей точкой: одинарный; двойной
Date Дата/ время
Boolean Логический
Variant Произвольный тип данных (по-умолчанию)
Примеры объявления Dim intNumber As Integer
переменных: Dim strName As String
Dime dtTime As Date
Управляющие структуры
If … Then
Select Case
<выражение>
<условие> Select Case
If Then
<блок операторов> Case <значение 1>
<блок операторов 1>
End If
Case <значение 2>
<блок операторов 2>
If … Then … Else
…. … …. ….
If < условие > Then Case <значение N>
<блок операторов True> <блок операторов N>
Else Case Else
<блок операторов False> <блок операторов Else>
End If End Select
Функция MsgBox
Программа Результат
Sub MyHello()
MsgBox "Привет всем!!!!"
End Sub
Sub MyHello()
MsgBox "Привет всем!!!!", vbInformation, "Приветствие"
End Sub
Sub MyQuestion()
Dim Result As Integer
Result = MsgBox("Вы согласны?!", vbYesNo, "Вопрос")
End Sub
Sub MyQuestion()
Dim Result As Integer
Result = MsgBox("Вы согласны?!", _
vbYesNo + vbQuestion, "Вопрос")
Select Case Result
Case vbYes
MsgBox “Вы выбрали ДА”
Case vbNo
MsgBox “Вы выбрали НЕТ”
End Select
End Sub
Функция InputBox
Sub MyInput()
Dim nCopy As Integer
nCopy = InputBox("Введите количество копий", "Печать прайс-листа:", 1)
End Sub
Работа с объектами Excel
Объект
- программная единица (кто?что?)
- Свойства (какой?)
- Методы (что делать?)
Изменение свойства объекта
Ссылка_на_Объект.Свойство = новое_значение
Пример:
ThisWorkbook.WorkSheets("Лист1").Name = “Новый лист”
Определение значения свойства объекта
переменная = Ссылка_на_Объект.Свойство
Пример:
X = ThisWorkbook.WorkSheets("Лист1").Range("A1").Value
Вызов метода объекта
Ссылка_на_Объект Метод список_аргументов
.
Пример:
Workbooks("Книга1.XLS").Close SaveChanges:=False
Ссылки на объекты Excel
Application.WorkBooks("Книга1").WorkSheets("Лист1").Range("A1")
WorkSheets("Лист1").Range("A1")
Range("A1")
ActiveWorkBook Активная книга
ThisWorkBook Текущая книга (книга с рабочим макросом)
ActiveSheet Активный лист
ActiveCell Активная ячейка
Selection Выделенный диапазон
Объектные переменные
ИмяОбъектнойПеременной ТипОбъекта
Dim As
ИмяОбъектнойПеременной Ccылка на объект
Set =
Пример:
Dim rgMy As Range
Set rgMy = ThisWorkBook.WorkSheets("Лист1").Range("A1:D15")
Ссылки на объект RANGE
Range("A1")
Range("A1:D15") или Range("A1","D15")
Range("A:A")
Range("10:20")
Range("A1:D15, Z50:Z100")
Range("ИмяДиапазона")
Range("B2:D6").Columns(1) ответ: B2:B6
Range("B2:D6").Rows(1) ответ: B2:D2
Range("B2:D6").Cells(1,3) ответ: D2
Range("B2:D6").Range("A1") ответ: B2
Важные свойства объекта Range
.CurrentRegion
.OffSet(смещение по строкам, смещение по столбцам)
.Resize(новое кол-во строк, новое кол-во столбцов)
.Resize(новое кол-во строк)
.Resize(, новое кол-во столбцов)
A B C D E
1
2 Тест Проба Проверка
3 100 555
4 200 3333 700
5 250 2222
6
7
Вопрос: Ответ:
B2:D5
Range(“B2”).CurrentRegion
A4:C7
Range(“B2:D5”).Offset(2,-1)
B2:E3
Range(“B2:D5”).Resize(2,4)
Блок With...End With
With Объект
Объект.Свойство1 = значение1 .Свойство1 = значение1
Объект.Свойство2 = значение2 .Свойство2 = значение2
Объект.Свойство3 = значение3 .Свойство3 = значение3
End With
Пример:
With Range("A1").Font
Range("A1").Font.Size = 17 .Size = 17
Range("A1").Font.Bold = True .Italic = True
Range("A1").Font.Bold = True .Bold = True
Range("A1").Font.ColorIndex = 3 .ColorIndex = 3
End With
Разновидности циклов в VBA
Цикл со счётчиком: For…Next
<счётчик> <начало> <конец> <шаг>
For = To Step
<блок операторов>
<счётчик>
Next
Циклы с условием: Do…Loop
<условиеWhile> <условиеUntil>
Do While Do Until
<блок операторов> <блок операторов>
Loop Loop
Do Do
<блок операторов> <блок операторов>
< условиеWhile > < условиеUntil >
Loop While Loop Until
Цикл по объектам: For Each…Next
<объект> <коллекция>
For Each In
<блок операторов>
< объект >
Next
Пример:
Dim wksMy As Worksheet
For Each wksMy In ThisWorkbook.Worksheets
MsgBox wksMy.Name
Next wksMy
Создание пользовательской функции
(Функция – группа операторов VB, выполняющих законченную задачу и возвращающих
результирующее значение)
Function ИмяФункции(Аргумент1 As Тип, Аргумент2 As Тип,…) As Тип
….блок операторов…..
ИмяФункции = результат
End Function
Вызов встроенной функции Excel в VBA
переменная =
Application.WorksheetFunction.имя_функции(список_аргументов)
Обработка run-time ошибок в процедуре
(Run-time errors – ошибки, возникающие во время выполнения процедуры и не позволяющие
завершить её работу; требуют программной обработки)
ИмяПроцедуры()
Sub
ИмяМетки
On Error GoTo
.... основная процедура.......
'выход при отсутствии ошибок
Exit Sub
ИмяМетки
:
... обработчик ошибок ...
Resume
Resume Next
End Sub
Создание пользовательских форм (UserForm)
Меню Insert → UserForm
Пример
Элемент управления Префикс
названия
Label lbl
TextBox txt txtName
CommandButton btn, cmd btnHello
CheckBox chk chkYesNo
ComboBox cbo
ListBox lst
Процедура обработки событий
Private Sub ИмяОбъекта_Событие() Private Sub btnHello_Click()
.... ….
End Sub End Sub
Программирование событий рабочей книги и листов
Private Sub Worksheet_Activate()
'Открыть форму при переходе на лист
frmAnketa.Show
End Sub
