Заполнение ComboBox с листа - Microsoft Office Excel

Арианна · 09.01.2014, 01:11

Здравствуйте. У меня есть такое задание:
Значения ComboBox и ListBox должны формироватья из определенных мест дополнительного листа в момент открытия формы. Причем списки для них должны иметь возможность дополняться(при заполнении программно считать окончание при встрече пустой ячейки)

Знаю, что должно осуществляться через цикл, но так ничего и не получается. Код, который смогла написать:

Код:

For Each j In Sheets("Лист2").Range("A1:A32767")
ComboBox1.RowSource = Worksheets.Range.Cells(j, 1)
If Worksheets.Range.Cells(j, 1).Cartion = " " Then
[End for]
End If
Next j

Надеюсь на вашу помощь

IgorGO · 09.01.2014, 01:32

может так:

Код:

ComboBox1.ListFillRange = Cells(1, 1).Resize(Cells(1, 1).End(xlDown).Row, 1).Address

Арианна · 09.01.2014, 01:47

У-у, не вариант... В VBA у меня нет такой функции. Вроде с 10-м экселем идет 6-ая версия и там как-то по-другому

IgorGO · 09.01.2014, 01:57

ладно, а так:

Код:

ComboBox1.RowSource = Cells(1, 1).Resize(Cells(1, 1).End(xlDown).Row, 1).Address

(будем перебирать варианты до полного удовлетвлорения)

Арианна · 09.01.2014, 02:12

Вроде работает, но не хочет брать данные со второго листа

kalbasiatka · 09.01.2014, 09:27

Всё о том же, вид сбоку:

09.01.2014, 01:11	#1
Арианна Пользователь Регистрация: 11.03.2012 Сообщений: 25	Заполнение ComboBox с листа Здравствуйте. У меня есть такое задание: Значения ComboBox и ListBox должны формироватья из определенных мест дополнительного листа в момент открытия формы. Причем списки для них должны иметь возможность дополняться(при заполнении программно считать окончание при встрече пустой ячейки) Знаю, что должно осуществляться через цикл, но так ничего и не получается. Код, который смогла написать: Код: `For Each j In Sheets("Лист2").Range("A1:A32767") ComboBox1.RowSource = Worksheets.Range.Cells(j, 1) If Worksheets.Range.Cells(j, 1).Cartion = " " Then [End for] End If Next j` Надеюсь на вашу помощь

09.01.2014, 01:32	#2
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	может так: Код: `ComboBox1.ListFillRange = Cells(1, 1).Resize(Cells(1, 1).End(xlDown).Row, 1).Address` Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

09.01.2014, 01:57	#4
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	ладно, а так: Код: `ComboBox1.RowSource = Cells(1, 1).Resize(Cells(1, 1).End(xlDown).Row, 1).Address` (будем перебирать варианты до полного удовлетвлорения) Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Заполнение листа из шаблона	YaFakir	Microsoft Office Excel	5	16.09.2013 11:42
Заполнение свободных верхних строк листа.	Вадим12091965	Microsoft Office Excel	6	28.10.2012 11:16
заполнение combobox с другого листа	caught.let	Microsoft Office Excel	3	14.03.2012 21:06
Заполнение массива из ячеек рабочего листа	ofenod	Microsoft Office Excel	2	29.04.2011 01:33
Автоматическое заполнение данных из другого листа	usgaz@list.ru	Microsoft Office Excel	8	17.10.2008 10:41

09.01.2014, 01:47	#3
Арианна Пользователь Регистрация: 11.03.2012 Сообщений: 25	У-у, не вариант... В VBA у меня нет такой функции. Вроде с 10-м экселем идет 6-ая версия и там как-то по-другому

09.01.2014, 02:12	#5
Арианна Пользователь Регистрация: 11.03.2012 Сообщений: 25	Вроде работает, но не хочет брать данные со второго листа