Введение в программирование на VBA - eDrive
Введение в программирование на VBA - eDrive
Введение в программирование на VBA - eDrive
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
41<br />
после Then лексемы, и программа <strong>в</strong>ыходит из упра<strong>в</strong>ляющей структуры. Если<br />
же результат логической операции ложен (False), программа переходит за<br />
ключе<strong>в</strong>ое сло<strong>в</strong>о Else, а если оно отсутст<strong>в</strong>ует, то оста<strong>в</strong>шиеся <strong>в</strong>ыражения<br />
упра<strong>в</strong>ляющей структуры <strong>в</strong>ообще игнорируются. Глуби<strong>на</strong> <strong>в</strong>ложения<br />
операторо<strong>в</strong> не ограничи<strong>в</strong>ается.<br />
Как исключение, простые <strong>в</strong>ыражения разрешается записы<strong>в</strong>ать <strong>в</strong> одну<br />
строку без End If.<br />
Примеры<br />
Sub При<strong>в</strong>етст<strong>в</strong>ие ()<br />
пользо<strong>в</strong>атель = InputBox ("Вы кто ")<br />
If пользо<strong>в</strong>атель = "Смирно<strong>в</strong>" Then<br />
MsgBox "При<strong>в</strong>ет, " & пользо<strong>в</strong>атель<br />
End If<br />
End Sub<br />
Sub Но<strong>в</strong>оеПри<strong>в</strong>етст<strong>в</strong>ие ()<br />
пользо<strong>в</strong>атель = InputBox ("Вы кто ")<br />
If пользо<strong>в</strong>атель = "Смирно<strong>в</strong>" Then MsgBox "При<strong>в</strong>ет, " & пользо<strong>в</strong>атель _<br />
Else Beep<br />
End Sub<br />
Sub Бук<strong>в</strong>аЛиБольшаяЛи ()<br />
сим<strong>в</strong>ол = InputBox("В<strong>в</strong>едите бук<strong>в</strong>у")<br />
If Asc (сим<strong>в</strong>ол) > 63 And Asc (сим<strong>в</strong>ол) < 91 Then<br />
MsgBox "В<strong>в</strong>еде<strong>на</strong> загла<strong>в</strong><strong>на</strong>я латинская бук<strong>в</strong>а"<br />
ElseIf Asc (сим<strong>в</strong>ол) > 96 And Asc (сим<strong>в</strong>ол) < 123 Then<br />
MsgBox "В<strong>в</strong>еде<strong>на</strong> строч<strong>на</strong>я латинская бук<strong>в</strong>а"<br />
Else<br />
MsgBox "Это не латинская бук<strong>в</strong>а"<br />
End If<br />
End Sub<br />
Sub Кла<strong>в</strong>иатурныеКомби<strong>на</strong>ции ()<br />
число = Application.InputBox (prompt := "В<strong>в</strong>едите число", Type: = 1)<br />
If число Then<br />
Application.OnKey "^{RIGHT}", "Обработка"<br />
Else<br />
Application.OnKey "^{RIGHT}", ""<br />
Application.OnKey "^{RIGHT}"<br />
End If<br />
End Sub<br />
Sub Обработка ()<br />
MsgBox “Обрабаты<strong>в</strong>ается таблица”<br />
End Sub<br />
Оператор <strong>в</strong>ыбора служит для организации хода <strong>в</strong>ычислительного<br />
процесса <strong>в</strong> за<strong>в</strong>исимости от з<strong>на</strong>чения <strong>в</strong>ыражения или переменной: