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

Я не знаю, как принять меры с формой пользователя VBA здесь.

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

Надпись «добавить текстовое поле после нажатия кнопки» это один работает»

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

Надпись » Get value from textboxes to cell_это не работает»

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. Я пробовал различные funtions здесь, но все еще не мог решить эту проблему.

1 ответ

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

    Подсказка: в поле ошибки говоря не удалось найти указанный объект нажмите кнопку Debug. После этого вы вернетесь в редактор кода с выделенной инструкцией offending и сможете просмотреть переменные на панели Locals (в меню View).