Excel迭代循环VBA

Question

我正在尝试遍历一列数据并更改文本boxt以显示结果数据。目前这是我的代码

For index = 0 To 34 Step 1
    Me.txtLat.Text = ws.Range("F3")
    Me.txtLong.Text = ws.Range("G3")
Next index

然而我希望“F3”根据索引更改为“F4”，“F5”等。我确信它非常简单只是有严重的脑痉挛。

我尝试过以下但是没有用

For index = 0 To 34 Step 1
    Me.txtLat.Text = ws.Range("F3+index")
    Me.txtLong.Text = ws.Range("G3+index")
Next index

我想我需要隔离行号但不确定如何...帮助！

Answer 1

您的关闭，但您需要将index变量连接到字符串，如下所示：

For index = 3 To 34 Step 1
    Me.txtLat.Text = ws.Range("F" & index).value
    Me.txtLong.Text = ws.Range("G" & index).value
Next index

但这是一个文本框，因此您只显示最后一个值。

---

如果要将项目添加到组合框中的列表，请尝试：

For index = 3 To 34 Step 1
    Me.txtLat.AddItem = ws.Range("F" & index).value
    Me.txtLong.AddItem = ws.Range("G" & index).value
Next index

您可能还会发现需要先将其清除，以免出现重复列表。

Me.txtLat.Clear