Find centralized, trusted content and collaborate around the technologies you use most.
Teams
Q&A for work
Connect and share knowledge within a single location that is structured and easy to search.
我有一个userform正在捕获的数据点超过 50 个。主要是用户条目,很少来自其他数据库。我想将它们转移到excel。有没有比为每个数据点编写以下内容更好的方法来做到这一点?
userform
Range("A1").Value = TextBox44.Value
我会使用这样的每个语句:
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
这未经测试,因此可能存在一些小错误