При создании пользовательских форм в Excel VBA, вы можете использовать Коллекция элементов управления чтобы легко перебирать элементы управления и устанавливать свойство каждого элемента управления на определенное значение.
Пользовательская форма, которую мы собираемся создать, выглядит следующим образом:
Чтобы создать эту пользовательскую форму, выполните следующие шаги:
1. Откройте редактор Visual Basic. Если обозреватель проекта не отображается, щелкните «Просмотр», «Обозреватель проекта».
2. Щелкните Вставить, Пользовательская форма. Если панель инструментов не появляется автоматически, щелкните «Просмотр», «Панель инструментов». Ваш экран должен быть настроен, как показано ниже.
3. Добавьте метку, текстовые поля (первое вверху, второе под первым и т. Д.) И командную кнопку. Как только это будет выполнено, результат должен соответствовать изображению пользовательской формы, показанному ранее. Например, создайте элемент управления текстовым полем, щелкнув TextBox на панели инструментов. Затем вы можете перетащить текстовое поле в пользовательскую форму.
4. Чтобы изменить заголовок пользовательской формы, метку и командную кнопку, щелкните «Вид», «Окно свойств» и щелкните каждый элемент управления.
5. Чтобы отобразить пользовательскую форму, поместите кнопку на листе и добавьте следующую строку кода:
Частная подпрограмма CommandButton1_Click ()
UserForm1.Show vbModeless
Конец подписки
Объяснение: добавив vbModeless, вы можете одновременно использовать Userform и работать на своем листе.
Мы создали первую часть пользовательской формы. Хотя это уже выглядит аккуратно, пока мы не нажмем кнопку команды в пользовательской форме, ничего не произойдет.
6. Откройте редактор Visual Basic.
7. В проводнике проекта дважды щелкните UserForm1.
8. Дважды щелкните командную кнопку.
9. Добавьте следующие строки кода:
Частная подпрограмма CommandButton1_Click ()
Dim i как целое число
Для i = от 1 до 10
Элементы управления ("TextBox" & i) .Value = Cells (i + 1, 1) .Value
Далее я
Конец подписки
Объяснение: С помощью всего нескольких строк кода мы можем заполнить текстовые поля телефонными номерами из таблицы. Мы использовали оператор & для объединения (соединения) элементов. Эти строки кода работают, потому что мы не изменили имена элементов управления текстовым полем (TextBox1, TextBox2, TextBox3 и т. Д.). Чтобы изменить имена элементов управления, щелкните «Вид», «Окно свойств» и щелкните каждый элемент управления.
Результат при нажатии кнопки команды на листе:
