VBA userform_Get从其他文本框到单元格的值

Question

我不知道如何在此处使用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

标签“从文本框获取值到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 ”按钮。 这将使您返回到代码编辑器，突出显示了令人反感的语句，并且可以在“本地”窗格（在“查看”菜单上）中检查变量。