Работа с ListBox - Microsoft Office Excel

maxim1690 · 09.02.2010, 16:21

Здраствуйте, у меня проблемма, не могу сделать выбор следующего характера, на форме1 находяться 2 элемента ListBox. Выбрав определенные и нажав далее должно происходить считывание с Листов книги Excel. Помагите пожалуйсто с кодом.

doober · 09.02.2010, 18:08

PS.За такую работу преподаватель поставит -1.
Из-за огромного наличия грамматических ошибок и смотреть не хочется .
Во вложении пример использования листбокса для вашей задумки.

По вашему тесту более 0 не смог получить,наверное надо еще поучиться.

maxim1690 · 09.02.2010, 20:41

doober Спасибо большое! Работа еще далеко не закончена

Но все же это немного не то, нужно что бы при выборе считывание происходило с отдельного листа. Например если выбран а-1 то с листа 3, если в-2 то с листа 4...

doober · 09.02.2010, 22:23

Теперь я понял почему 0 получил

Вас такой код не пугает.

Код:

m = Лист2.Cells(1, 1)
r = m.Cells(1, 1) + 1
 OptionButton1.Caption = m.Cells(r + 1, 2)
 OptionButton2.Caption = m.Cells(r + 1, 3)
 OptionButton3.Caption = m.Cells(r + 1, 4)
 OptionButton4.Caption = m.Cells(r + 1, 5)

Этот тест Вы для каких целей делаете?
можно с чистой совестью 3\4 выкинуть .и сделать нормальный проект

maxim1690 · 09.02.2010, 23:13

это была последния мысль, при том же она не работала... Должно быть так:
Private Sub CommandButton1_Click()
r = Лист3.Cells(1, 1)
r = Лист3.Cells(1, 1) + 1
OptionButton1.Caption = Лист3.Cells(r + 1, 2)
OptionButton2.Caption = Лист3.Cells(r + 1, 3)
OptionButton3.Caption = Лист3.Cells(r + 1, 4)
OptionButton4.Caption = Лист3.Cells(r + 1, 5)
P.S.
Тест как дипломная работа в колледж.

maxim1690 · 09.02.2010, 23:20

Если Вас не затруднит, может подскажете как сделать нормальный проэкт и что именно надо выкинуть?

doober · 10.02.2010, 00:25

Вам саму идеологию проекта поменять надо,методы решения поставленной задачи.За WMR могу сделать.Надумаете в личку,или Асю

maxim1690 · 10.02.2010, 01:01

Спасибо за предложени, но делать все буду сам, иначе ни чему не научусь...

09.02.2010, 20:41	#3
maxim1690 Регистрация: 09.02.2010 Сообщений: 6	doober Спасибо большое! Работа еще далеко не закончена Но все же это немного не то, нужно что бы при выборе считывание происходило с отдельного листа. Например если выбран а-1 то с листа 3, если в-2 то с листа 4... Последний раз редактировалось maxim1690; 09.02.2010 в 21:35.

09.02.2010, 22:23	#4
doober Старожил Регистрация: 02.05.2009 Сообщений: 3,907	Теперь я понял почему 0 получил Вас такой код не пугает. Код: `m = Лист2.Cells(1, 1) r = m.Cells(1, 1) + 1 OptionButton1.Caption = m.Cells(r + 1, 2) OptionButton2.Caption = m.Cells(r + 1, 3) OptionButton3.Caption = m.Cells(r + 1, 4) OptionButton4.Caption = m.Cells(r + 1, 5)` Этот тест Вы для каких целей делаете? можно с чистой совестью 3\4 выкинуть .и сделать нормальный проект Анализ,обработка данных Недорого

10.02.2010, 00:25	#7
doober Старожил Регистрация: 02.05.2009 Сообщений: 3,907	Вам саму идеологию проекта поменять надо,методы решения поставленной задачи.За WMR могу сделать.Надумаете в личку,или Асю Анализ,обработка данных Недорого

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Работа с listbox в visual c++	Aleksaaa	Общие вопросы C/C++	0	09.07.2009 11:57
Работа с ListBox	xLoMMx	Общие вопросы C/C++	4	22.06.2009 18:34
работа с Combobox и Listbox	TSilver	Общие вопросы Delphi	7	18.06.2009 18:48
Работа с ListBox	xakkkkker	Общие вопросы Delphi	1	17.05.2008 23:09
Работа с ListBox.	CyberOrcX	Компоненты Delphi	2	13.05.2008 18:41

09.02.2010, 23:13	#5
maxim1690 Регистрация: 09.02.2010 Сообщений: 6	это была последния мысль, при том же она не работала... Должно быть так: Private Sub CommandButton1_Click() r = Лист3.Cells(1, 1) r = Лист3.Cells(1, 1) + 1 OptionButton1.Caption = Лист3.Cells(r + 1, 2) OptionButton2.Caption = Лист3.Cells(r + 1, 3) OptionButton3.Caption = Лист3.Cells(r + 1, 4) OptionButton4.Caption = Лист3.Cells(r + 1, 5) P.S. Тест как дипломная работа в колледж.

09.02.2010, 23:20	#6
maxim1690 Регистрация: 09.02.2010 Сообщений: 6	Если Вас не затруднит, может подскажете как сделать нормальный проэкт и что именно надо выкинуть?

10.02.2010, 01:01	#8
maxim1690 Регистрация: 09.02.2010 Сообщений: 6	Спасибо за предложени, но делать все буду сам, иначе ни чему не научусь...