Question

我不知道如何使用VBA Userform采取行动。

我有一个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等。这意味着值为{ {1}}。

提示：在错误框中说无法找到指定的对象按下按钮Me.Controls("CtrlName" & (i + 9)).Value。这将返回到代码编辑器，突出显示违规语句，您可以在“局部”窗格中（在“视图”菜单上）检查变量。

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

1 个答案: