Цветкова О.Н., Миронова И.В. Программирование на VBA

Подождите немного. Документ загружается.

vbExclamation 48 Добавляет пиктограмму «Предупреждение».

vbInformation 64 Добавляет пиктограмму «Информация». Чаще

всего используется для сообщения о заверше-

нии выполнения некоторой задачи.

Кнопка по умолчанию

Константа Значение Описание

vbDefaultButton1 0 Первая.

vbDefaultButton2 256 Вторая.

vbDefaultButton3 512 Третья.

vbDefaultButton4 768 Четвертая.

Модальность окна

Константа Значение Описание

vbApplicationModal 0 Модальность уровня приложения. Пока вы

не нажмете одну из кнопок окна, вы не смо-

жете вернуться в приложение, породившее

это окно. При этом можно переключиться на

другое приложение.

vbSystemModal 4096 Модальность системного уровня. Пока не

будет закрыто это окно, никакие приложения

не доступны.

В результате выполнения оператора

Ans = MsgBox("Закончить?", vbYesNo + vbQuestion + _

vbDefaultButton1, "Пример окна MsgBox")

появится следующее окно

сообщения:

Чтобы определить, какая

кнопка была нажата, значение пе-

ременной Ans анализируется с

помощью оператора If: Например,

If Ans = vbYes then UserForm1.Hide

Окно ввода

Окно ввода создается функцией InputBox(), имеющей следую-

щий синтаксис:

InputBox(prompt[, title] [, default] [, xpos] [, ypos] )

Окно содержит сообщение, указывающее какие данные должен

ввести пользователь, поле текста для ввода данных и две кнопки ОК

и Отмена, которые используются для подтверждения или отмены

ввода данных. Закончив ввод данных, пользователь нажимает одну из

кнопок. Если была нажата ОК, значением функции является текст,

находящийся в поле ввода. Если была нажата Отмена, значением

функции является пустая строка, независимо от того, что напечатал

пользователь.

Параметры функции имеют следующий смысл:

prompt – строка сообщения, которая будет напечатана в окне;

title – строка, которая является заголовком окна. Если параметр

не указан, то в качестве заголовка используется имя приложения;

default – строка, помещаемая в текстовое поле. Если параметр не

указан, то поле текста будет пустым;

xpos – расстояние в твипах от левой границы экрана до левой

границы окна. Если параметр не указан, окно центрируется по гори-

зонтали;

ypos – расстояние в твипах от верхней границы экрана до верх-

ней границы окна.

Окно ввода может иметь еще 2 необязательных параметра

(helpfile и context) (см. С

правку).

Для преобразования введенной строки в другой тип данных ис-

пользуйте функции преобразования типов: CCur(), CDate(), CInt(),

CLng(), CSng(), CVar() и другие.

На рисунке ниже приведено окно, созданное с помощью инст-

рукции:

A = InputBox("Введите значение:", "Пример окна InputBox")

Практические задания

Задание 1.1

Создайте форму, которая предназначена для ввода и вывода

значения переменной. Используйте стандартные окна ввода и вывода

сообщений. На рисунке приведены вид вашей формы и вид окна со-

общений, которое появилось в результате выполнения программы.

Добавьте к проекту новую форму. Поместите на форму три

кнопки. Для выравнивания размеров и размещения кнопок на форме

воспользуйтесь командами меню Формат, предварительно выделив

все кнопки (используйте клавишу Shift). Измените значения свойств

Caption у кнопок и формы. Напишите процедуры обработки события

Click для кнопок. Текст приведен ниже:

Dim X As String

Private Sub CommandButton1_Click()

X = InputBox("Введите значение")

End Sub

Private Sub CommandButton2_Click()

MsgBox X

End Sub

Private Sub CommandButton3_Click()

UserForm1.Hide

End Sub

Для того чтобы можно было вызывать форму с рабочего листа,

разместите на рабочем листе кнопку. Для этого выведите на экран с

помощью команды Вид\ Панели инструментов\ Элементы управле-

ния панель инструментов Элементы управления. Поместите кнопку в

любое место рабочего листа. Откройте окно свойств с помощью кон-

текстного меню или кнопки на панели Элементы управления, и изме-

ните надпись на кнопке (свойство Caption). Выполните двойной щел-

чок на кнопке, вы попадете в процедуру обработки события Click для

этой кнопки. Обратите внимание, что процедура находится в модуле

того листа, куда вы поместили кнопку. Если имя вышей формы

UserForm1, то добавьте в эту процедуру следующую строку:

