Форум программистов
 
Регистрация на форуме тут, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме 15-35 тыс рублей в месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.08.2009, 11:16   #1
nikolai_P
Форумчанин Подтвердите свой е-майл
 
Регистрация: 28.04.2008
Сообщений: 116
Сообщение Построчное добавление в ListBox

Добрый день!
Есть массив данных из 4 столбцов:
-станция отпр (столбец 5 листа (sh))
-Отправитель (ст.7)
-станция пол (ст.13)
-Получатель (ст.14)
Задача: добавить уникальные значения в ListBox после применения фильтра по столбцу 1 или 3 (выбрана одна станция).

Пробовал использовать динамический массив, увеличивая количество строк в нем и внося в последнюю добавляемое значение, но ничего не вышло. Может можно как-то построчно добавлять данные в ListBox?
Код:
On Error Goto Ne
CurSt = "Огарево"
j=0
    For i = 2 To R ' R - количество строк на листе sh
          If sh.Cells(i, 5) = CurSt Then
                coll.Add CurSt & sh.Cells(i, 7) & sh.Cells(i, 13) & sh.Cells(i, 14), _
                CurSt & sh.Cells(i, 7) & sh.Cells(i, 13) & sh.Cells(i, 14)
                Redim ListAr(0 To j, 0 to 3)
                ListAr(0, 1) sh.Cells(i, 5)
                ListAr(0, 1) = sh.Cells(i, 7)
                ListAr(0, 2) = sh.Cells(i, 13)
                ListAr(0, 3) = sh.Cells(i, 14)
                j = j + 1
            End If
Ne:
    Next
ListBox.List = ListAr
nikolai_P вне форума Ответить с цитированием
Ответ
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Listbox добавление путей из проводника! Anfall Общие вопросы Delphi 7 22.12.2009 21:20
Построчное выравнивание <ul><li> Abramovich HTML и CSS 11 14.04.2009 11:39
Построчное чтение из файла Mihalich1988 Общие вопросы C/C++ 5 17.12.2008 02:10
Помогите организовать добавление в memo или listbox... Arkuz Компоненты Delphi 6 25.04.2008 17:16
Построчное форматирование в RichEdit Andr Компоненты Delphi 2 07.09.2007 07:24

Реклама для незарегистрированных, регистрация на форуме