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

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

границы диапазона – элемент TextBox1, для ввода верхней границы –

TextBox2. Текст процедуры для кнопки «Новое значение»:

Private Sub CommandButton1_Click()

Label3.Caption = Int( _

(TextBox2.Text - TextBox1.Text + 1) * Rnd + TextBox1.Text)

End Sub

Private Sub UserForm_Initialize()

Randomize

End Sub

Инструкция Randomize инициализирует генератор случайных

чисел значением, возвращаемым системным таймером. Её нужно вы-

полнить один раз. Функция Rnd возвращает случайное значение,

меньшее 1 и большее или равное нулю. Функция Int отбрасывают

дробную часть числа, заданного в качестве её аргумента.

Задание 2.3

Создайте форму приведенную ниже. Она предназначена для вы-

числения суммы последних трех цифр целого числа. Для ввода числа

используется элемент Поле. Для вывода надписей на форме и вывода

результата используются элементы Надпись.

В свойстве

Picture формы

укажите рисунок,

который будет

использован в ка-

честве фона. В

примере использован рисунок из файла Thatch.bmp. Значение свойст-

ва PictureTiling установите равным True, тогда рисунок будет раз-

множен.

На этой форме 4 элемента Надпись, 1 элемент Поле и 2 Кнопки.

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

значение свойства BackStyle=0, тогда не будет виден фон элемента

Надпись, и получится, будто текст написан прямо на форме.

Для элемента Надпись, в котором выводится результат (Label4), устано-

вите значения свойств BackColor – белый, SpecialEffect=2. Тогда элемент внеш-

не будет выглядеть как элемент Поле. Текст процедуры для кнопки «Вычис-

лить»:

Private Sub CommandButton1_Click()

X = (TextBox1.Text) Mod 1000

Единицы = X Mod 10

Сотни = X \ 100

Десятки = (X \ 10) Mod 10

Label4.Caption = Сотни + Десятки + Единицы

End Sub

3. Реализация алгоритмов с условиями

Программирование условий

Операторы сравнения

Для сравнения двух выражений в VBA используются операторы:

Операция Описание

операнд1 < операнд2 Меньше. Результат - True, если первый опе

анд меньше

второго.

операнд1 > операнд2 Больше. Результат - True, если первый операнд больше

второго.

операнд1 <= операнд2 Меньше или равно. Результат - True, если первый опе-

ранд меньше или равен второму.

операнд1 => операнд2 Больше или равно. Результат - True, если первый опе-

ранд больше или равен второму.

операнд1 = операнд2 Равно. Результат - True, если операнды равны.

операнд1 <> операнд2 Не равно. Результат - True, если операнды не равны.

строка Like маска Соответствие маске. Результат - True, если строка соот-

ветствует маске.

операнд1 Is операнд2 Ссылка на объект. Результат будет равным True только в

том случае, когда обе переменные ссылаются на один и

тот же объект. Если операнд2 является идентификато-

ром типа, то операция Is возвращает значение True в

случае, когда объект, на кото

ый указывает ссылочная

переменная (операнд1), принадлежит к данному типу.

Логические операции

Используя логические операции из отдельных операций сравне-

ния можно строить сложные логические выражения. В VBA сущест-

вуют следующие логические операции:

Операция Описание

операнд1 AND операнд2 Логическое «И». Если оба операнда имеют значение

True, результат имеет значение True. Если хотя бы

один из операндов имеет значение False, результат

имеет значение False.

операнд1 OR операнд2 Логическое «ИЛИ». Если один или оба операнда ис-

тинны (имеют значение True), результат также имеет

значение True.

NOT операнд Логическое отрицание. Результат имеет значение

True, если операнд имеет значение False, и наоборот.

операнд1 IMP операнд2 Логическая импликация (см. справку).

операнд1 EQV операнд2 Логическая эквивалентность. Результат имеет значе-

ние True, если операнды имеют одинаковые значения

(оба True или оба False).

операнд1 XOR операнд2 Исключающее «ИЛИ». Если один и только один

операнд имеет значение True, результат имеет значе-

ние True.

Для программирования условий в программах на VBA исполь-

зуются условный оператор IF, оператор выбора Select Case и некото-

рые функции.

Инструкция If…Then…Else

Существуют две разновидности инструкции IF: линейная и

блочная. Линейная форма IF имеет следующий синтаксис:

If условие Then инструкции [Else инструкции]

В этом случае вся конструкция размещается в одной строке. Ес-

ли после Else используются несколько инструкций, то они разделя-

ются двоеточием.

Синтаксис блочного оператора IF:

If условие Then

инструкции

[ElseIf условиеThen

инструкции ]

[Else

инструкции]

End If

Это наиболее общий случай. Количество секций ElseIf может

быть любым, в том числе ни одной. Секция Else также может отсут-

ствовать. При выполнении инструкции IF сначала проверяется первое

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

ций, после чего программа перейдет к выполнению инструкций, сле-

дующих за End If. Если первое условие ложно, то проверяется второе

условие и так далее. Инструкции в секции Else выполняются в том

случае, если ни одно из условий не выполнено.

Инструкция Select Case

Конструкция Select Case позволяет выбирать одну из нескольких

групп инструкций в зависимости от значения выражения. Число ва-

риантов может быть любым. Управление получит та Case-строка, чье

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

Case Else можно опустить. Синтаксис оператора:

Select Case выражение

[Case списокВыражений

инструкции] ...

[Case Else

инструкции]

End Select

Анализируемое выражение должно возвращать значение

типа, совместимого с типом значений в строках Case. Значения в

строках Case можно указывать явно (в том числе в виде списка через

запятую), можно задать диапазон (используется ключевое слово To),

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

мого выражения в этом случае используется ключевое слово Is). На-

пример:

Select Case MyValue

Case 1 To 4

S = "Значение в диапазоне от 1 до 4"

Case 5, 6, 7

S = "Значение равно 5, 6 или 7"

Case Is > 7 And MyValue < 11

S = "Значение больше 7, но меньше 11"

Case Else

S = "Значение меньше 1 или больше 10"

End Select

Функции, используемые при программировании условий

Название Возвращаемое значение

IIf(выражение,

true_значение,

false_значение)

Возвращает одно из двух значений в зависимости от ис-

тинности указанного выражения. Всегда вычисляет оба

выражения, хотя возвращается только одно из них.

Choose(индекс,

элемент_1[, эле-

мент_2, ... [, эле-

мент_n]])

Функция возвращает значение из списка, выбранное на ос-

новании значения аргумента индекс. Если индекс равняет-

ся 1, возвращается первый элемент списка, если индекс

равняется 2, возвращается второй элемент списка и т.п.

Функция вычисляет все элементы списка, хотя возвращает

только один из них.

Switch( выраже-

ние1, значение1

[, выражение2,

значение2 …

[, выражениеN,

значениеN]])

Список аргументов функции содержит пары выражений и

значений. Выражения вычисляются в том порядке, в кото-

ром они включены в список (слева направо). Возвращается

значение, соответствующее первому истинному выраже-

нию в списке. Функция вычисляет все выражения, хотя

возвращает только одно значение.

Элементы Рисунок(Image), Счетчик и Полоса прокрут-

ки(ScrollBar)

Элемент Рисунок

Элемент Рисунок (Image) предназначен для вывода содержимо-

го графических файлов в форме. Элемент не позволяет редактировать

рисунок. Поддерживаются следующие форматы файлов: *.bmp, *.cur,

*.gif, *.ico, *.jpg, *.wmf.

Основные свойства элемента Рисунок (Image):

AutoSize Если свойство имеет значение True, то при загрузке рисун-

ка его размеры сохраняются, при этом элемент Image из-

менит свои размеры так, чтобы они точно соответствовали

размерам рисунка.

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

нения программы следует использовать функцию LoadPic-

ture:

Image1.Picture = LoadPicture("ИмяФайла")

Чтобы удалить рисунок, выполните

Image1.Picture = ""

PictureAlignment Определяет расположение рисунка внутри объекта Image.

Возможны значения:

FmPictureAlignmentTopLeft ( в левом верхнем углу),

FmPictureAlignmentTopRight (в правом верхнем углу),

FmPictureAlignmentCenter (в центре),

FmPictureAlignmentBottomLeft (в левом нижнем углу),

FmPictureAlignmentBottomRight (в правом нижнем углу).

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

соответствуют размерам объекта Image. Возможны значе-

ния:

fmPictureSizeModeClip (обрезать части рисунка, которые

не помещаются),

fmPictureSizeModeStretch (масштабировать рисунок так,

чтобы он занимал всю поверхность объекта),

fmPictureSizeModeZoom (изменить размеры рисунка, со-

храняя пропорции, так чтобы он по высоте или по ширине

точно соответствовал размерам объекта).

PictureTiling Если значение свойства равно True, то рисунок покрывает

поверхность объекта Image в виде мозаики. Если значение

свойства равно False, то рисунок выводится в единствен-

ном экземпляре.

На рисунке показано, как выглядит одна и та же картинка при

различных значениях свойства PictureSizeMode.

Элемент Счетчик

Элемент Счетчик позволяет уменьшать и увеличивать числовые

значения. При щелчке на соответствующей стрелке изменяется зна-

чение самого элемента, но внешне это никак не выражается. Чтобы с

помощью элемента Счетчик изменять значение другого элемента

нужно написать программу.

Основные свойства элемента Счетчик:

Max Максимальное возможное значение (целое).

Min Минимальное возможное значение (целое).

SmallChange Шаг изменения значения (целое) при щелчке на одной из

стрелок. По умолчанию равен 1.

