Проблема с изменением listbox

[MoHoMaXFR]

Всем доброго времени суток =)
Проблема вот в чем : есть лист бокс в котором 5 столбцов . Необходимо чтобы при двоеном клике по какомуто из элементов списка он по очереди выводил окна сзапросом на изменение. тоесть ткнул два раза и по очереди вылезло 5 оконо с запросом изменения каждой ячеки в этой строке . если же просто нажать ок пропускал ячейку не тронув.

вот код. но он спрашивает только 1 раз и меняет первую ячейку


Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
With ListBox1
iSelIndex& = .ListIndex
If iSelIndex& > -1 Then
iText$ = InputBox("Введите новые данные", "ListBox1")
.List(iSelIndex&) = IIf(Len(iText$), iText$, .List(iSelIndex&))
End If
End With
End Sub

облазил гугл ничего путного не нашел , или набирал ен прально.

[MoHoMaXFR]

вот код , помогите кто знает

[SAS888]

Можно, например, так:

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Dim i As Integer, j As Integer, s As String, a()
    a = ListBox1.List: i = ListBox1.ListIndex
    For j = 0 To 4
        s = InputBox("Столбец " & j + 1, "Введите новые данные", a(i, j))
        a(i, j) = IIf(s = "", a(i, j), s)
    Next
    ListBox1.Clear: ListBox1.List = a
End Sub

[MoHoMaXFR]

Спасибо огромное всё работает выручил!

[MoHoMaXFR]

Тут мы изменяем значение в лист боксе а как теперь запихнуть его на лист ?

[R Dmitry]

With ListBox1
[a1].Resize(.ListCount, .ColumnCount) = .List
End With

[MoHoMaXFR]

а можно теперь мне как чайнику объяснить какая часть что выполняет?

[R Dmitry]

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

а можно теперь мне как чайнику объяснить какая часть что выполняет?

[a1] - верхняя левая ячейка куда вставлять данные
.ListCount - количество строк ListBox1
.ColumnCount - количество столбцов ListBox1
.Resize(.ListCount, .ColumnCount) - определяем диапазон куда вставляем данные.
От а1 выделяем на .ListCount вниз, на .ColumnCount вправо
.List - массив данных ListBox1

[MoHoMaXFR]

Кто может объяснить черный юмор) всё замечательно работало. сегодня запускаю программу тот же код он выдает unspecified error при изменении или удалении . Хотя код вообще не трогался этих юзерформов с ними связанными.

[MoHoMaXFR]

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

Кто может объяснить черный юмор) всё замечательно работало. сегодня запускаю программу тот же код он выдает unspecified error при изменении или удалении . Хотя код вообще не трогался этих юзерформов с ними связанными.

и в любом случае выделяет желтым listbox1.clear