VBA userform_Get 从附加文本框到单元格的值

Question

我不知道如何使用此处的 VBA 用户表单进行操作。

我有一个用户表单，它允许用户添加更多文本框并在文本框中键入值。我想将这些值从每个附加文本框中复制到单独的单元格中。这就是我所做的，但没有用。

标签"Add textbox after clicking_THIS ONE IS WORKING"

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_THIS IS NOT WORKING"

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。这将 return 您进入代码编辑器，突出显示有问题的语句，您可以在“局部”窗格（在“视图”菜单上）中检查变量。

VBA userform_Get 从附加文本框到单元格的值

VBA userform_Get Value from additional textboxes to cells

excel

vba

userform