传输数据从用户窗体上的文本框多到Excel工作表

Input Screen

，并将其转移到Excel工作表来存储数据。这是我想对数据进行分析：

Output

我目前使用此代码：

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

但我需要继续这样做的每一个似乎非常低效的文本框中。

有没有更高效的方式将这些数据从用户表单转移到工作表？

任何帮助将不胜感激。谢谢！

来源

2017-04-23 Snave

没有看到更多的代码，我只是说取数据，并把它直接进入细胞。这将有很大的帮助，并建议，[避免使用'.Select' /'.Activate']（https://stackoverflow.com/questions/10714251/how-to-avoid-using-select-in-excel- VBA-宏）。而不是使用'ActiveCell'，例如使用'Cells（2,2）'或其它任何单元格。 – BruceWayne

尝试下面的语法来遍历文本框

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

来源

2017-04-23 22:02:07 h2so4

这很好，直到文本框被重命名为别的东西 –

传输数据从用户窗体上的文本框多到Excel工作表

回答

相关问题