Основы объектно-ориентированного программирования (на примере VBA в MS Excel)

Тема: Циклическая обработка инструкций

Цель: ознакомить с видами циклов.

Задачи: - изучить виды циклических алгоритмов;

изучить типы циклических операторов и их синтаксис.

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

Циклический алгоритм

Очень часто в программах надо выполнить определённые операторы несколько раз. Не логично записывать эту последовательность действий 20 или 50 раз подряд. В этих случаях организуют циклические вычисления. Алгоритм называется циклическим, если определенная последовательность шагов выполняется несколько раз в зависимости от заданной величины, которая называется параметром цикла.

Оператор цикла For…Next

Общий вид в алгоритме конструкции оператора For…Next, который позволяет выполнить группу операторов или один оператор заданное количество раз, покаазан на схеме 3.

Схема 3

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

Этот оператор имеет следующий синтаксис:

For счетчик = начало To конец [Step шаг]

Pешение1

[Exit For]

Pешение n

Next [счетчик]

Где For(для), To(до), Step(шаг), Exit For(выход из цикла), Next(следующий) - служебные слова VBA, а Pешение1, Pешение n - операторы. Step является необязательным параметром. Если он опущен в программе, то значение параметра I увеличивается на 1. Параметр Step может быть любым действительным числом, как целым, так и дробным, как положительным, так и отрицательным. Работает оператор For следующим образом:

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

Программирование циклов Do

Для выполнения оператора For необходимо задать параметры, которые будут определять, сколько раз должен выполниться оператор(ы) цикла. Альтернативой циклу с For…Next является цикл Do, в котором группа операторов выполняется до тех пор, пока определённое логическое выражение имеет значение True (истина). Такие циклы нужно применять в тех задачах, где мы не можем знать точно, сколько раз будет повторен цикл. Например, Вы хотели бы, чтобы пользователь вводил пароль в вашей программе до тех пор, пока он не совпадёт с Вашим паролем. Существует несколько разновидностей цикла Do, в зависимости от условий его выполнения.

Циклы Do … While

Общий вид в алгоритме этого оператора представлен на схеме 4:

Схема 4

Синтаксис оператора следующий:

Do While <логическое выражение>

Pешение 1

Pешение 2

…

Pешение n

Loop

где Do(выполнить), While(пока), Loop(петля) - зарезервированные слова, Pешение1, Pешение2, Pешение n - операторы.

Если логическое выражение после служебного слова While имеет значение True, то выполняются операторы Pешение1, Pешение2, Pешение n, после чего проверка логического выражения повторяется. Если логическое выражение имеет значение False, то происходит выход из цикла. Если условие в заголовке цикла не является истинным с самого начала, цикл Do не выполняется ни разу.

Другая возможная запись цикла:

Do While Until <логическое выражение>

Pешение1

Pешение2

…

Pешение n

Loop

Смысл связки Do…While Until <логическое выражение> - до тех пор, пока логическое выражение истинно выполнять операторы Pешение1, Pешение2, Pешение n.

Циклы Do…Until

Повторяющиеся вычисления можно организовать, используя в программах, другой оператор Do…Until.

Общий вид в алгоритме этого оператора изображен на схеме 5.

Схема 5

Синтаксис оператора следующий:

Do

Pешение1

Pешение2

…

Pешение n;

Loop Until <логическое выражение>

Цикл с оператором Do…Loop Until начинается с выполнения операторов внутри цикла, поэтому цикл, организованный с помощью этого оператора, в любом случае выполнится хотя бы один раз. Затем проверяется логическое выражение и если оно истинно, то осуществляется выход из цикла. Если же значение логического выражения ложно, то выполнение операторов Pешение1, Pешение2, Pешение n повторяется, а затем вновь проверяется логическое выражение.

Другая возможная запись цикла:

Do

Pешение1

Pешение2

…

Pешение n;

Loop While <логическое выражение>

Структура цикла Do…Until имеет много общего с конструкцией Do…While. Разница заключается лишь в том, как проверяется условие цикла. В варианте Do…While цикл выполняется до тех пор, пока выполняется условие. В цикле Do…Until цикл выполняется, пока условие не станет выполняться.

ЗАДАНИЯ

I. Создать процедуру с использованием конструкции For … Next.

