2015-07-04
331
Постановка задачі: Модифікувати процедуру AvtUchet, організувати в процесі її виконання інтерфейс із користувачем.
Для рішення поставленої задачі необхідно виконати наступні дії:
1. Відкрити книгу MS Excel з лабораторними роботами. Перейти на рабочий листок «Автоматизований облік».
2. У середовищі VBA виконати модифікацію ппоцедуры AvtUchet:
2.1. Передбачити введення пароля для дозволу виконання розрахунку (використовувати функцію ІnputBox, третім параметром задати рядок за замовчуванням - "*******").
2.2. Передбачити повідомлення користувачу при виконанні розрахунку (функції MsgBox і Date), а також повідомлення при неправильному паролі й у ситуації, якщо розрахунок не проводився. Кожен рядок програмного модуля процедури пояснити коментарем. Кожен рядок коментарю починається зі знака апостроф.
2.3. При виведенні повідомлень (функція 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
|
