06.01.2015 Views

Введение в программирование на VBA - eDrive

Введение в программирование на VBA - eDrive

Введение в программирование на VBA - eDrive

SHOW MORE
SHOW LESS

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

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!