II. Создать процедуру с использованием конструкции Do…While.

III. Создать процедуру с использованием конструкции Do…Until.

Технология работы

I. Создание процедуры с использованием конструкции For … Next.

а) в этом задании не используется переменная шаг и необязательный оператор Exit For. Эта процедура выполняет оператор Sum = Sum + Sqr (Count) 100 раз и отображает результат - сумму квадратных корней первых 100 целых чисел.

1. Откройте новую рабочую книгу.

2. Вставьте модуль в редакторе VBA.

3. Создайте процедуру и назовите её SumSquareRoots().

4. Введите следующий код процедуры:

Sub SumSquareRoots()

Dim Sum As Double, count As Integer

Sum = 0

For count = 1 To 100

Sum = Sum + Sqr(count)

Next count

MsgBox Sum

End Sub

5. Запустите её на выполнение и убедитесь в том, что она работает. При этом будет выведена сумма квадратных корней первых 100 целых чисел.

В данном задании Count (переменная-счетчик цикла) имеет начальное значение 1 и увеличивается на 1 при каждом повторении цикла. Переменная Sum суммирует квадратные корни каждого значения Count

б) в этом задании используется переменная шаг, чтобы пропустить отдельные итерации цикла.

1. Вставьте модуль в редакторе VBA.

2. Создайте процедуру и назовите её SumOddRoots().

3. Введите следующий код процедуры:

Sub SumOddSquareRoots()

Sum = 0

For count = 1 To 100 Step 2

Sum = Sum + Sqr(count)

Next count

MsgBox Sum

End Sub

4. Запустите её на выполнение и убедитесь в том, что она работает. В данном примере count(переменная-счетчик цикла) имеет начальное значение 1 и увеличивается на 2 при каждом повторении цикла. Переменная Sum суммирует квадратные корни каждого значения count.

в) циклы For … Next могут также содержать один или боле операторов Exit For. Когда программа встречает этот оператор, то сразу же выходит из цикла, как показано в следующем примере. Эта процедура определяет, какая ячейка столбца А на активном рабочем листе имеет наибольшее значение:

Вставьте модуль в редактор VBA.

Создайте процедуру и назовите её ExitForDemo().

Введите следующий код процедуры:

Sub ExitForDemo()

MaxVal = Application.WorksheetFunction.Max(Range("A:A"))

For Row = 1 To 65536

Set TheCell = Range("A1").Offset(Row - 1, 0)

If TheCell.Value = MaxVal Then

MsgBox "Максимальное значение сталбца А находится в строке" & Row

TheCell.Activate

Exit For

End If

Next Row

End Sub

4. Запустите её на выполнение и убедитесь в том, что она работает. При этом процедура определит какая из ячеек столбца А на активном рабочем листе будет иметь наибольшее значение.

Максимальное значение в столбце вычисляется с помощью функции Excel Max. Затем это значение присваивается переменной MaxVal. Цикл For … Next проверяет каждую ячейку в столбце. Если определенная ячейка равна MaxVal, оператор Exit For заканчивает процедуру. Однако перед выходом из цикла процедура сообщает пользователю о расположении искомой ячейки и активизирует её.

г) оператор Exit For позволяет выйти из цикла For…Next до его завершения. Тем самым программа сможет среагировать на определённое событие, не завершая выполнение цикла заданное число раз. Например, в следующем примере.

1. Вставьте модуль в редактор VBA.

2. Создайте процедуру и назовите её Звонок1().

3. Введите следующий код процедуры:

Sub Звонок1()

Dim i As Integer

Dim name As String

For i = 1 To 10

name = InputBox ("Введите изучаемые вами предметы или слово Звонок для выхода")

If name = "Звонок" Then

Exit For

End If

MsgBox name

Next

End Sub

4. Запустите её на выполнение и убедитесь в том, что она работает. При этом программа запрашивает у пользователя ввод до 10 предметов, но если введено слово "Звонок", то программа прервёт своё выполнение и приступит к обработке инструкций, следующих за оператором Next. Оператор Exit For обычно используется с оператором If или Select Case.

II. Создание процедуры с использованием конструкции Do…While:

а) в данном примере цикл Do…While обрабатывает данные до тех пор, пока не будет введено слово “Звонок”:

1. Вставьте модуль в редактор VBA.

2. Создайте процедуру и назовите её Звонок2().

3. Введите следующий код процедуры:

Sub Звонок2()

Dim i As Integer

Dim name As String

Do While name<>"Звонок"

name = InputBox("Введите изучаемые вами предметы или слово Звонок для выхода")

If name <> "Звонок" Then

MsgBox name

End If

Loop

End Sub

4. Запустите её на выполнение и убедитесь в том, что она работает. При этом программа будет выполняться до тех пор пока не будет введено слово «Звонок».

VBA позволяет проверять условие While в начале или в конце цикла. Разница между этими двумя синтаксисами связана с моментом, когда оценивается условие. В первом синтаксисе содержимое цикла может вообще не выполняться. Во втором содержимое цикла всегда выполняется (как минимум один раз).

б) Этот пример демонстрирует цикл Do…While с первым синтаксисом:

1. Вставьте модуль в редактор VBA.

2. Создайте процедуру и назовите её DoWhileDemo().

3. Введите следующий код процедуры:

Sub DoWhileDemo()

Do While Not IsEmpty(ActiveCell)

ActiveCell.Value = 0

ActiveCell.Offset(1, 0).Select

Loop

End Sub

4. Запустите процедуру на выполнение и убедитесь в том, что она работает. Данная процедура использует активную ячейку как точку отчета и просматривает значения вниз по столбцу, вставляя ноль в активную ячейку. При каждом повторении цикла активной становится следующая ячейка в столбце. Цикл продолжается, пока функция VBA IsEmpty не определит, что активная ячейка пуста.

в) Далее покажем работу второго синтаксиса цикла Do…While. Цикл всегда будет выполнен хотя бы один раз, даже если исходно активная ячейка пуста:

1. Вставьте модуль в редактор VBA.

2. Создайте процедуру и назовите её DoWhileDemo1().

3. Введите следующий код процедуры:

Sub DoWhileDemo1()

Do

ActiveCell.Value = 0

ActiveCell.Offset(1, 0).Select

Loop While Not IsEmpty(ActiveCell)

End Sub

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

г) Ниже следует еще один пример цикла Do…While. Эта процедура открывает текстовый файл, считывает каждую строку, преобразует текст в верхний регистр, а затем сохраняет его на активном листе, начиная с ячейки А1, и продолжает перемещаться вниз по столбцу. Представленная процедура использует функцию VBA EOF, возвращающую True, если достигнут конец файла. Последний оператор закрывает текстовый файл.

Откройте Блокнот и запишите в нем следующий текст: «ООП - это программирование, направленное на объекты».

2. Сохраните файл в папке Мои документы под названием ООП.txt.

3. Вставьте модуль в редактор VBA Ms Excel.

4. Создайте процедуру и назовите её DoWhileDemo2().

5. Введите следующий код процедуры:

Sub DoWhileDemo2()

Open "c:\Мои докуметны\ООП.txt " For Input As #1

LineCt = 0

Do While Not EOF(1)

Line Input #1, LineOfText

Range("A1").Offset(LineCt, 0) = UCase(LineOfText)

LineCt = LineCt + 1

Loop

Close #1

End Sub

6. Запустите процедуру на выполнение и убедитесь в том, что она работает. При этом текст, набранный в программе Блокнот, отобразится в ячейке А1.

III. Создание процедуры с использованием конструкции Do…Until.

1. В существующем модуле измените тело и название процедуры DoUntilDemo()., приведенной ниже:

Sub DoUntilDemo()

Open "c:\Мои документы\ООП.txt " For Input As #1

LineCt = 0

Do Until EOF(1)

Line Input #1, LineOfText

Range("A1").Offset(LineCt, 0) = UCase(LineOfText)

LineCt = LineCt + 1

Loop

Close #1

End Sub

2. Запустите процедуру на выполнение и убедитесь в том, что она работает. При этом текст, набранный в программе Блокнот, отобразится в ячейке А1.

Примечание: Пример, приводимый ранее, был продемонстрирован для цикла Do…While, но теперь он изменен для иллюстрации возможностей цикла Do…Until. Единственное отличие - строка с оператором Do. Этот пример делает программу несколько понятнее, так как не используется отрицание, необходимое в примере Do…While.

Самостоятельная работа.

1. К задаче напишите процедуру на использование оператора For…Next.

Задача: Найти сумму целых чисел от 1 до 50. В этом примере, описав, переменные счёт и сумма как целочисленные, обнуляется значение переменной сумма. Для чего это делается? Мы берём произвольную ячейку памяти компьютера и должны быть уверены в том, что в ней ничего не содержится. Ведь в цикле будет выполняться оператор сумма = сумма + счёт, то есть к тому что было в ячейке сумма прибавляется значение переменной счёт. И мы должны знать, что предварительно туда занесёно значение нуля. В результате запуска процедуры на выполнение Вы получите ответ: 1275.

2. Измените тело процедуры в п.1 самостоятельной работы, используя оператор Do While.

Задача: Найти сумму целых чисел от 1 до 50. В цикле с оператором For ответом было число 1275. Что изменится в программе, если применить оператор Do While? Прежде всего, надо позаботиться о том, чтобы какая-нибудь переменная менялась в цикле от 1 до 50. Ведь такой величины как параметр цикла нет в конструкции Do While - Loop. В нашем примере это будет переменная K. Задав в качестве условия выхода из цикла k <> 50, и применяя в цикле, оператор sum = sum + k мы просуммируем все 50 слагаемых и должны получить в ответе 1275.

Контрольные вопросы.

Дайте определение циклическому алгоритму?

Что такое цикл?

Для чего предназначен оператор For…Next?

Для чего предназначен Step?

Для чего предназначен оператор Do…While?

Для чего предназначен оператор Do…Until?

Для чего предназначен оператор InputBox?

Лабораторная работа №6

Тема: Разработка пользовательских приложений на языке VBA в Excel. Работа с UserForm и элементами управления

Цель: ознакомить с разработкой пользовательских приложений.

Задачи: - научить проектировать простые пользовательские формы;

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

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

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

В VBA при создании форм разработчик использует конструктор форм. Конструктор форм предназначен для самостоятельной разработки формы с заданными свойствами.

ЗАДАНИЯ

I. Создать простую форму для вывода справочной информации.

II. Создать простую форму для нахождения процента от введенного числа.

III. Создать сложную форму для вычисления выбранного арифметического действия к выделенным числам.

IV. Разработать приложение, которое будет содержать пользовательскую форму для ввода названия организации и выбора её типа и вывода данных на рабочий лист.

V. Разработать сложное приложение, которое бы создавало базу данных для регистрации вкладов.

Технология работы

I. Создание простой формы для вывода справочной информации.

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

2. Разработайте пользовательскую форму для определения видов контроля по дисциплинам «Информатика», «Математика» и «Экономтеория», как показано на рисунке 6.1.

Рисунок 6.1 - Законченный вид формы

3. Для того чтобы написать процедуру обработки события нажатия кнопки «Информатика», дважды щелкните по ней. Активизируется модуль UserForm1, в котором введите процедуру:

Private Sub CommandButton1_Click()

TextBox1.Text="Экзамен. Компьютерное тестирование"

End Sub

4. Для обработки событий нажатий кнопок «Математика» и «Экономтеория» в модуле UserForm1 введите следующие две процедуры:

Private Sub CommandButton2_Click()

TextBox1.Text="Экзамен. Собеседование"

End Sub

Private Sub CommandButton3_Click()

TextBox1.Text="Зачет. Тестирование"

End Sub

5. Запустите проект и проверьте его на выполнение. При нажатии кнопки с выбранной дисциплиной в текстовом поле отобразится сведения о форме контроля.

II. Создание простой формы для нахождения процента от введенного числа.

1. В редакторе VBA разработать пользовательскую форму, показанную на рисунке 6.2.

Рисунок 6.2 - Пользовательская форма на вычисление процентов

2. Для кнопки «Рассчитать» запишите следующий программный код:

Private Sub CommandButton1_Click()

Dim Result As Double

Result = 0.01 * TextBox2 * TextBox1

TextBox3.Text = Result

End Sub

3. Для кнопки «Очистить» запишите следующий программный код

Private Sub CommandButton2_Click()

TextBox1 = " "

TextBox2 = " "

TextBox3 = " "

End Sub

4. Запустите проект и проверьте его на выполнение.

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

Рис. 6.3

1. В редакторе VBA разработать пользовательскую форму, показанную на рисунке 6.3, где для изображения:

чисел используется элемент Список (ListBox);

Вычислить, Отмена - элемент Кнопка (CommandButton);

Операция - элемент Рамка (Frame);

Сумма, Произведение, Среднее - элемент Переключатель (OptionButton);

Результат - элемент Надпись (Label );

для отображения вычисляемого значения - элемент TextBox (Текстовое поле).

2. На кнопку «Вычислить» введите следующую программу:

Private Sub CommandButton1_Click()

Dim i As Integer

Dim n As Integer

Dim Сумма As Double

Dim Произведение As Double

Dim Среднее As Double

Dim Результат As Double

If OptionButton1.Value = True Then

Сумма = 0

With ListBox1

For i = 0 To.ListCount - 1

If.Selected(i) = True Then

Сумма = Сумма +.List(i)

End If

Next i

End With

Результат = Сумма

End If

If OptionButton2.Value = True Then

Произведение = 1

With ListBox1

For i = 0 To.ListCount - 1

If.Selected(i) = True Then

Произведение = Произведение *.List(i)

End If

Next i

End With

Результат = Произведение

End If

If OptionButton3.Value = True Then

Среднее = 0

n = 0

With ListBox1

For i = 0 To.ListCount - 1

If.Selected(i) = True Then

n = n + 1

Среднее = Среднее +.List(i)

End If

Next i

End With

Результат = Среднее / n

End If

TextBox1.Text = CStr(Format(Результат, "Fixed"))

End Sub

3. Для кнопки «Отмена» напишите следующую процедуру:

Private Sub CommandButton2_Click()

UserForm1.Hide

End Sub

4. Для инициализации формы введите следующую процедуру:

Private Sub UserForm_Initialize()

With ListBox1

.List = Array(1, 2, 3, 4, 5, 6, 7, 8, 10)

.ListIndex = 0

.MultiSelect = fmMultiSelectMulti

End With

TextBox1.Enabled = False

End Sub

5. Запустите проект на выполнение. При этом в группе Операция следует установить один из переключателей: Сумма, Произведение или Среднее, чтобы указать, какая операция будет выполняться над выбранными числами. Нажатие кнопки «Вычислить» должно привести к выполнению операции и выводу результата в поле Результат.

IV. Разработка приложения, которое будет содержать пользовательскую форму для ввода названия организации и выбора её типа и вывода данных на рабочий лист, показанную на рисунке 6.4.

Рисунок 6.4 - Пользовательская форма

1. Откройте рабочую книгу и нажмите комбинацию клавиш <Alt+F11> для запуска VBA;

2. Выберите вкладку Insert - UserForm, чтобы запустить пустое диалоговое окно;

3. Свойства Caption объекта UserForm будет иметь значение по умолчанию - UserForm1. Воспользуйтесь окном Свойств (Properties) для того, чтобы изменить значение свойства Caption на “Вывод названия организации” (если окно Свойств (Properties) не отображается на экране, нажмите клавишу <F4>);

4. Создайте форму пользователя и разместите на ней элементы управления, как показано на рис. 6.4;

Дважды щелкните по кнопке «Отмена» и введите следующую процедуру:

Private Sub CommandButton1_Click()`начало процедуры

Unload UserForm1 `закрытие формы

End Sub `конец процедуры

5. Данная процедура выполняется после щелчка пользователем по кнопке «Отмена». Она вызывает выгрузку формы UserForm из памяти;

6. Нажмите комбинацию клавиш <Shift+F7>, чтобы повторно отобразить объект UserForm1;

7. Дважды щелкните по кнопке «Ok» и введите следующую процедуру:

Private Sub CommandButton1_Click() `начало процедуры

Sheets("Лист1").Activate `активизация рабочего листа

(связь с рабочим листом)

NextRow = _

Application.WorksheetFunction.CountA(Range("A:A")) + 1 `определение пустой строки в рабочем листе, здесь Count (функция СЧЕТ), Range("A:A")) + 1 - выделяет диапазон ячеек, начиная с ячейки А1 с шагом +1

Cells(NextRow, 1) = TextBox1.Text `передача имени

If OptionButton1 Then Cells(NextRow, 2) = "Фирма"

If OptionButton2 Then Cells(NextRow, 2) = "Корпорация"

If OptionButton3 Then Cells(NextRow, 2) = "Частное предприятие"

`проверка условия

