将数据从Userform上的多个文本框传输到Excel工作表

Question

我正在尝试从输入屏幕获取数据：

并将其传输到Excel工作表以存储数据。这是我想要的数据：

我目前正在使用此代码：

ActiveCell=TextBox1.Value
ActiveCell.Offset(0,1)=TextBox2.Value

但我需要继续为每个看起来非常低效的文本框执行此操作。

是否有更有效的方法将此数据从用户表单传输到工作表？

非常感谢任何帮助。谢谢！

Answer 1

尝试以下语法循环文本框

for i=0 to n ' n =number of textbox values to copy
   activecell.offset(0,i)=userform2.controls("textbox"& i+1).value
next i