在对象名称中使用变量

我是新手，这是我的第一篇文章。我不得不使用这种代码很多，所以一些指导将非常感激。我不确定如何获得最佳标题/问这个问题，但我想简化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

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

来源

2017-07-31 Chris King

*我想简化以下*代码 - 你要如何简化呢？ [Code Review]（http://codereview.stackexchange.com）可能的候选人 –

假设你正在使用Excel文本框和你的命名约定保持连续的，你可以做这样的事情：

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

来源

2017-07-31 18:04:05 abraxascarab

在对象名称中使用变量

回答

相关问题