0

我有一个userform正在捕获的数据点超过 50 个。主要是用户条目,很少来自其他数据库。我想将它们转移到excel。有没有比为每个数据点编写以下内容更好的方法来做到这一点?

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

1 回答 1

0

我会使用这样的每个语句:

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

这未经测试,因此可能存在一些小错误

于 2013-08-07T06:19:25.660 回答