求大师指点,循环语句怎么写

求大师指点,用户窗体中的添加按钮,单击后,能否将所有文本框中的数据写入data表中

你的Excel表格打开太费劲了，建议把窗体去掉，直接用Excel表单设计成窗体样式就行，还更容易操作。

你的排列太不规则了。可以尝试先将所有的文本框全部重新命名，如下：
第一行，分别命名为T101, T102 , T103......T106
第二行：分别命名为T201 , T202 , T203......T206
.
.
.
第八行：分别命名为T801 , T802 , T803......T806

For i = 1 to 8
       For m = 1 to 6
              cells(i,m) = Userform1.Controls("T" & i & Format(m,"00")).value  '如此循环即可！！
next m, i

在开头处
Dim num As Integer
num = Worksheets(1).Range("a1").CurrentRegion.Rows.Count
然后
sheets(1).cells(num+1,...)=....value
.
...把那7*8项全写完
.补充建议把控件的caption属性都改一下，改成有规律的标识，还有默认控件次序，在tabindex处编号

[ 本帖最后由 lydtsxlt2011 于 2011-8-9 19:09 编辑 ]