VBA userform_Get Value 从附加文本框到单元格答案

【问题标题】：VBA userform_Get Value from additional textboxes to cellsVBA userform_Get Value 从附加文本框到单元格
【发布时间】：2017-01-14 15:24:26
【问题描述】：

我不知道如何在此处使用 VBA 用户窗体。

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

标签“点击后添加文本框_这个正在工作”

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

标签“从文本框中获取值到单元格_这不起作用”

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。我在这里尝试了不同的功能，但仍然无法解决。

【问题讨论】：

标签： excel userform vba

【解决方案1】：

您已将文本框命名为 CtrlName10、CtrlName11 等。您必须使用这些名称，而不是 TextBox1 等。这意味着该值为 Me.Controls("CtrlName" & (i + 9)).Value。

提示：在显示 找不到指定对象的错误框中，按下按钮 Debug。这将使您返回代码编辑器，并突出显示有问题的语句，您可以在 Locals 窗格（在 View 菜单上）检查变量。

【讨论】：