Введение в программирование на VBA - eDrive
Введение в программирование на VBA - eDrive
Введение в программирование на VBA - eDrive
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
63<br />
Sub CommandButton1_Click ()<br />
ComboBox1.AddItem ComboBox1.Text<br />
ComboBox1.Text = ""<br />
ComboBox1.SetFocus<br />
End Sub<br />
Sub CommandButton2_Click ()<br />
сумма = 0: номерЗаписи = 1<br />
Do While номерЗаписи 60 Then<br />
Время = 60<br />
End If<br />
End Sub<br />
Sub Стрелки_SpinDown ()<br />
If UserForm1.Время > 1 Then<br />
UserForm1.Время = UserForm1.Время - 1<br />
End If<br />
End Sub<br />
Sub Стрелки_SpinUp ()<br />
If UserForm1.Время < 60 Then<br />
UserForm1.Время = UserForm1.Время + 1<br />
End If<br />
End Sub<br />
Sub UserForm_Initialize ()<br />
Set страница = UserForm.Controls.Add ("Forms.MultiPage.1")<br />
TextBox1 = Format (Now, "d mmmm yy г.")<br />
CheckBox1 = True