VBA userform_Get Значение из дополнительных текстовых ячеек в ячейки

Question

Я не знаю, как действовать с помощью VBA Userform здесь.

У меня есть пользовательская форма, которая позволяет пользователям добавлять больше текстовых полей и вводить значение в текстовые поля. Я хочу скопировать эти значения из каждого дополнительного текстового поля в отдельные ячейки. Это то, что я сделал, но не работаю.

Этикетка "Добавить текстовое поле после того, как clicking_THIS один работает"

Private Sub CommandButton2_Click() 
    x = Me.Controls.count + 1 
    Set xx = Controls.Add("Forms.TextBox.1", "CtrlName" & x) 
    xx.Top = x * 20 - 108 
    xx.Left = 396 
    xx.Width = 288 
End Sub 

Этикетка "Получение значения из текстовых полей в cell_THIS НЕ РАБОТАЕТ"

Private Sub CommandButton1_Click() 
    Dim count as Integer 
    Dim i as Integer 
    count = Me.Controls.count - 9 ("I have 9 other controls, so need to - 9 to count the number of textboxes") 
    For i = 1 To count 
    Cells(i, 1).Select 
    ActiveCell.Value = Me.Controls("TextBox" & i).Value 
    Next i 
End Sub 

Проблема заключается в Me.Controls ("TextBox" & I).Value. Я пробовал разные функции здесь, но все равно не мог этого решить.

Answer 1

Вы назвали ваши текстовые CtrlName10, CtrlName11 и т.д. Вы должны использовать эти имена, а не TextBox1 и т.д. Это означает, что значение Me.Controls("CtrlName" & (i + 9)).Value.

Подсказка: В поле по ошибке Не удалось найти объект нажмите кнопку Debug. Это вернет вас к редактору кода с выделенным оскорбительным выражением, и вы сможете проверить переменные на панели «Локали» (в меню «Вид»).