Форма просмотра и редактр. таблицы VBA

[Veha]

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

А SpinButton1 не устраивает?

Я же писал я не разбираюсь в Basic, что такое SpinButton1?

[alex77755]

Рядом с текстбоксом фиговина со стрелочками.
Пощёлкай по ним

[Veha]

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

Рядом с текстбоксом фиговина со стрелочками.
Пощёлкай по ним

Я не пойму вас причом тут spinbutton?

[Veha]

Ну хорошо есть блок кода:
Я так понял вызивает форму при нажатии на ячейку в таблице:

Private Sub UserForm_Initialize()
On Error Resume Next

Dim R
 R = Split(ActiveCell.Address, "$")(1)
 R_cou = Sheets("Èñòî÷íèê").Range(R & Sheets("Èñòî÷íèê").Rows.Count).End(xlUp).Row
 
 ListBox1.Clear


GetHwnd Me
ListBox1.List = Sheets("Èñòî÷íèê").Range(R & "1:" & R & R_cou).Value
End Sub

что изменить, чтобы в ListBox1 поместились данные не текущей ячейки, а текущая ячейка+1 (тоесть следущей)???

[alex77755]

Да уж..
А если не написано

в форме были кнопки “следующая запись” , “предыдущая запись

, то никто не догадается нажать стрелочку вниз или вверх для перехода по записям

[nerv]

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

Читайте пожалуйста внимательно

И Вы это говорите модератору?) Это раз. А два, зачем брались если "Вы программист php"?

[Veha]

Мне бы понять значение етих строчек:

R = Split(ActiveCell.Address, "$")(1)
 R_cou = Sheets("Èñòî÷íèê").Range(R & Sheets("Èñòî÷íèê").Rows.Count).End(xlUp).Row

[Veha]

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

И Вы это говорите модератору?) Это раз. А два, зачем брались если "Вы программист php"?

Знаете - помогите.
Не знаете - не нужно задавать лишних вопросев не по теме.

[nerv]

\0123456789

[Djeki]

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

Мне бы понять значение етих строчек:

R = Split(ActiveCell.Address, "$")(1)
 R_cou = Sheets("Èñòî÷íèê").Range(R & Sheets("Èñòî÷íèê").Rows.Count).End(xlUp).Row

Всё очень просто - ставите курсор на интересующую Вас функцию и нажимаете F1..