Введение в программирование на 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.
59<br />
.Enabled = False<br />
End With<br />
UserForm1.Show<br />
End Sub<br />
Sub ФормаСоСписками ()<br />
Dim масси<strong>в</strong><br />
масси<strong>в</strong> = Array ("1000", "2000", "3000", "4000")<br />
With UserForm1<br />
.ListBox1.List = Array ("июнь", "июль", "", "")<br />
.ListBox1.List (2, 0) = "сентябрь"<br />
.ComboBox1.List = масси<strong>в</strong><br />
.Show<br />
End With<br />
End Sub<br />
Sub Получатель ()<br />
If MsgBox ("Вас интересует получатель", vbYesNo) = vbYes Then<br />
Set кто = Me!TextBoxПолучатель<br />
кто.SetFocus<br />
MsgBox (кто.Text)<br />
End If<br />
End Sub<br />
Sub При<strong>в</strong>етст<strong>в</strong>ие ()<br />
Set кто = Me!Получатель<br />
кто.SetFocus<br />
If кто.Text = "Смирно<strong>в</strong>" Then MsgBox "При<strong>в</strong>ет, Смирно<strong>в</strong>" Else Beep<br />
End Sub<br />
' Процедуры формы, <strong>в</strong> которой размещены три поля.<br />
' В<strong>в</strong>од числа <strong>в</strong> любое из полей сопро<strong>в</strong>ождается <strong>в</strong>ы<strong>в</strong>одом<br />
' преобразо<strong>в</strong>анного з<strong>на</strong>чения <strong>в</strong> д<strong>в</strong>ух других полях<br />
Sub Цельсий_KeyUp (ByVal KeyCode As MSForms.ReturnInteger, _<br />
ByVal Shift As Integer)<br />
If Цельсий = "" Then Цельсий = 0<br />
Фаренгейт = Цельсий * 9 / 5 + 32<br />
Кель<strong>в</strong>ин = Цельсий + 273.15<br />
End Sub<br />
Sub Фаренгейт_KeyUp (ByVal KeyCode As MSForms.ReturnInteger, _<br />
ByVal Shift As Integer)<br />
If Фаренгейт = "" Then Фаренгейт = 0<br />
Цельсий = (Фаренгейт - 32) * 5 / 9<br />
Кель<strong>в</strong>ин = (Фаренгейт - 32) * 5 / 9 - 273.15<br />
End Sub<br />
Sub Кель<strong>в</strong>ин_ KeyUp (ByVal KeyCode As MSForms.ReturnInteger, _<br />
ByVal Shift As Integer)<br />
If Кель<strong>в</strong>ин = "" Then Кель<strong>в</strong>ин = 0<br />
Цельсий = Кель<strong>в</strong>ин - 273.15