Excel迭代循环VBA

Question

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

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