Почему не работает...хм....понять не могу!

[Артур Иваныч]

Имеется ЛистБокс под именем StatBox1
ниже код, который не хочет работать

Private Sub StatBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    On Error Resume Next
    If coll < 0 Then Exit Sub
    Dim Строка As String: Строка = StatBox1.List(StatBox1.ListIndex, coll)
    НоваяСтрока = InputBox("Изменение записи", "Редактирование данных", Строка)
    If Len(НоваяСтрока) Then StatBox1.List(StatBox1.ListIndex, coll) = НоваяСтрока
End Sub

Private Sub StatBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
    cw = Split(Replace(Me.StatBox1.ColumnWidths, " pt", ""), ";"): s = 0: coll = -1
    For i = LBound(cw) To UBound(cw)
        s = s + Val(cw(i)): If x < s Then coll = i: Exit For
    Next
End Sub

в чём проблема в коде?

[EducatedFool]

Чтобы проверить код, нужен файл Excel с формой.

Вы предлагаете нам создать этот файл самостоятельно, лишь чтобы проверить ваш макрос?

ниже код, который не хочет работать

Что, компьютер при запуске кода вам так и говорит человеческим голосом - "код не хочет работать"?

[Артур Иваныч]

StatBox1 - это листбокс
который содержит 4 столбца
и множество строк
при двойном нажатии на ЛЮБое значение в листбоксе далжно выводиться редактирование...
кстати это Ваш код!
я его решил перенести в другую форму...но чёт не пашет

[The_Prist]

Вы хотя бы уберите строку

On Error Resume Next

и посмотрите есть ли ошибка и если есть, то где именно. А по фразе "но чёт не пашет" непонятно, что у Вас там не пашет.

[Артур Иваныч]

вот оригинальный код:

Dim col As Double

Private Sub ListBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    On Error Resume Next: If col < 0 Then Exit Sub
    Dim Строка As String: Строка = ListBox2.List(ListBox2.ListIndex, col)
    НоваяСтрока = InputBox("Введите название этапа", "Редактирование строки листбокса", Строка)
    If Len(НоваяСтрока) Then ListBox2.List(ListBox2.ListIndex, col) = НоваяСтрока
End Sub

Private Sub ListBox2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    cw = Split(Replace(Me.ListBox2.ColumnWidths, " pt", ""), ";"): s = 0: col = -1
    For i = LBound(cw) To UBound(cw)
        s = s + Val(cw(i)): If X < s Then col = i: Exit For
    Next
End Sub

а вот файл тут выгружен:
http://www.programmersforum.ru/showt...t=70249&page=2


Тут всё отлично работает
но я этот код решил внедрить в другую книгу, в мою работу
а у меня не пашет...точнее сказать редактирует только первый столбец листбокса(((а остальные ннет

[EducatedFool]

Во-первых, Вы забыли про строку Dim coll As Long
Поставьте её первой строкой в модуле формы.

Во-вторых, назначьте вручную значения ширины столбцов.
Для этого в свойство ColumnWidths вашего листбокса StatBox1 впишите строку типа 55;60;40;200;135

Сразу после ввода эта строка преобразуется в что-то вроде этого: 55 pt;60 pt;40 pt;200 pt;135 pt
И макрос начнёт работать.

[Артур Иваныч]

Всё сделал
всё равно не работает
точнее работает только для первого столбца листбокса
а на остальные не хочет((

[EducatedFool]

Всё сделал
всё равно не работает

Ну так если Вы сами не можете это сделать, нафига устраивать все эти обсуждения?
Выложите свой файл - получите готовый код.

Я вот создал новый файл с формой и листбоксом, сделал листбокс 5-колоночным, произвёл указанные в предыдущем посте манипуляции, - и всё заработало.

[Артур Иваныч]

но у меня не работает
только по первому столбцу редактирует

[Артур Иваныч]

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

Ну так если Вы сами не можете это сделать, нафига устраивать все эти обсуждения?
Выложите свой файл - получите готовый код.

я имел в виду что всё сделал, то есть добавил Coll As Long, размерности указал!

вроде всё норм, но не пашет((