减少行数-VBA Excel

问题描述

下午好，

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

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

我需要一些建议，不要在如何最好地编写这样的代码方面大笑：

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

“ T ##”是用于从RecordRange加载数据的文本框。数据响应是按所示顺序回答问题的答案。但是持续了70多行。如果我的基本知识对我有用...我在想，必须有一种方法来设置一个范围，其起点为T1，并一直循环到终点范围，例如T78？而不是每个人都有一行？

我可以发布更多代码，但我实际上只是在寻找一种循环此方法并让VBA完成工作的方法...

我不容易受到冒犯，因此会接受所有业余评论等等哈哈哈

非常感谢

解决方法

Dim I As Long

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