从excel中的userform捕获多个数据

Question

我有一个userform，其中有超过50个数据点被捕获。主要是用户条目，很少来自其他数据库。我想将它们转移到excel。有没有比为每个数据点编写下面更好的方法呢？

Range("A1").Value = TextBox44.Value 

Answer 1

对于每个这样的声明，我会选择：

Dim intRow As Integer
intRow = 1
For Each tbTextBox In Me.Controls
    If TypeName(tbTextBox) = "TextBox" Then
        Cells(intRow, 1) = tbTextBox.Value
        intRow = intRow + 1
    End If
Next

这未经过测试，因此可能会出现一些小错误