| Вопрос: Вопрос про Элементы списка ListBox | Добавлено: 03.03.07 11:19 |
Автор вопроса:  Uksus | ICQ: 407373902 |
|
Вот есть у меня в коде 144 таких же строки
.Range("B3").Value = ListBox1.Items(0) каждая из них присваивает текст элемента в ячейку Эксэля Вопрос как сделать чтоб если строка элемента отсутствует то и её присваивание не присходило |
| Ответы | Всего ответов: 8 |
|
Номер ответа: 1 Автор ответа:  Arvitaly ICQ: 301746136 Вопросов: 28 Ответов: 549 |
Web-сайт: Профиль | | #1 | Добавлено: 03.03.07 14:23 |
| Опиши ситуацию поподробнее | ||
|
Номер ответа: 2 Автор ответа: Uksus ICQ: 407373902 Вопросов: 10 Ответов: 23 |
Профиль | | #2 | Добавлено: 03.03.07 17:55 |
Мне нужно сделать так чтоб если у меня в ЛистБоксе например 2 строки то прога текст из этих строк вводила в ячейки в Экселе А проблема в том что если у меня таких(Range("B3" .Value = ListBox1.Items(0)) строк 144, и после обработки первых двух прога выдает ошибку типа "Как это я тебе воткну текст в ячейку если у тебя всего 2 строки в ЛистБокс вписано а ты просиш у меня 144" Короче просто если нет строки то и вписывать значение не надо
|
||
|
Номер ответа: 3 Автор ответа: UksusICQ: 407373902 Вопросов: 10 Ответов: 23 |
Профиль | | #3 | Добавлено: 03.03.07 18:34 |
| У меня 140 таких же строк т.к мне нужно в 140 ячеек Экселя вставить текст из строк ЛистБокса Но если текста в строке нет то и программа не может вставить следовательно надо прописать в проге что если строка отсутствует то и текст не вставляется | ||
|
Номер ответа: 4 Автор ответа: ArvitalyICQ: 301746136 Вопросов: 28 Ответов: 549 |
Web-сайт: Профиль | | #4 | Добавлено: 04.03.07 12:04 |
|
Я так понимаю у тебя цикл типа
for i=1 to 144 range("B" & i).value=listbox1.item(i) next ???????? Попробуй использовать это for i=1 to 144 if i< List1.ListCount then if list1.item(i)<>"" then range("B" & i).value=listbox1.item(i) end if else exit sub end if next |
||
|
Номер ответа: 5 Автор ответа: UksusICQ: 407373902 Вопросов: 10 Ответов: 23 |
Профиль | | #5 | Добавлено: 06.03.07 16:42 |
|
СПАСИБ ЗА ОТВЕТ но не то....
Короче говоря по тому пути по которому я пошел не получается... Мне нужно сделать так чтоб пользователь вводя любое количество(от 1 до 72) строк в лист бокс получал их в экселе Причем чтоб текст каждой из введенных строк присваивался в определенное место (допустим текст 1-й стр. в ячейку B3 а второй в ячейку D3) и при этом уже в коде указать заранее текст какой строки к какой ячейке......... КАК ЭТО СДЕЛАТЬ? ПЕРЕРЫЛ ПОЛ ИНЕТА НИЧЁ НЕ НАШЕЛ ПАМАГИТЕ... |
||
|
Номер ответа: 6 Автор ответа: UksusICQ: 407373902 Вопросов: 10 Ответов: 23 |
Профиль | | #6 | Добавлено: 06.03.07 16:44 |
|
СПАСИБ ЗА ОТВЕТ но не то....
Короче говоря по тому пути по которому я пошел не получается... Мне нужно сделать так чтоб пользователь вводя любое количество(от 1 до 72) строк в лист бокс получал их в экселе Причем чтоб текст каждой из введенных строк присваивался в определенное место (допустим текст 1-й стр. в ячейку B3 а второй в ячейку D3) и при этом уже в коде указать заранее текст какой строки к какой ячейке......... КАК ЭТО СДЕЛАТЬ? ПЕРЕРЫЛ ПОЛ ИНЕТА НИЧЁ НЕ НАШЕЛ ПАМАГИТЕ... |
||
|
Номер ответа: 7 Автор ответа: ArvitalyICQ: 301746136 Вопросов: 28 Ответов: 549 |
Web-сайт: Профиль | | #7 | Добавлено: 06.03.07 17:09 |
|
используй массивы
Пример Dim range_list() range_list() = Array("A", "  ", "C","E"
for i=0 to N range(range_list(i) & "3" .value=list1.item(i)
next |
||
|
Номер ответа: 8 Автор ответа: UksusICQ: 407373902 Вопросов: 10 Ответов: 23 |
Профиль | | #8 | Добавлено: 06.03.07 19:09 |
| Спасиб кажись понял ща папробую | ||
Страница: 1 |