UserForm1.Show

Перейдите на лист с кнопкой, и выйдите из режима конструкто-

ра (используйте кнопку на панели инструментов Элементы управле-

ния). Проверьте работу программы.

Задание 1.2

Создайте форму с двумя кнопками, которые видны по очереди

(см. рисунок). При нажатии на кнопку одна кнопка исчезает, а другая

становится видимой.

Добавьте к проекту новую форму. Поместите на форму две

кнопки. Измените значения свойств Caption у кнопок и формы. У од-

ной из кнопок установите свойство Visible равным False. Тексты про-

цедур обработки событий Click для кнопок:

Private Sub CommandButton1_Click()

CommandButton1.Visible = False

CommandButton2.Visible = True

End Sub

Private Sub CommandButton2_Click()

CommandButton1.Visible = True

CommandButton2.Visible = False

End Sub

Проделайте все то же самое для свойства Enabled.

Задание 1.3

Создайте форму с одной кнопкой, надпись на которой изменяет-

ся при нажатии. При повторном нажатии выводится первоначальное

значение.

Текст модуля формы приведен ниже. При изменении значения

свойства Caption используются вспомогательная переменная R и пе-

ременная OldCaption, в которой хранится не используемое в данный

момент значение. Начальное значение переменной OldCaption при-

сваивается в момент инициализации формы (обрабатывается событие

Initialize для формы). Обратите внимание, что в процедуре обработки

события для формы используется имя UserForm, а не имя формы. Так

всегда бывает для форм. Переменная OldCaption описана на уровне

модуля, чтобы её можно было использовать в любой процедуре. Пе-

ременная R описана внутри процедуры, так как она локальная и ис-

пользуется только в этой процедуре.

Dim OldCaption As String

Private Sub CommandButton1_Click()

Dim R As String

R = CommandButton1.Caption

CommandButton1.Caption = OldCaption

OldCaption = R

End Sub

Private Sub UserForm_Initialize()

OldCaption = "Надпись 2"

End Sub

Задание 1.4

Создайте форму с одной кнопкой, на которой при нажатии из-

меняется не только надпись, но и рисунок. При повторном нажатии

выводится первоначальное значение.

Создайте в графическом редакторе 2 рисунка размером 16×16

пикселов. Сохраните их в файлах с именами Рисунок1.bmp и Рису-

нок2.bmp. Текст модуля формы приведен ниже.

Dim OldCaption As String

Dim P1 As String

Dim P2 As String

Private Sub CommandButton1_Click()

Dim R As String

R = CommandButton1.Caption

CommandButton1.Caption = OldCaption

OldCaption = R

R = P1

P1 = P2

P2 = R

CommandButton1.Picture = LoadPicture(P1)

End Sub

Private Sub UserForm_Initialize()

CommandButton1.Caption = " Надпись 1"

OldCaption = " Надпись 2"

P1 = "C:\Wwww\Рисунок1.bmp"

P2 = "C:\Wwww\Рисунок2.bmp"

CommandButton1.Picture = LoadPicture(P1)

CommandButton1.PicturePosition = fmPicturePositionLeftCenter

End Sub

2. Реализация линейных алгоритмов

Программирование арифметических выражений

Под выражением понимается переменная, константа, значение

функции, свойство некоторого объекта или результат разрешенных

над соответствующими типами данных операций. Порядок выполне-

ния операций в выражениях можно установить с помощью круглых

скобок.

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

В программах на языке VBA можно использовать обычный на-

бор математических операций.

Операция Математическое действие

операнд1 + операнд2 Сложение.

операнд1 - операнд2 Вычитание.

- операнд Перемена знака.

операнд1 * операнд2 Умножение.

операнд1 / операнд2 Деление.

операнд1 \ операнд2 Целочисленное деление.

операнд1 MOD операнд2 Деление по модулю.

операнд1 ^ операнд2 Возведение в степень

Стандартные математические функции

Имя функции Возвращаемое значение

Abs(число) Абсолютное значение указанного числа.

Atn(число) Арктангенс числа.

Cos(число) Косинус угла, угол должен быть задан в радианах.

Exp(число) Результат возведения числа e в указанную степень.

Fix(число) Отбрасывает дробную часть числа и возвращает целое значе-

ние. Для отрицательного значения Fix возвращает ближайшее

отрицательное целое число, большее либо равное указанному.

Int(число) Отбрасывает дробную часть числа и возвращает целое значе-

ние. Для отрицательного значения Int возвращает ближайшее

отрицательное целое число, меньшее либо равное указанному.