Value Текущее значение элемента.

ControlSource Определяет ячейку рабочего листа, которая связывается со

значением элемента. Если изменяется значение свойства

Value, то автоматически изменяется и значение этой ячейки, и

наоборот.

Orientation Определяет ориентацию элемента (вертикальную или гори-

зонтальную).

Основные события элемента Счетчик:

Change Возникает, когда пользователь нажимает на одну из кнопок эле-

мента.

SpinDown Возникает, когда пользователь нажимает на кнопку со стрелкой

вниз или влево.

SpinUp Возникает, когда пользователь нажимает на кнопку со стрелкой

вверх или вправо.

Элемент Полоса прокрутки

Элемент Полоса прокрутки (ScrollBar) позволяет выбирать зна-

чение из заданного диапазона с помощью мыши (изменяя положение

бегунка).

Основные свойства элемента Полоса прокрутки:

Min Устанавливает наименьшее значение для элемента, отвечаю-

щее крайнему левому или крайнему верхнему положению в

соответствующей полосе прокрутки. Диапазон рекомендуе-

мых значений от -32767 до 32767.

Max Устанавливает наибольшее значение для элемента, отвечаю-

щее крайнему правому или крайнему нижнему положению в

соответствующей полосе прокрутки. Диапазон рекомендуе-

мых значений от -32767 до 32767.

Value Значение из диапазона от Min до Max, которое соответствует

положению бегунка полосы прокрутки.

LargeChange Устанавливает величину изменения свойства Value после

щелчка на полосе прокрутки между бегунком и кнопкой со

стрелкой (целое от 1 до 32767)

SmallChange Устанавливает величину изменения свойства Value после

щелчка на кнопке со стрелкой (целое от 1 до 32767)

ControlSource Определяет ячейку рабочего листа, которая связывается со

значением элемента. Если изменяется значение свойства

Value, то автоматически изменяется и значение этой ячейки, и

наоборот.

Orientation Определяет ориентацию элемента (вертикальную или гори-

зонтальную).

События элемента Полоса прокрутки:

Change Возникает, когда бегунок занял новое положение, или при

щелчке на кнопке со стрелкой, или при изменении значения

свойства Value в программе.

Scroll Возникает при движении бегунка (непрерывно).

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

Задание 3.1

Добавим в программу, созданную в задании 2.1 для вычисления

значения выражения, необходимые проверки. Тексты процедур при-

ведены ниже.

Private Sub CommandButton1_Click()

CommandButton2.Enabled = False

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

If X = "" Then

R = MsgBox("Вы ничего не ввели", _

vbOKOnly + vbInformation, "Сообщение")

Exit Sub

ElseIf IsNumeric(X) = False Then

R = MsgBox("Вы ввели не число", _

vbOKOnly + vbExclamation, "Предупреждение")

Exit Sub

ElseIf X = 2 Then

R = MsgBox("Недопустимое значение аргумента", _

vbOKOnly + vbCritical, "Критическое сообщение")

Exit Sub

End If

CommandButton2.Enabled = True

End Sub

Private Sub CommandButton3_Click()

R = MsgBox("Закончить работу?", _

vbYesNo + vbQuestion, "Вопрос")

If R = vbYes Then UserForm1.Hide

End Sub

Если значение переменной не введено или введено неверно, то

кнопка «Вывод» недоступна. Это достигается за счет того, что в на-

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

Enabled у кнопки устанавливается False. Если ни одно из условий не

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

True. Если какое-нибудь условие выполнится, то после выполнения

Exit Sub процедура завершит работу досрочно, и значение останется

равным False.

Первая проверка показывает, как определить, ввёл ли пользова-

тель что-нибудь в окно ввода. Если он ничего не ввел или нажал Esc,

то значение функции InputBox будет равно "" (пустая строка).

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

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

IsNumeric. Значение функции равно True, если это возможно, и False

– в противном случае. В VBA имеются и другие функции с аналогич-

ным назначением: IsDate, IsArray и т.д.

Последняя проверка требуется для того, чтобы во время выпол-

нения программы не возникла ошибка при делении.

В этом примере также продемонстрированы возможности функ-

ции MsgBox. Вид окна определяет значение второго параметра. В но-

вом варианте процедуры для кнопки «ОК» показано, как можно соз-

дать окно сообщения с несколькими кнопками, и как проанализиро-

вать ответ пользователя. Все константы подробно описаны в С

правке.

Функцию MsgBox с двумя или большим числом аргументов можно

использовать только в выражении, поэтому в нашем случае использу-

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

вателя не анализируется.

Задание 3.2

Разработайте форму для решения уравнения ax

+ bx + c =0.

Значения a, b, c вводятся. Предусмотрите возможность ввода пользо-

вателем любых значений параметров. Например, при a=0, b=0, c=0 x–

любое число. Для ввода значений используйте элементы Поле.