При створенні форм користувача в Excel VBA, ви можете використовувати Контролює збір щоб легко перебирати елементи керування та встановлювати властивість кожного елемента керування до певного значення.
Форма користувача, яку ми збираємось створити, виглядає так:
Щоб створити цю форму користувача, виконайте такі дії:
1. Відкрийте редактор Visual Basic. Якщо Провідник проектів не відображається, натисніть Перегляд, Провідник проектів.
2. Натисніть Вставити, форма користувача. Якщо панель інструментів не з'являється автоматично, натисніть Перегляд, Панель інструментів. Ваш екран слід налаштувати, як показано нижче.
3. Додайте мітку, текстові поля (спочатку зверху, друге під першим і так далі) та кнопку команди. Як тільки це буде завершено, результат повинен відповідати зображенню Userform, показаному раніше. Наприклад, створіть елемент керування текстовим полем, натиснувши TextBox у панелі інструментів. Далі можна перетягнути текстове поле у формі користувача.
4. Щоб змінити підпис форми користувача, ярлик та командна кнопка, клацніть «Перегляд», «Вікно властивостей» і клацніть на кожному елементі керування.
5. Щоб відобразити Userform, розмістіть на робочому аркуші командну кнопку та додайте такий кодовий рядок:
Приватна підкомандаButton1_Click ()
UserForm1.Show vbModeless
End Sub
Пояснення: додавши vbModeless, ви можете використовувати форму користувача та одночасно працювати на своєму аркуші.
Тепер ми створили першу частину Userform. Хоча це вже виглядає акуратно, нічого не відбудеться, коли ми натиснемо кнопку команди на Userform.
6. Відкрийте редактор Visual Basic.
7. У Провіднику проектів двічі клацніть UserForm1.
8. Двічі клацніть на командній кнопці.
9. Додайте такі рядки коду:
Приватна підкомандаButton1_Click ()
Dim i як ціле число
Для i = 1-10
Елементи керування ("TextBox" & i). Значення = комірки (i + 1, 1).
Далі i
End Sub
Пояснення: За допомогою кількох рядків коду ми можемо заповнити текстові поля номерами телефонів з аркуша. Ми використовували оператор & для об’єднання (об’єднання) елементів. Ці рядки коду працюють, оскільки ми не змінили назви елементів керування текстового поля (TextBox1, TextBox2, TextBox3 тощо). Щоб змінити назви елементів керування, клацніть «Перегляд», «Вікно властивостей» і клацніть по кожному елементу керування.
Результат, коли ви натискаєте кнопку команди на аркуші:
