Обновите несколько текстовых полей в пользовательской форме Excel данными из переменных - PullRequest
0 голосов
/ 25 февраля 2019

Я ищу способ обновить несколько текстовых полей в пользовательской форме Excel данными из массива переменных.Текстовые поля называются TextBox1, TextBox2 и т. Д. И я хочу обновить эти текстовые поля в DO LOOP, а не обновлять каждое текстовое поле построчно.

Массив переменных будет содержать n значений для n текстаполя в пользовательской форме.

Я совершенно новичок в пользовательских формах;Любая помощь приветствуется.

Спасибо.

1 Ответ

0 голосов
/ 26 февраля 2019

Попробуйте настроить это под свои нужды:

' Declare variables
Dim arrValues As Variant
Dim counter As Integer

' Initialize array
arrValues = Array("a", "b", "c")

' Loop through array items
For counter = 0 To UBound(arrValues)

    ' Refer to textboxes names from controls collections and assign array values
    Me.Controls("TextBox" & counter + 1).Text = arrValues(counter)

Next counter
...