Методичні вказівки до виконання завдання №7

Тема: Створення інтерфейсу користувача

Мета: Придбання практичних навичок розробки інтерфейсу користувача в середовищі VBA.

План

1. Вивчення організації інтерфейсу користувача за допомогою функцій виводу повідомлень користувачу і введення даних.

2. Модифікація процедури AvtUchet, передбачивши в процесі її виконання інтерфейс із користувачем.

Технологія виконання завдання

Постановка задачі: Модифікувати процедуру AvtUchet, організувати в процесі її виконання інтерфейс із користувачем.

Для решения поставленной задачи необходимо выполнить следующие действия:

1. Відкрити книгу MS Excel з лабораторними роботами.Перейти на рабочий листок «Автоматизований облік».

2. У середовищі VBA виконати модифікацію ппоцедуры AvtUchet:

   1. Передбачити введення пароля для дозволу виконання розрахунку (використовувати функцію ІnputBox, третім параметром задати рядок за замовчуванням - "*******").

   2. Передбачити повідомлення користувачу при виконанні розрахунку (функції MsgBox і Date), а також повідомлення при неправильному паролі й у ситуації, якщо розрахунок не проводився. Кожен рядок програмного модуля процедури пояснити коментарем. Кожен рядок коментарю починається зі знака апостроф.

   3. При висновку повідомлень (функція MsgBox) і при введенні пароля (функція ІnputBox) визначити свої заголовки діалогових вікон.

Контрольні питання

1. Що таке діалог користувача і ПЕОМ?

2. Які функції забезпечують діалог у середовищі VBA?

3. Для чого використовується функція MsgBox?

4. Охарактеризувати параметри функції MsgBox.

5. Яку роль грають визначені константи?

6. Охарактеризувати принцип роботи функції ІnputBox.

7. Які параметри використовуються у функції ІnputBox?

8. Як задати заголовки у вікнах повідомлень?

Чому ви навчилися?

• Використовувати функцію MsgBox.

• Використовувати визначені константи.

• Використовувати функцію ІnputBox.

При виконанні процедури на екран будуть виведені наступні діалогові вікна:

Листинг модуля VBA має такий вигляд:

Sub AvtUchet1() ‘ Автоматизированный учет

Dim Imax, IMin, Result, Kod, i As Integer

Dim User As String

Msg = "Будем продолжать работу? "

Kod = vbYesNo + vbCritical

M: User = InputBox("Введите пароль", , "*******")

If User = "Студент" Then

Imax = WorksheetFunction.Max(Range("C4:C10"))

IMin = WorksheetFunction.Min(Range("C4:C10"))

For i = 4 To 10

If Cells(i, 3).Value = Imax Then

Range(Cells(i, 1), Cells(i, 3)).Font.Color = vbRed

ElseIf Cells(i, 3).Value = iMin Then

Range(Cells(i, 1), Cells(i, 3)).Font.Color = vbGreen

Else

Range(Cells(i, 1), Cells(i, 3)).Font.Color = vbBlack

End If

Next i

MsgBox "Расчет проведен " & Date

Else

MsgBox "Вы ввели неправильно пароль!!! "

Result = MsgBox(Msg, Kod)

If Result = vbYes Then

GoTo M

Else

If Result = vbNo Then

MsgBox "Расчет не проводился"

End If

End If

End If

End Sub