Excel Iterate Loop 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