Введение в программирование на VBA - eDrive
Введение в программирование на VBA - eDrive Введение в программирование на VBA - eDrive
42 Примеры Select Case Переменная Case Значение1 To Значение2 Выражение […] [Case списокЗначений Выражение …] [Case логическоеВыражение Выражение …] [Case Else Выражение …] End Select Sub ВашеНастроение () настроение = InputBox ("Как дела ") настроение = Left (Настроение, 3) Select Case настроение Case "хор", "Хор" MsgBox "Он в духе" Case "пло", "Пло" MsgBox "Он не в духе" Case Else MsgBox "Ни то, ни се" End Select End Sub Sub Оценка () цена = InputBox ("Введите цену") Select Case цена Case 10 To 500 MsgBox "Низкая цена" Case 501 To 50000 MsgBox "Средняя цена" Case Is > 50000 MsgBox "Высокая цена" Case Else MsgBox "Неверное число" End Select End Sub
43 Традиционный оператор цикла организует повторяющийся вычислительный процесс в заданном диапазоне изменения переменнойсчетчика цикла: For Переменная = Значение1 To Значение2 [Step Значение3] Выражение […] Next [Переменная] Он позволяет создавать в программах циклы с переменной-счетчиком, равномерно уменьшающим или увеличивающим свои значения. Переменная размещается после лексемы For и инициализируется начальным значением. С каждым циклом она изменяется на величину Значение3 или на единицу, если Step Значение3 опущено, до тех пор, пока значение переменной не достигнет конечной величины Значение2. При работе с семействами и коллекциями в VBA будет использован еще один оператор цикла: Пример For Each Переменная In коллекцияОбъектов Выражение […] Next [Переменная] Sub ЛатинскийАлфавит () алфавит = "" For счет = 1 To 26 алфавит = алфавит & Space(1) & Chr (счет + 64) Next счет MsgBox алфавит End Sub Оператор перехода Exit передает управление за пределы управляющей структуры. Для перехода в заданную позицию программного кода можно использовать оператор перехода GoTo Метка. Меткой может служить любое допустимое имя, расположенное в крайней левой позиции текста и завершенное двоеточием. Другой оператор перехода — On Error — обрабатывает ошибки: On Error GoTo Метка — переход на метку в случае ошибки; On Error Resume Next — переход на следующий оператор; On Error GoTo 0 — отключение обработчика ошибок. Если оператор On Error помещен в начало подпрограммы, Visual Basic реагирует на ошибки, начиная с первого выражения. Информацию об ошибке обычно несут свойства объектов Err (код ошибки), Number (свойство по умолчанию,
- Page 1 and 2: В. М. Водовозов Введ
- Page 3 and 4: Оглавление ИНФОРМА
- Page 5 and 6: 5 Единение знака и з
- Page 7 and 8: 7 клавиатурой и пр.,
- Page 9 and 10: 9 необходимый миним
- Page 11 and 12: 11 регламентируя пр
- Page 13 and 14: 13 правым щелчком по
- Page 15 and 16: 15 Удалить окна диал
- Page 17 and 18: 17 Для документиров
- Page 19 and 20: 19 Макрокоманда Имя
- Page 21 and 22: 21 языка Basic, утвержд
- Page 23 and 24: 23 • модули классов,
- Page 25 and 26: 25 конфигурацию кот
- Page 27 and 28: 27 Оператор Определ
- Page 29 and 30: 29 Функция Определе
- Page 31 and 32: 31 вызова ей передаю
- Page 33 and 34: 33 Переменные и авто
- Page 35 and 36: 35 Call Вызов Call Вызов
- Page 37 and 38: 37 Для ввода информа
- Page 39 and 40: 39 • условные опера
- Page 41: 41 после Then лексемы,
- Page 45 and 46: 45 Выражение […] Loop Un
- Page 47 and 48: 47 Тип данных, обозн
- Page 49 and 50: 49 MsgBox "НОД= " & a End Sub С
- Page 51 and 52: 51 Next MsgBox массив End Sub
- Page 53 and 54: 53 .процессор = "Pentium"
- Page 55 and 56: 55 Sub СвойстваФормы (
- Page 57 and 58: 57 объектов. Перетас
- Page 59 and 60: 59 .Enabled = False End With UserFo
- Page 61 and 62: 61 MsgBox "Введите четы
- Page 63 and 64: 63 Sub CommandButton1_Click () Comb
42<br />
Примеры<br />
Select Case Перемен<strong>на</strong>я<br />
Case З<strong>на</strong>чение1 To З<strong>на</strong>чение2<br />
Выражение<br />
[…]<br />
[Case списокЗ<strong>на</strong>чений<br />
Выражение<br />
…]<br />
[Case логическоеВыражение<br />
Выражение<br />
…]<br />
[Case Else<br />
Выражение<br />
…]<br />
End Select<br />
Sub ВашеНастроение ()<br />
<strong>на</strong>строение = InputBox ("Как дела ")<br />
<strong>на</strong>строение = Left (Настроение, 3)<br />
Select Case <strong>на</strong>строение<br />
Case "хор", "Хор"<br />
MsgBox "Он <strong>в</strong> духе"<br />
Case "пло", "Пло"<br />
MsgBox "Он не <strong>в</strong> духе"<br />
Case Else<br />
MsgBox "Ни то, ни се"<br />
End Select<br />
End Sub<br />
Sub Оценка ()<br />
це<strong>на</strong> = InputBox ("В<strong>в</strong>едите цену")<br />
Select Case це<strong>на</strong><br />
Case 10 To 500<br />
MsgBox "Низкая це<strong>на</strong>"<br />
Case 501 To 50000<br />
MsgBox "Средняя це<strong>на</strong>"<br />
Case Is > 50000<br />
MsgBox "Высокая це<strong>на</strong>"<br />
Case Else<br />
MsgBox "Не<strong>в</strong>ерное число"<br />
End Select<br />
End Sub