Question

我是新手，这是我的第一篇文章。我不得不经常使用这种代码，所以一些指导将非常感激。我不确定如何最好的标题/问这个问题，但我想在Excel VBA中简化下面的代码。

txtItem1.Value = txtItem2.Value
txtItem2.Value = txtItem3.Value
txtItem3.Value = txtItem4.Value
txtItem4.Value = txtItem5.Value
txtItem5.Value = txtItem6.Value
txtItem6.Value = txtItem7.Value
txtItem7.Value = txtItem8.Value
txtItem8.Value = txtItem9.Value
txtItem9.Value = txtItem10.Value

*一旦我有了更好的理解，我就可以更新标题，使其对其他人更有用。

Answer 1

假设您在Excel中使用文本框并且您的命名约定仍然是连续的，您可以执行以下操作：

For i = 1 To 9
    Me.Controls("txtItem" & i) = Me.Controls("txtItem" & i + 1).Value
Next

在对象名称中使用变量

1 个答案: