Введение в программирование на 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.
62<br />
Next<br />
End Sub<br />
UserForm2.ListBox2.AddItem _<br />
UserForm2.ListBox1.List (i)<br />
Sub ОчиститьВторойСписок ()<br />
For i = (UserForm2.ListBox2.ListCount - 1) To 0 Step -1<br />
UserForm2.ListBox2.RemoveItem i<br />
Next<br />
End Sub<br />
' Форма содержит д<strong>в</strong>а списка. Выбор <strong>в</strong>ыполняется щелчком по пер<strong>в</strong>ому списку.<br />
Sub ListBox1_Click ()<br />
строка = ListBox1.ListIndex<br />
ListBox2.AddItem (ListBox1.List (строка))<br />
End Sub<br />
Sub ListBox2_Click ()<br />
строка = ListBox2.ListIndex<br />
ListBox1.AddItem (ListBox2.List (строка))<br />
End Sub<br />
Sub UserForm_Activate ()<br />
ListBox1.AddItem "Борщ"<br />
ListBox1.AddItem "Яичница"<br />
ListBox1.AddItem "Солянка"<br />
ListBox1.AddItem "Рагу"<br />
ListBox1.AddItem "Компот"<br />
ListBox1.AddItem "Какао"<br />
ListBox1.AddItem "Мороженое"<br />
ListBox1.AddItem "Бутерброд"<br />
ListBox1.SetFocus<br />
End Sub<br />
Sub Список1_Click ()<br />
строка = Список1.ListIndex<br />
MsgBox (Список1.ItemData (Строка))<br />
End Sub<br />
Sub ПолеСоСписком_Change ()<br />
MsgBox "Опять что-то пишут :-(”<br />
End Sub<br />
' Форма содержит поле со списком, <strong>на</strong>дпись и д<strong>в</strong>е кнопки.<br />
Sub UserForm_Activate ()<br />
ComboBox1.Text = ""<br />
Label1 = ""<br />
ComboBox1.SetFocus<br />
End Sub