|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
12.05.2009, 12:30 | #1 |
Пользователь
Регистрация: 12.05.2009
Сообщений: 18
|
ComboBox как сделать чтобы список в нем формировался с другой страницы?
у меня есть 2 листа: штатное расписание( на нем отражены должности) и физические лица. На листе физические лица находится форма на ней ComboBox1. Нужно сделать так,чтобы он формировался из столбца А листа штатное расписание.
я пробовала так: Private Sub ComboBox1_Change() i = 2 Do While Sheets("Штатное расписание").Cells(i, 1) = ComboBox1.Value i = i + 1 Loop End Sub End Sub почему то ничего не выходит (((((( помогите пожалуйста !!! |
12.05.2009, 12:41 | #2 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
В модуль листа "физические лица", на котором расположен ComboBox1, вставьте код:
Код:
Чем шире угол зрения, тем он тупее.
|
12.05.2009, 12:46 | #3 |
Пользователь
Регистрация: 12.05.2009
Сообщений: 18
|
Вот что теперь получается:
Run-time error '424': Object required |
12.05.2009, 12:55 | #4 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Посмотрите пример во вложении.
Чем шире угол зрения, тем он тупее.
|
12.05.2009, 13:34 | #5 |
Пользователь
Регистрация: 12.05.2009
Сообщений: 18
|
спасибо большое за пример разобралась
|
12.05.2009, 14:34 | #6 |
Пользователь
Регистрация: 12.05.2009
Сообщений: 18
|
еще один вопросик по поводу ComboBox...
на форме UserForm1 у меня ComboBox1 и ComboBox2( которые формируется как описано выше) мне нужно поместить информацию на лист Физические лица при нажатии на кнопку CommandButton1.. делаю это следующим образом и почему-то не получается: Private Sub CommandButton1_Click() If ComboBox1.Text <> "" And ComboBox2.Text <> "" Then i = 2 Do While Cells(i, 1) <> "" i = i + 1 Loop Cells(i, 2) = ComboBox1.Value Cells(i, 3) = ComboBox2.Value Else: MsgBox ("Заполните все поля!") End If End Sub |
12.05.2009, 15:00 | #7 |
Форумчанин Подтвердите свой е-майл
Регистрация: 28.04.2008
Сообщений: 116
|
Проблема в том, что Ты не указываешь на какой лист вставлять данные, а пишешь просто "вставить в ячейку" - "Cells(i, 2) = ComboBox1.Value" по этой причине возникает ошибка)
Код нахождения последней ячейки: Код:
Вставить данные на лист, в твоем случае можно так: Код:
|
12.05.2009, 15:04 | #8 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
Попробуйте так:
Код:
Код:
|
12.05.2009, 15:12 | #9 |
Пользователь
Регистрация: 12.05.2009
Сообщений: 18
|
учусь совсем не на техническом факультете, а нам задают ргр такого рода и ничего не объясняют...так что приходится изучать vba самостоятельно..не очень успешно получается
|
12.05.2009, 16:49 | #10 |
Пользователь
Регистрация: 12.05.2009
Сообщений: 18
|
когда вставляю код для записи в таблицу ComboBox перестают работать посмотрите пожалуста ...
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как в Combobox убрать список? | Alexi | Компоненты Delphi | 10 | 04.01.2011 08:25 |
открываю документ. ввожу дату и другие данные, как сделать чтобы на другой странице велась статистика по | Аленка | Microsoft Office Excel | 5 | 12.02.2008 17:36 |
Как сделать разрыв страницы печати по условию и узнать номер страницы | Leanna | Microsoft Office Excel | 2 | 21.01.2008 06:59 |
Как сделать, чтобы один элемент списка в ComboBox писался в несколько строк? | Andr | Общие вопросы Delphi | 5 | 15.08.2007 22:24 |