减少行数 - VBA Excel

Question

大家下午好，

我对 VBA 的了解非常有限。我正在使用它以用户表单的形式创建 UI 以将数据存储在 Excel 电子表格中。

我想减小文件的大小。我知道一种方法是减少脚本中包含的行数。

我需要建议，但没有太多关于如何最好地编写这样的代码的笑声：

T7.Value = RecordRange(1, 1).Offset(0, 8).Value
T8.Value = RecordRange(1, 1).Offset(0, 9).Value
T9.Value = RecordRange(1, 1).Offset(0, 10).Value
T10.Value = RecordRange(1, 1).Offset(0, 11).Value
T11.Value = RecordRange(1, 1).Offset(0, 12).Value
T12.Value = RecordRange(1, 1).Offset(0, 13).Value
T13.Value = RecordRange(1, 1).Offset(0, 14).Value
T14.Value = RecordRange(1, 1).Offset(0, 15).Value
T15.Value = RecordRange(1, 1).Offset(0, 16).Value

“T##”是从 RecordRange 加载数据的文本框。数据响应是对按所示顺序出现的问题的回答。但继续 70 多行。如果我的基本知识对我有用……我在想，一定有一种方法可以设置一个范围，起点为 T1，然后循环到终点范围，例如 T78？而不是每行都有单独的行？

我可以 post 更多代码，但我真的只是在寻找一种方法来循环它并让 VBA 完成腿部工作...

我不容易被冒犯所以会接受所有业余评论等等哈哈

非常感谢

Answer 1

Dim I As Long

For I = 7 To 15
    Me.Controls("T" & I) = RecordRange(1, 1).Offset(0, I + 1)
Next I

减少行数 - VBA Excel

Reducing line count - VBA Excel

excel

vba

simplify