Перенос данных из ListBox в ячейку - Microsoft Office Excel

and150382 · 01.04.2013, 18:23

Уважаемые программисты!
Подскажите что нужно сделать чтобы при выборе нескольких значений в ListBox1, данные вставлялись в одну ячейку D80 листа "ТТН" . А при выборе нескольких значений в ListBox2 - вставлялись в BU20 листа "ТТН"

И почему форма начала работать только когда активен лист "План", а при переходе на лист "ТТН" ListBox-ы не работают.

and150382 · 01.04.2013, 20:16

Подскажите пожалуйста, всё остальное вроде работает,а без этого нет смысла всего сделанного.

doober · 01.04.2013, 22:33

Цитата:

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

Подскажите пожалуйста, всё остальное вроде работает,а без этого нет смысла всего сделанного.

А смысл есть плодить одну и ту же тему на разных форумах?
Надо как то определяться.
По коду
Напимер есть

Код:

    arr = Range(Cells(3, 3), Cells(Rows.Count, "G").End(xlUp)).Value

Должно быть

Код:

    arr = Sheets("План").Range(Sheets("План").Cells(3, 3), Sheets("План").Cells(Sheets("План").Rows.Count, "G").End(xlUp)).Value

and150382 · 02.04.2013, 09:47

Спасибо, помогли

and150382 · 02.04.2013, 10:47

Сделал как посоветовали.

01. For i = 0 To Me.lBox.ListCount - 1
02. If Me.lBox.Selected(i) Then ' если элемент выбран
03. sData = sData & " " & Me.lBox.List(i) ' в переменную
04. End If
05. Next i

Ничего не происходит. Переключил в свойствах на fmMultiSelecrMulti. И все равно не добавляется ни одно значение, ни несколько.
Как исправить подскажите?

doober · 02.04.2013, 11:09

Код:

lBox.ListStyle = fmListStyleOption

and150382 · 02.04.2013, 11:16

У меня в listbox1 выделяется несколько значений, только они не заносятся в ячейку

doober · 02.04.2013, 12:33

Вам бы букварики почитать,90% вопросов бы отпало

02.04.2013, 11:09	#6
doober Старожил Регистрация: 02.05.2009 Сообщений: 3,907	Код: `lBox.ListStyle = fmListStyleOption` Анализ,обработка данных Недорого

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Перенос текста в ListBox (Visual Basic 6)	bucho009	Помощь студентам	3	20.02.2014 20:44
Поиск одного из нескольких вариантов слов в заданной ячейке и перенос его вдругую ячейку	ТвойПервый	Microsoft Office Excel	19	06.03.2013 07:54
Перенос по словам в ListBox	nikolai_P	Microsoft Office Excel	2	25.01.2013 12:08
Перенос значений из ListBox в Memo через разделитель	artemavd	Общие вопросы Delphi	4	23.12.2011 17:00
[Вопрос]Перенос слов и предложений в ListBox	Человек_Борща	Общие вопросы Delphi	5	03.04.2010 15:22

01.04.2013, 20:16	#2
and150382 Форумчанин Регистрация: 19.10.2012 Сообщений: 217	Подскажите пожалуйста, всё остальное вроде работает,а без этого нет смысла всего сделанного.

02.04.2013, 09:47	#4
and150382 Форумчанин Регистрация: 19.10.2012 Сообщений: 217	Спасибо, помогли

02.04.2013, 10:47	#5
and150382 Форумчанин Регистрация: 19.10.2012 Сообщений: 217	Сделал как посоветовали. 01. For i = 0 To Me.lBox.ListCount - 1 02. If Me.lBox.Selected(i) Then ' если элемент выбран 03. sData = sData & " " & Me.lBox.List(i) ' в переменную 04. End If 05. Next i Ничего не происходит. Переключил в свойствах на fmMultiSelecrMulti. И все равно не добавляется ни одно значение, ни несколько. Как исправить подскажите?

02.04.2013, 11:16	#7
and150382 Форумчанин Регистрация: 19.10.2012 Сообщений: 217	У меня в listbox1 выделяется несколько значений, только они не заносятся в ячейку