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

[R Dmitry]

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

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

ListBox1.RowSource = ""

[MoHoMaXFR]

если лист бокс заполнять так(при этом включен columnheads=true)
Private Sub UserForm_Initialize()
ListBox1.ColumnWidths = "200;90;80;60;60;80;60;60;200" 'Çàäàíèå øèðèíû ñòîëáöîâ
i = Sheets("Ïðåïîäàâàòåëè").UsedRange.R ows.Count
ListBox1.RowSource = "A2:H" + Trim(Str(i))
end sub
шапка заполняется.

при этом если изменить лист бокс так
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.RowSource = "": ListBox1.List = a
With ListBox1
[A2].Resize(.ListCount, .ColumnCount) = .List
End With
End Sub

шапка становится пустой.

как изменить листбокс так чтобы шапка осталась заполненой

[MoHoMaXFR]

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

[R Dmitry]

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

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

лучше нарисуйте пару label с нужным текстов вместо шапки, и не мучайтесь, listbox не самый удачный контрол для этих целей.

[MoHoMaXFR]

там проблема лист бокс большой . 8 столбцов. они широкие в идеале и на маленьких мониках не влазят приходится делать так

[R Dmitry]

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

там проблема лист бокс большой . 8 столбцов. они широкие в идеале и на маленьких мониках не влазят приходится делать так

http://www.planetaexcel.ru/forum.php?thread_id=23654

[MoHoMaXFR]

я ничего не понял что там написано и как это запихнуть в моё....

[R Dmitry]

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

я ничего не понял что там написано и как это запихнуть в моё....

А я без примера туго соображаю , что собственно надо.
пример, это именно файл .xls с самой проблемой и ее описанием, либо с тем что есть, и что надо получить.

Дмитрий.


___________
да забыл сказать, по двойному клику , как то неправильно очищать листбокс, а если Вы ему rowsourse переназначаете или массив данных вносите через ListBox1.List = a, то это вообще лишнее

[MoHoMaXFR]

всё разобрался) проблема была в инициализации