Цикл спуска по столбцу

[Mjaso]

Добрый день !

Вот, пытаюсь на своей Форме в TextBox отразить все значения (из столбца в Таблице) один за одним, по нажатию кнопки. Кол-во значений в Таблице не будет фиксированным (но при этом может доходить до 300-400). Вот что у меня получилось:

Private Sub UserForm_Initialize()
With Worksheets("List") 'Работаем с листом "List".
If .Range("F2") <> "" Then TextBox1.Text = .Range("F2")
If .Range("F2") = "" Then TextBox1.Text = ""
End With
End Sub
Private Sub CommandButton1_Click()
If TextBox1.Text = Sheets("List").Range("F2") Then
TextBox1.Text = Sheets("List").Range("F3")
ElseIf TextBox1.Text = Sheets("List").Range("F3") Then
TextBox1.Text = Sheets("List").Range("F4")
ElseIf TextBox1.Text = Sheets("List").Range("F4") Then
TextBox1.Text = Sheets("List").Range("F5")

End If
End Sub

Вобщем, до 3-х он у меня сейчас все цифры по порядку показывает. Но что-то мне подсказывает, что есть способы и полегче чем перебирать КАЖДОЕ из значений.

Знающие люди, подскажите какой цикл использовать в моём случае.

Заранее благодарен

[RAN.]

Dim i&

Private Sub UserForm_Initialize()
i = 2
TextBox1 = Sheets("List").Range("F" & i)
End Sub
Private Sub CommandButton1_Click()
i = IIf(i <= Sheets("List").Cells(Rows.Count, "F").End(xlUp).Row, i + 1, 2)
TextBox1 = Sheets("List").Range("F" & i)
End Sub

[Hugo121]

А если нужно назад вернуться?
Может лучше spinbutton? Значение можно заносить в публичную переменную - тогда при повторном открытии формы перебор можно продолжить.
Значения с листа брать способом cells(i,6).value

[Mjaso]

Сообщение от RAN.

Dim i&

Private Sub UserForm_Initialize()
i = 2
TextBox1 = Sheets("List").Range("F" & i)
End Sub
Private Sub CommandButton1_Click()
i = IIf(i <= Sheets("List").Cells(Rows.Count, "F").End(xlUp).Row, i + 1, 2)
TextBox1 = Sheets("List").Range("F" & i)
End Sub

Спасибо, это действительно то что нужно, правда работает медленно, бывает два раза уже успеваю на кнопку нажать пока он следующее порядковое число выдаст.

И кстати, действительно хотелось бы чтобы по возвращению в Форму она продолжала счёт. Но без SpinButton, т.к. нельзя мне в эту Форму новый элемент управления добавлять. Можно это как то без него организовать ?

[Казанский]

> правда работает медленно
Это сама форма тормозит! Попробуйте код без обращения к листу при нажатии кнопки, сам по себе он срабатывает за доли миллисекунды:

Dim i&, v()

Private Sub UserForm_Initialize()
With Sheets("List")
    v = .Range("F1", .Cells(.Rows.Count, "F").End(xlUp)).Value
End With
i = 2
TextBox1 = v(i, 1)
End Sub

Private Sub CommandButton1_Click()
If i < UBound(v) Then i = i + 1 Else i = 2
TextBox1 = v(i, 1)
End Sub

А вообще тут напрашивается ListBox вместо TextBox.

[Mjaso]

Сообщение от Казанский

> правда работает медленно
Это сама форма тормозит! Попробуйте код без обращения к листу при нажатии кнопки, сам по себе он срабатывает за доли миллисекунды:

Dim i&, v()

Private Sub UserForm_Initialize()
With Sheets("List")
    v = .Range("F1", .Cells(.Rows.Count, "F").End(xlUp)).Value
End With
i = 2
TextBox1 = v(i, 1)
End Sub

Private Sub CommandButton1_Click()
If i < UBound(v) Then i = i + 1 Else i = 2
TextBox1 = v(i, 1)
End Sub

А вообще тут напрашивается ListBox вместо TextBox.

Не, всё равно тормозит, и без обращения к листу. Может версия моя Offisa 2010 подводит ? Больше в Excel ничего не открыто. А ListBox мне нельзя, место много занимает и длинный, на моей реальной Форме у меня место только для одной полоски с текстом.
Может всё-же есть какое нибудь "заклинание", чтобы при повторном открывании Формы отсчёт продолжался ?

[Казанский]

> А ListBox мне нельзя, место много занимает и длинный
Кто мешает сделать его размером с текстбокс? Пробуйте, прокручивается штатными кнопочками или кнопками вверх/вниз, мгновенно. И кстати отдельная кнопка на форме не нужна, место экономится

[Hugo121]

Попробуйте на коде Казанского при инициализации формы:

If i<2 then i = 2
TextBox1 = v(i, 1)

Но переменную нужно сделать публичной.

Алексей, а где код?

[RAN.]

Тормозят не коды, а обработка нажатия кнопки. Попробуйте для сравнения нажимать не мышом, а клавишей Enter.

[Mjaso]

Сообщение от Hugo121

Попробуйте на коде Казанского при инициализации формы:

If i<2 then i = 2
TextBox1 = v(i, 1)

Но переменную нужно сделать публичной.

Алексей, а где код?

Огромное спасибо ! Всё работает, при перезапуске всё как надо.
Есть только одна маленькая просьба/вопрос. Как сделать так, чтобы когда он выдаст последнее значение столбца - при последующем нажатии CommandButton макрос выдавал MsgBox "В начало !" ? Сам пытался этот MsgBox как то присобачить, да знаний маловато.