Введение в программирование на 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.
61<br />
MsgBox "В<strong>в</strong>едите четырехз<strong>на</strong>чное число"<br />
Me.Undo<br />
End If<br />
End Sub<br />
Sub ФормаСЭлементамиУпра<strong>в</strong>ления_Open ()<br />
номер = 0<br />
Do<br />
Me.Controls (Номер).Properties ("BorderColor") = номер * 1000 + 1<br />
номер = номер + 1<br />
Loop While Номер < Controls.Count<br />
End Sub<br />
Sub ФормаСФлажком_Open ()<br />
Флажок.Value = Null<br />
With Выключатель<br />
.Caption = "Шрифт"<br />
.Value = False<br />
End With<br />
End Sub<br />
Sub UserForm_Activate ()<br />
With CheckBox1<br />
.Value = Null<br />
.Caption = "Жирный курси<strong>в</strong>ный шрифт"<br />
.WordWrap = True<br />
End With<br />
With ScrollBar1<br />
.Min = 20<br />
.Max = 50<br />
.Value = 30<br />
End With<br />
With ToggleButton1<br />
.Caption = "Шрифт"<br />
.Value = False<br />
End With<br />
With SpinButton1<br />
.Value = 50<br />
.Max = 100<br />
.Min = 1<br />
End With<br />
End Sub<br />
Sub ЗаполнитьПер<strong>в</strong>ыйСписок ()<br />
For i = 0 To 10<br />
UserForm2.ListBox1.AddItem "номер" & i<br />
Next<br />
End Sub<br />
Sub ПередатьВоВторойСписок ()<br />
For i = 0 To (UserForm2.ListBox1.ListCount - 1)<br />
If UserForm2.ListBox1.Selected (i) Then _