Введение в информатику процессов первичной переработки нефти. Новиков А.А - 79 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

78
Function GetOilNumber()
GetOilNumber = InputBox(«Введи номер компонента нефти»)
End Function
В Рro25 вызов функции GetOilNumber запрашивает у пользователя число. Затем
в инструкции If происходит проверка условия: Введенное число N не должно быть
за пределами от 1 до 10 . Если результат проверки равен True (Истина) – введенное
число выходит за указанные пределы, на экран выводится информационное окно с
сообщением об ошибке. Если результат проверки равен False (Ложь), на экран вы-
водится другое окно − с сообщением о введенном номере.
В инструкции If-Then-Else ключевое слово Else и следующий за ним блок инст-
рукций не являются обязательными. Если эти элементы отсутствуют, при отрица-
тельном результате проверки управление передается инструкции, стоящей после
ключевых слов End If.
Cредствами If-Then-Else можно организовать разветвление выполнения про-
граммы не только на 2 ветви. С ключевым словом ElseIf можно сделать разветвле-
ние на несколько ветвей, по условию False.
Sub Auto_Open()
Dim PassW As String
PassW = GetPassWord
If PassW = "level1" Then
For Each Sheet In ActiveWorkbook.Sheets
Sheet.Visible = True
Sheet.Unprotect
Next
MsgBox "Вы получили полный доступ"
ElseIf PassW = "level2" Then
ActiveWorkbook.Worksheets(1).Visible = True
ActiveWorkbook.Worksheets(1).Unprotect
MsgBox "Вы получили полный доступ к листу1"
ElseIf PassW = "level3" Then
ActiveWorkbook.Worksheets(1).Visible = True
MsgBox " Вы получили доступ на чтение к листу1"
Else
MsgBox "Пароль неверен"
End If
End Sub
Function GetPassWord()
GetPassWord = LCase(InputBox("ВВЕДИ ПАРОЛЬ: ", "Авторизация"))
End Function
Здесь, в предпоследней строке, задано обращения к встроенной функции VBA −
LCase. Она преобразует все буквы переданной в нее строки в строчные (если необ-
ходимо преобразовать буквы в заглавные − используйте функцию UCase). В этом
примере программа разветвляется на 4 ветви. Sub Auto_Open автоматически запус-
кает эту программу, при открытии содержащего ее файла Excel (если разрешено вы-

Страницы