Log(число) Натуральный логарифм числа.

Rnd[(число)] Случайное число меньшее 1 и большее или равное нулю. Ар-

гумент число определяет способ генерации случайного числа.

Перед вызовом функции Rnd используйте инструкцию

Randomize без аргумента для инициализации генератора слу-

чайных чисел значением, возвращаемым системным тайме-

ром.

Sgn(число) 1, если число > 0; -1, если число < 0; 0, если число = 0.

Sin(число) Синус угла, угол должен быть задан в радианах.

Sqr(число) Квадратный корень указанного числа.

Tan(число) Тангенс угла, угол должен быть задан в радианах.

Элементы Надпись(Label) и Поле(TextBox)

Элемент Поле

Элемент Поле (TextBox) обеспечивает возможность ввода текста

пользователем. Текстовые окна поддерживают ввод и редактирование

текста без всякого вмешательства с вашей стороны. Вырезать, копи-

ровать и вставлять текст можно с помощью стандартных для

Windows клавиш: Ctrl+X, Ctrl+C, Ctrl+V.

Свойства элемента Поле:

Text Главное свойство, содержащее текст, введенный пользователем

или присвоенный ему программой. Тип значения string. Если вы

используете элемент для ввода чисел или дат, то это значение

нужно преобразовать в значение соответствующего типа, ис-

пользуя функции Cdate, CInt, CDbl и другие.

SelText Содержит выделенный в поле текст.

Locked При Locked = True пользователь не может ввести текст в поле.

MultiLine При MultiLine = True поле может содержать более одной строки.

ScrollBars Определяет наличие полос прокрутки при многострочном режи-

ме.

BorderStyle Определяет стиль обрамления.

BackColor Определяет цвет фона.

BorderColor Определяет цвет рамки.

ForeColor Определяет цвет шрифта

Font Используется для установки параметров шрифта.

PasswordChar Если текстовое поле используется для введения пароля, то в

это свойство записывается замещающий символ. Если свой-

ство содержит пустую строку, то режим обычный.

Элемент Надпись

Элемент Надпись (Label) обычно используется для вывода раз-

личных текстов в форме. Он может содержать и рисунок. Пользова-

тель не может изменить надпись, но программа в период выполнения

может изменять значение надписей.

Свойства элемента Надпись:

Caption Содержит текст надписи.

Picture Определяет рисунок, помещаемый в элемент. Во время вы-

полнения для изменения свойства нужно использовать функ-

цию LoadPicture. Например,

Lbl1.Picture = LoadPicture("c:\Pic\flower.bmp")

PicturePosition Определяет расположение рисунка относительно надписи.

AutoSize По умолчанию имеет значение False. Если изменить на True,

то элемент будет автоматически менять свои размеры в соот-

ветствии с текстом.

BackStyle Задает режим для фона.

BorderStyle Определяет стиль обрамления.

BackColor Определяет цвет фона.

BorderColor Определяет цвет рамки.

ForeColor Определяет цвет шрифта

Font Используется для установки параметров шрифта.

Практические задания

Задание 2.1

Используя форму задания 1.1, запрограммируйте для введенного

значения X вычисление выражения

(

)

()

−

. Процедура, связанная с

кнопкой “Вывод” изменится на:

Private Sub CommandButton2_Click()

Y = (X + 1) / (X - 2)

MsgBox Format(Y, "Fixed")

End Sub

Если вы не ничего не меняли в описании переменных, то Y име-

ет тип Variant, а X по-прежнему описана как String (строка), тем не

менее, значение выражения вычисляется правильно. В данном случае

выполняется неявное преобразование значения переменной из тек-

стового формата в числовой. Однако с неявным преобразованием

значений нужно быть осторожным. Чтобы убедиться в этом, вычис-

лите Y по формуле Y = X + X. При необходимости следует использо-

вать функции преобразования типов данных CDbl, CInt, CLng и др.

Функция Format используется для преобразования значений

различных типов в текст в соответствии с заданными правилами. У

неё очень много возможностей (см. С

правку). В нашем случае у чис-

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

Задание 2.2

Создайте форму, приведенную ниже, которая демонстрирует

работу датчика случайных чисел. Для ввода диапазона значений ис-

пользуются 2 элемента Поле, для вывода надписей и результата – 3

элемента Надпись.

Цвет фона эле-

ментов Надпись сов-

падает с цветом фона

формы, поэтому ка-

жется, что текст написан непосредственно на форме. Для вывода ре-

зультата используется элемент с именем Label3, для ввода нижней