Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Вызов окна со списком - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вызов окна со списком
Вызов окна со списком
Артур Дата: Понедельник, 14.03.2016, 09:06 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Ребят подскажите пожалуйста как реализовать вызов окна типа InputBox со спиком, чтоб можно было выбрать значение из списка.
 
Ответить
СообщениеРебят подскажите пожалуйста как реализовать вызов окна типа InputBox со спиком, чтоб можно было выбрать значение из списка.

Автор - Артур
Дата добавления - 14.03.2016 в 09:06
Pelena Дата: Понедельник, 14.03.2016, 09:25 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 9842
Репутация: 2252 ±
Замечаний: 0% ±

Excel 2010 & Mac Excel 2011
Посмотрите здесь
http://www.excelworld.ru/board....-1-0-57


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеПосмотрите здесь
http://www.excelworld.ru/board....-1-0-57

Автор - Pelena
Дата добавления - 14.03.2016 в 09:25
Артур Дата: Среда, 16.03.2016, 07:32 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Я скорее всего не првильно выразился. Допустим пользователь вводит в окно ФИО, надо что б он мог выбрать из списка, т.е вышло окно и там был список)) это возможно?

[vba]
Код
Private Sub CommandButton1_Click()
Dim NextRow As Long
Dim Entryl As String, Entry2 As String, Entry3 As String, Entry4 As String, Entry5 As String, Entry6 As String
Dim Entry7 As String, Entry8 As String, Entry9 As String, Entry10 As String, Entry11 As String

Do
NextRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
Entryl = InputBox("Вводим номер заказа")
If Entryl = "" Then Exit Sub
Entry2 = InputBox("Вводим дату")
If Entry2 = "" Then Exit Sub
Entry3 = InputBox("Вводим причину вызова исполнителя")
If Entry3 = "" Then Exit Sub
Entry4 = InputBox("Вводим дату проведения работ")
If Entry4 = "" Then Exit Sub
Entry5 = InputBox("Вводим количетсво сотрудников исполнителя")
If Entry5 = "" Then Exit Sub
Entry6 = InputBox("Вводим должность")
If Entry6 = "" Then Exit Sub
Entry7 = InputBox("Вводим ФИО")
If Entry7 = "" Then Exit Sub
Entry8 = InputBox("Вводим дату ваыхода сотрудника/ время работы")
If Entry8 = "" Then Exit Sub
Entry9 = InputBox("Вводим количество часов")
If Entry9 = "" Then Exit Sub
Entry10 = InputBox("Вводим дату")
If Entry10 = "" Then Exit Sub
Entry11 = InputBox("Выплненные работы")
If Entry11 = "" Then Exit Sub
Cells(NextRow, 1) = Entryl
Cells(NextRow, 2) = Entry2
Cells(NextRow, 3) = Entry3
Cells(NextRow, 4) = Entry4
Cells(NextRow, 5) = Entry5
Cells(NextRow, 6) = Entry6
Cells(NextRow, 7) = Entry7
Cells(NextRow, 8) = Entry8
Cells(NextRow, 9) = Entry9
Cells(NextRow, 10) = Entry10
Cells(NextRow, 11) = Entry11
Loop

End Sub
[/vba]
[moder]Оформляйте коды тегами - кнопка #. Поправил Вам.


Сообщение отредактировал _Boroda_ - Среда, 16.03.2016, 07:37
 
Ответить
СообщениеЯ скорее всего не првильно выразился. Допустим пользователь вводит в окно ФИО, надо что б он мог выбрать из списка, т.е вышло окно и там был список)) это возможно?

[vba]
Код
Private Sub CommandButton1_Click()
Dim NextRow As Long
Dim Entryl As String, Entry2 As String, Entry3 As String, Entry4 As String, Entry5 As String, Entry6 As String
Dim Entry7 As String, Entry8 As String, Entry9 As String, Entry10 As String, Entry11 As String

Do
NextRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
Entryl = InputBox("Вводим номер заказа")
If Entryl = "" Then Exit Sub
Entry2 = InputBox("Вводим дату")
If Entry2 = "" Then Exit Sub
Entry3 = InputBox("Вводим причину вызова исполнителя")
If Entry3 = "" Then Exit Sub
Entry4 = InputBox("Вводим дату проведения работ")
If Entry4 = "" Then Exit Sub
Entry5 = InputBox("Вводим количетсво сотрудников исполнителя")
If Entry5 = "" Then Exit Sub
Entry6 = InputBox("Вводим должность")
If Entry6 = "" Then Exit Sub
Entry7 = InputBox("Вводим ФИО")
If Entry7 = "" Then Exit Sub
Entry8 = InputBox("Вводим дату ваыхода сотрудника/ время работы")
If Entry8 = "" Then Exit Sub
Entry9 = InputBox("Вводим количество часов")
If Entry9 = "" Then Exit Sub
Entry10 = InputBox("Вводим дату")
If Entry10 = "" Then Exit Sub
Entry11 = InputBox("Выплненные работы")
If Entry11 = "" Then Exit Sub
Cells(NextRow, 1) = Entryl
Cells(NextRow, 2) = Entry2
Cells(NextRow, 3) = Entry3
Cells(NextRow, 4) = Entry4
Cells(NextRow, 5) = Entry5
Cells(NextRow, 6) = Entry6
Cells(NextRow, 7) = Entry7
Cells(NextRow, 8) = Entry8
Cells(NextRow, 9) = Entry9
Cells(NextRow, 10) = Entry10
Cells(NextRow, 11) = Entry11
Loop

End Sub
[/vba]
[moder]Оформляйте коды тегами - кнопка #. Поправил Вам.

Автор - Артур
Дата добавления - 16.03.2016 в 07:32
китин Дата: Среда, 16.03.2016, 07:35 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3413
Репутация: 543 ±
Замечаний: 0% ±

Excel 2007;Excel 2010
Поиск значений в базе данных по первым буквам при вводе на листе (как в 1С)
[p.s.]тэги использйте плз.совершенно нечитаемо (кнопочка #)


Не судите строго:я пытаюсь научиться
ЯД 41001877306852/WM R249698041931; Z239672726538


Сообщение отредактировал китин - Среда, 16.03.2016, 07:36
 
Ответить
СообщениеПоиск значений в базе данных по первым буквам при вводе на листе (как в 1С)
[p.s.]тэги использйте плз.совершенно нечитаемо (кнопочка #)

Автор - китин
Дата добавления - 16.03.2016 в 07:35
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вызов окна со списком
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!