TextBox1.Text = "" 'Очистка элементов управления для следующих записей

OptionUnknown = True

TextBox1.SetFocus

If TextBox1.Text = "" Then

MsgBox "Введите название организации"

TextBox1.SetFocus

Exit Sub

End If 'Проверка введения имени

End Sub

8. Перейдите на рабочий лист MS Excel и поместите элемент управления Кнопка панели элементов Visual Basic, после чего появиться диалоговое окно «Назначить макрос объекту», выберите вкладку «Создать». В окне модуля введите код:

Sub Кнопка1_Щелкнуть()`начало процедуры

UserForm1.Show`открытие формы

End Sub `конец процедуры

Поместите на ней надпись «Нажать» (рис. 6.5). С помощью этой кнопки будет вызываться разрабатываемое диалоговое окно, показанное на рисунке 6.4.

Рисунок 6.5 - Законченный вид рабочего листа

9. Запустите проект и поверьте его на выполнение.

V. Разработка сложного приложения, которое создает базу данных для регистрации вкладов.

1. В редакторе VBA разработать пользовательскую форму, показанную на рисунке 6.6.

Рисунок 6.6 - Форма диалогового окна для программы регистрации вкладов

2. Элементам управления присвойте имена и свойства в соответствии таблицей 6.1.

Таблица 6.1

3. Рабочему листу Excel c именем «Лист1» присвойте имя «Меню», а рабочему листу «Лист2» - «База».

4. На рабочем листе с именем «Меню» поместите элемент управления Кнопка панели элементов Visual Basic и поместите на ней надпись «Прием вклада». С помощью этой кнопки будет вызываться разрабатываемое диалоговое окно.

5. Для кнопки «Прием вклада» запишите код:

Private Sub CommandButton1_Click()

'Вызываем процедуру формирования заголовков БД

ЗаголовокРабочегоЛиста

End Sub

6. Для формирования заголовков столбцов базы данных создайте процедуру Sub пользователя, которая будет вызываться из процедуры обработки кнопки рабочего листа Прием вклада. Для этого выполните команду меню Visual Basic Вставка, Процедура и присвойте ей имя ЗагловокРабочегоЛиста. Процедура выполняет следующие действия:

проверяет, заполнена ли первая строка - строка заголовков столбцов (по назначению ячейки А1), если заполнена, то не выполняет никаких действий, завершает работу и передает управление в точку вызова;

если первая строка не заполнена, то в ячейки первой строки рабочего листа записывает названия граф таблицы базы данных, комментарии к ним, закрепляет первую строку и завершает работу, передавая управление в точку своего вызова.

В окне редактирования кода введите текст программы этой процедуры:

Private Sub ЗаголовокРабочегоЛиста()

'Активизируем рабочий лист

Application.Worksheets("База").Activate

'Проверяем, есть ли названия столбцов БД

With ActiveSheet

If.Range("A1").Value = "Фамилия" Then

.Range("A2").Select

Else

ActiveSheet.Cells.Clear

'Записываем названия столбцов

Range("A1:E1").Value = Array("Фамилия", "Тип", "Сумма", "Отделение", "Примечание")

'Фиксируем первую строку

.Range("2:2").Select

ActiveWindow.FreezePanes = True

.Range("A2").Select

'Вставляем комментарии

.Range("A1").AddComment

.Range("A1").Comment.Visible = False

.Range("A1").Comment.Text Text:="Фамилия клиента"

.Range("B1").AddComment

.Range("B1").Comment.Visible = False

.Range("B1").Comment.Text Text:="Тип вклада"

.Range("C1").AddComment

.Range("C1").Comment.Visible = False

.Range("C1").Comment.Text Text:="Сумма вклада"

.Range("D1").AddComment

.Range("D1").Comment.Visible = False

.Range("D1").Comment.Text Text:="Отделение банка"

End If

End With

'Вызываем элемент Форма с именем Вклад

Вклад.Show

End Sub

В процедуру обработки события Initialize формы введите код:

Private Sub UserForm_Initialize()

With Вклад

.Северное.Value = True

'Установим длину элемента Список

.ТипВклада.ListRows = 3

'Присвоим значения элементами списка

.ТипВклада.List = Array("Срочный", "Депозит", "Текущий")

'Установим фокус элементу Кнопка с именем Принять

.Принять.SetFocus

End With

End Sub

В процедуру обработки события Initialize элемента Форма с именем «Вклад» запишите код:

Private Sub Вклад_Initialize()

'Изменим название в строке заголовка приложения

Application.Caption = "Регистрация. База данных Банк"

'Изменим название в строке заголовка

Application.DisplayFormulaBar = False

With Принять

.Default = True

'Установка всплывающей подсказки

.ControlTipText = "Ввод данных в базу данных"

End With

With Отмена

.Cancel = True

.ControlTipText = "Кнопка отмены"

End With

ЗаголовокРабочегоЛиста

End Sub

В процедуру обработки события Click элемента Кнопка с именем «Принять» введите код:

Private Sub Принять_Click()

“Декларадция переменных

Dim Фамилия As String

Dim ТипВклада As String

Dim СуммаВклада As Double

Dim Отделение As String

Dim Примечание As String

Dim НомерСтроки As Integer

'Вычисление номера первой свободной строки

НомерСтроки=_

Application.CountA (ActiveSheet.Columns(1)) + 1

With Вклад

If.Фамилия.Text = "" Then

MsgBox "Вы забыли указать фамилию", vbExclamation

Exit Sub

End If

If.ТипВклада.Value = "" Then

MsgBox "Вы забыли указать тип вклада", vbExclamation

Exit Sub

End If

TextBox1 =.Фамилия.Text

ТипВклада =.ТипВклада.Value

If.Северное.Value = True Then Отделение = "Северное"

If.Центральное.Value = True Then Отделение = "Центральное"

If.Восточное.Value = True Then Отделение = "Восточное"

If IsNumeric(.СуммаВклада.Text) = False Then

MsgBox "Введена неверная сумма", vbExclamation

Exit Sub

End If

СуммаВклада = CDbl(.СуммаВклада.Text)

Примечание =.Примечание.Text

End With

'Записываем данные в ячейки рабочего листа

With ActiveSheet

.Cells(НомерСтроки, 1).Value = Фамилия

.Cells(НомерСтроки, 2).Value = ТипВклада

.Cells(НомерСтроки, 3).Value = СуммаВклада

.Cells(НомерСтроки, 4).Value = Отделение

.Cells(НомерСтроки, 5).Value = Примечание

End With

End Sub

В процедуру обработки события Click элемента Кнопка с именем «Отмена» поместите код:

Private Sub Отмена_Click()

Dim НомерСтроки As Integer

"Вычисляем номер последней строки

НомерСтроки = Application.CountA(ActiveSheet.Columns(1))

'Удаляем содержимое ячеек строки

With ActiveSheet

.Cells(НомерСтроки, 1).Value = ""

.Cells(НомерСтроки, 2).Value = ""

.Cells(НомерСтроки, 3).Value = ""

.Cells(НомерСтроки, 4).Value = ""

.Cells(НомерСтроки, 5).Value = ""

End With

End Sub

В процедуру обработки события Click элемента Кнопка с именем «Выход» поместите код:

Private Sub Выход_Click()

'Активизируем рабочий лист с именем Меню

Sheets("Меню").Activate

'Завершаем выполнение программы

End

End Sub

Перейдите в приложение MS Excel, активизируйте рабочий лист Меню, изображенный на рисунке 6.7 и щелкните на кнопке «Прием вклада». Программа должна активизироваться, и на экране появиться созданное диалоговое окно (рисунок 6.6).

Рисунок 6.7 - Законченный вид листа «Меню»

Отладьте и проверьте работу программы во всех режимах.

Сохраните проект.

Самостоятельная работа.

1. В примере п.2 выполните изменения в теле процедуры: выведите результат вычислений в ячейку С1.

2. На рабочем листе создайте кнопку для вывода формы на экран.

Контрольные вопросы.

1. Как присвоить текстовому полю (TextBox) какое-либо значение?

2. Какая панель инструментов используется для размещения элементов управления на рабочем листе?

3. Как вызвать панель инструментов Формы на рабочий лист MS Excel?

4. Что означают события: Click, Initialize и методы: Show, Unload, Hide?

5. Что означает свойство MultiSelect?

Список рекомендуемой литературы