|
|
|
Forum Member
 
участник
Last Login: 18.07.2008 10:49
Сообщ.: 39,
Visits: 322
|
|
| В форме необходимо создать список (ListBox). Элементы списка - строки в файле Excel-я. В каждой строке 13 столбцов. Строк разное количество в разных файлах (но это не важно). Вопрос в том как создать список чтобы, который будет выглядеть как таблица, т.е. заголовки столбцов - а под ними строки? не могу нигде описание сего процесса найти...... Очень нада... Спасибо заранее...
|
|
|
|
|
Supreme Being
непров.участник
Last Login: 08.07.2008 15:52
Сообщ.: 1 131,
Visits: 8 867
|
|
| Tigerskin V pervoj stroke lista razmesti zagolovki stolbcov. Dannie vvedi v pervie 13 colonok lista. Postav' na list ListBox. Dlya nego ustanovi: ColumnHeads=True, ColumnCount=13, ListFillRange=A2:M11 (t.e. 10 strok s dannimi) vladconn
|
|
|
|
|
Forum Member
участник
Last Login: 18.07.2008 10:49
Сообщ.: 39,
Visits: 322
|
|
| Огромное спасибо! Супер! Но как всегда у всех своё :))) Поэтому можно еще два вопросика по этой теме? 1. Все сделал, работает, но вверху списка есть табличка для заголовков (квадратики с границами), но самих заголовков нет? Чего-то не хватает? 2. Нельзя ли такие же границы как в заголовке списка сделать по всему списку?
|
|
|
|
|
Supreme Being
участник
Last Login: 04.05.2008 10:18
Сообщ.: 280,
Visits: 3 701
|
|
добавить свойство
ListBox1.ColumnHeads=True
и ListFillRange=A1:M11
То, что в первой строке листа Ёкселя, ляжет в заголовок ListBox
С уважением,Лодянов
|
|
|
|
|
Forum Member
участник
Last Login: 18.07.2008 10:49
Сообщ.: 39,
Visits: 322
|
|
| Дык у меня с этим ListFillRange=A1:M11 и возникают проблемы..... Кусок кода вот (таблица у меня не с первой строки, а с восьмой, заголовки в седьмой,). Но место под заголовки есть в листбоксе и расчерчено, а самого текста нет..... ListBox1.ColumnHeads = True
ListBox1.ColumnCount = 13
ListBox1.List = Range(Cells(8, 1), Cells(s, 13)).Value А ListFillRange я не знаю как использовать - ругается и не хочет работать :(
|
|
|
|
|
Supreme Being
участник
Last Login: 19.08.2008 15:27
Сообщ.: 112,
Visits: 681
|
|
| Бегло проглядел - у меня сейчас со временем очен трудно. Я бы эту задучу решал так: 1. Методом SpecialCells определил бы прямоугольную область с данными, Если на листе еще кроме области что-то есть то можно по cells.count возвращаемого SpecialCells определитьь какая область наша. 2. Использовал бы SysListView32 - он прикольнее чем обычный Листвиев.
|
|
|
|
|
Supreme Being
участник
Last Login: 21.03.2008 5:12
Сообщ.: 386,
Visits: 4 197
|
|
| http://www.relib.com/forums/Topic724409-11-1.aspx
|
|
|
|
|
Forum Member
участник
Last Login: 18.07.2008 10:49
Сообщ.: 39,
Visits: 322
|
|
| Не... не помогло..... Не могу понять как через RowSource заполнить список..... вот так: ListBox1.RowSource = Range(Cells(8, 1), Cells(s, 13)).Value не получается, а как надо не знаю.... и единого мнения я так понимаю нет..... Пустые заголвки есть, неужели нельзя заполнить их нужными данными?
|
|
|
|
|
| |