/ / Excel VBA Controls Collection

Excel VBA Controls Collection

При створенні форм користувача в Excel VBA, ви можете скористатись Колекція елементів керування щоб легко зациклюватися через елементи керування та встановити властивість кожного елемента керування для певного значення.

Формат Userform, який ми збираємося створити, виглядає наступним чином:

Колекція елементів керування в Excel VBA

Щоб створити цю Userform, виконайте наступні кроки:

1. Відкрийте редактор Visual Basic. Якщо Провідник проекту не відображається, натисніть Переглянути, Провідник проекту.

2. Клацніть Insert, Userform. Якщо панель інструментів не відображається автоматично, натисніть Переглянути, Панель інструментів. Ваш екран повинен бути налаштований як показано нижче.

Налаштування екрана Userform у програмі Excel VBA

3. Додайте мітку, текстові поля (спочатку у верхній частині, другий під першим і так далі) і командну кнопку. Після того, як це буде завершено, результат має відповідати картині формату Userform, показаному раніше. Наприклад, створіть елемент керування текстом, натиснувши TextBox на панелі інструментів. Далі можна перетягнути текстове поле на Userform.

4. Щоб змінити заголовок кнопки Userform, label і command, клацніть View, Properties Window і клацніть на кожному елементі керування.

5. Щоб показати Userform, помістіть на вашій робочій клавіші команду та додайте наступну кодову рядок:

Private Sub CommandButton1_Click()

UserForm1.Show vbModeless

End Sub

Пояснення: додаючи vbModeless, ви можете використовувати Userform і працювати на своєму робочому аркуші одночасно.

Тепер ми створили першу частину Userform. Хоча воно виглядає вже акуратно, ще нічого не станеться, коли ми натискаємо кнопку команд у Userform.

6. Відкрийте редактор Visual Basic.

7. У Провіднику проекту двічі клацніть на UserForm1.

8. Двічі клацніть на кнопці команд.

9. Додайте наступні кодові рядки:

Private Sub CommandButton1_Click()

Dim i As Integer

For i = 1 To 10
    Controls("TextBox" & i).Value = Cells(i + 1, 1).Value
Next i

End Sub

Пояснення: За допомогою лише декількох рядків коду ми можемо заповнити текстові поля з номерами телефонів з аркуша. Ми використали оператор &, щоб об'єднати елементи. Ці кодові лінії працюють, тому що ми не змінювали імена елементів керування текстовими вікнами (TextBox1, TextBox2, TextBox3 тощо). Щоб змінити імена елементів керування, натисніть кнопку «Перегляд», «Властивості» та клацніть по кожному елементу керування.

Результат, коли ви натискаєте кнопку команди на аркуші:

Результати колекції контролю

Також читайте: