![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#11 |
Форумчанин
Регистрация: 07.03.2010
Сообщений: 796
|
![]()
ListBox1.RowSource = ""
Логика?!.... она где то рядом... E_mail: dg_rusak@mail.ru Если спасибо мало: Яндекс . Деньги - 41001731366021 WM R269866874234
|
![]() |
![]() |
![]() |
#12 |
Пользователь
Регистрация: 04.05.2011
Сообщений: 36
|
![]()
если лист бокс заполнять так(при этом включен 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 шапка становится пустой. как изменить листбокс так чтобы шапка осталась заполненой |
![]() |
![]() |
![]() |
#13 |
Пользователь
Регистрация: 04.05.2011
Сообщений: 36
|
![]()
и такаяже проблема с удалением
|
![]() |
![]() |
![]() |
#14 |
Форумчанин
Регистрация: 07.03.2010
Сообщений: 796
|
![]()
лучше нарисуйте пару label с нужным текстов вместо шапки, и не мучайтесь, listbox не самый удачный контрол для этих целей.
Логика?!.... она где то рядом... E_mail: dg_rusak@mail.ru Если спасибо мало: Яндекс . Деньги - 41001731366021 WM R269866874234
|
![]() |
![]() |
![]() |
#15 |
Пользователь
Регистрация: 04.05.2011
Сообщений: 36
|
![]()
там проблема лист бокс большой . 8 столбцов. они широкие в идеале и на маленьких мониках не влазят приходится делать так
|
![]() |
![]() |
![]() |
#16 | |
Форумчанин
Регистрация: 07.03.2010
Сообщений: 796
|
![]() Цитата:
http://www.planetaexcel.ru/forum.php?thread_id=23654
Логика?!.... она где то рядом... E_mail: dg_rusak@mail.ru Если спасибо мало: Яндекс . Деньги - 41001731366021 WM R269866874234
|
|
![]() |
![]() |
![]() |
#17 |
Пользователь
Регистрация: 04.05.2011
Сообщений: 36
|
![]()
я ничего не понял что там написано и как это запихнуть в моё....
|
![]() |
![]() |
![]() |
#18 |
Форумчанин
Регистрация: 07.03.2010
Сообщений: 796
|
![]()
А я без примера туго соображаю , что собственно надо.
пример, это именно файл .xls с самой проблемой и ее описанием, либо с тем что есть, и что надо получить. Дмитрий. ___________ да забыл сказать, по двойному клику , как то неправильно очищать листбокс, а если Вы ему rowsourse переназначаете или массив данных вносите через ListBox1.List = a, то это вообще лишнее
Логика?!.... она где то рядом... E_mail: dg_rusak@mail.ru Если спасибо мало: Яндекс . Деньги - 41001731366021 WM R269866874234
Последний раз редактировалось R Dmitry; 26.05.2011 в 00:23. |
![]() |
![]() |
![]() |
#19 |
Пользователь
Регистрация: 04.05.2011
Сообщений: 36
|
![]()
всё разобрался) проблема была в инициализации
|
![]() |
![]() |
![]() |
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Проблема с изменением, удалением формы/отчета | XEfri | Microsoft Office Access | 0 | 21.12.2010 12:00 |
Проблема с изменением hosts | _-Re@l-_ | Безопасность, Шифрование | 6 | 19.11.2010 21:20 |
Проблема с изменением буквы лок. диска | mibbim | Операционные системы общие вопросы | 1 | 20.07.2010 15:38 |
Проблема с изменением значений в динамической структуре | whatever | Помощь студентам | 13 | 29.06.2010 12:26 |
Проблема с изменением ориентации страницы в отчете | madmech | Общие вопросы Delphi | 0 | 22.05.2009 20:04 |