VBA增加TextBox＃.value中的“＃”

我需要帮助的VBA编码：我有近250个用户forms的文本框（是一个“matrix”值），当用户完成填充框，我想写在Excel表单。 我可以写所有250行

工作表（mysheet）.Cells（x，y）.Value = TextBox＃.Value

但是这会很长。 我想知道是否有办法让事情变得像一段时间，并增加文本框的＃号。 谢谢，对不起我的英文。

Answer 1

一种select是使用下面的代码，它会给你每个文本框。 另一种select是，如果方框命名为尾随号码（即Txt1，Txt2等），则可以使用其他代码（即Me.Controls（“TextBox”＆i）.Value

Dim cCTL As Control Dim iCTR As Integer iCTR = 0 For Each cCTL In Me.Controls If TypeName(cCTL ) = "TextBox" Then iCTR = iCTR + 1 WorkSheets(mysheet).Cells(iCTR,y).Value = cCTL.Value End If Next cCTL 

选项二（因为所有的控件都是编号的：只要将For循环设置为正确的控件计数，并将“mysheet”引用更改为所需的列和行。

 Dim i As Integer For i = 1 to 250 WorkSheets(mysheet).Cells(i+2,y).Value = Me.Controls("ctr" & i).value Next i