Введение в программирование на VBA - eDrive
Введение в программирование на VBA - eDrive Введение в программирование на VBA - eDrive
60 Фаренгейт = (Кельвин - 273.15) * 9 / 5 + 32 End Sub Sub КакДела () Me!Состояние.SetFocus настроение = Me!Состояние.Text настроение = Left (Настроение, 3) Select Case настроение Case "хор", "Хор" MsgBox "Он в духе" Case "пло", "Пло" MsgBox "Он не в духе" Case Else MsgBox "Ни то, ни се" End Select End Sub Sub Цены () Me!ПолеЦены.SetFocus цена = Me!ПолеЦены.Text Select Case цена Case 10 To 500 MsgBox "Низкая цена" Case 501 To 50000 MsgBox "Средняя цена" Case Is > 50000 MsgBox "Высокая цена" Case Else MsgBox "Неверное число" End Select End Sub Sub Форма_AfterUpdate () Select Case Фирма Case "Apple" Me!Год = 1975 Me!Президент = "Джобс" Case "Motorola" Me!Год = 1937 Me!Президент = "Фишер" Case "Intel" Me!Год = 1967 Me!Президент = "Нойс" End Select End Sub Sub Доступ_Exit () MsgBox "Ввод запрещен" Me.Undo End Sub Sub Год_Exit () If Len (Год) 4 Then
61 MsgBox "Введите четырехзначное число" Me.Undo End If End Sub Sub ФормаСЭлементамиУправления_Open () номер = 0 Do Me.Controls (Номер).Properties ("BorderColor") = номер * 1000 + 1 номер = номер + 1 Loop While Номер < Controls.Count End Sub Sub ФормаСФлажком_Open () Флажок.Value = Null With Выключатель .Caption = "Шрифт" .Value = False End With End Sub Sub UserForm_Activate () With CheckBox1 .Value = Null .Caption = "Жирный курсивный шрифт" .WordWrap = True End With With ScrollBar1 .Min = 20 .Max = 50 .Value = 30 End With With ToggleButton1 .Caption = "Шрифт" .Value = False End With With SpinButton1 .Value = 50 .Max = 100 .Min = 1 End With End Sub Sub ЗаполнитьПервыйСписок () For i = 0 To 10 UserForm2.ListBox1.AddItem "номер" & i Next End Sub Sub ПередатьВоВторойСписок () For i = 0 To (UserForm2.ListBox1.ListCount - 1) If UserForm2.ListBox1.Selected (i) Then _
- 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 and 42: 41 после Then лексемы,
- Page 43 and 44: 43 Традиционный опе
- 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: 59 .Enabled = False End With UserFo
- Page 63 and 64: 63 Sub CommandButton1_Click () Comb
60<br />
Фаренгейт = (Кель<strong>в</strong>ин - 273.15) * 9 / 5 + 32<br />
End Sub<br />
Sub КакДела ()<br />
Me!Состояние.SetFocus<br />
<strong>на</strong>строение = Me!Состояние.Text<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 />
Me!ПолеЦены.SetFocus<br />
це<strong>на</strong> = Me!ПолеЦены.Text<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<br />
Sub Форма_AfterUpdate ()<br />
Select Case Фирма<br />
Case "Apple"<br />
Me!Год = 1975<br />
Me!Президент = "Джобс"<br />
Case "Motorola"<br />
Me!Год = 1937<br />
Me!Президент = "Фишер"<br />
Case "Intel"<br />
Me!Год = 1967<br />
Me!Президент = "Нойс"<br />
End Select<br />
End Sub<br />
Sub Доступ_Exit ()<br />
MsgBox "В<strong>в</strong>од запрещен"<br />
Me.Undo<br />
End Sub<br />
Sub Год_Exit ()<br />
If Len (Год) 4 Then