При създаване на потребителски форми в Excel VBA, можете да използвате Контролира събирането за лесно преминаване през контролите и задаване на свойство на всяка контрола на определена стойност.
Потребителската форма, която ще създадем, изглежда, както следва:
За да създадете тази потребителска форма, изпълнете следните стъпки:
1. Отворете редактора на Visual Basic. Ако Project Explorer не се вижда, щракнете върху View, Project Explorer.
2. Щракнете върху Вмъкване, Потребителска форма. Ако Toolbox не се появи автоматично, щракнете върху View, Toolbox. Екранът ви трябва да бъде настроен както е показано по -долу.
3. Добавете етикета, текстовите полета (първо отгоре, второ под първото и т.н.) и командния бутон. След като това приключи, резултатът трябва да бъде в съответствие с картината на Userform, показана по -рано. Например, създайте контрола за текстово поле, като щракнете върху TextBox от кутията с инструменти. След това можете да плъзнете текстово поле в Userform.
4. За да промените надписа на Userform, етикет и команден бутон, щракнете върху View, Properties Window и щракнете върху всяка контрола.
5. За да покажете Userform, поставете команден бутон на работния си лист и добавете следния код:
Частна подкоманда CommandButton1_Click ()
UserForm1.Show vbModeless
End Sub
Обяснение: чрез добавяне на vbModeless можете да използвате Userform и да работите едновременно във вашия работен лист.
Вече създадохме първата част на Userform. Въпреки че вече изглежда добре, нищо няма да се случи, когато щракнем върху командния бутон на Userform.
6. Отворете редактора на Visual Basic.
7. В Project Explorer щракнете двукратно върху UserForm1.
8. Щракнете двукратно върху командния бутон.
9. Добавете следните кодови редове:
Частна подкоманда CommandButton1_Click ()
Dim i As Integer
За i = 1 до 10
Контроли ("TextBox" & i). Значение = Клетки (i + 1, 1).
Следва i
End Sub
Обяснение: Само с няколко реда код можем да запълним текстовите полета с телефонните номера от листа. Използвахме оператора & за свързване (присъединяване) на елементите. Тези кодови редове работят, защото не сме променили имената на контролите на текстовото поле (TextBox1, TextBox2, TextBox3 и т.н.). За да промените имената на контролите, щракнете върху Изглед, прозорец Свойства и щракнете върху всяка контрола.
Резултат, когато щракнете върху командния бутон на листа:
