При выборе значения из выпадающего списка подстановка другого

OKir

Гость

02.03.2011 09:11:40

Есть список значений (кодов бюджета) совершенно не запоминающиеся и не информативные, к ним есть названия. Подскажите плиз, можно ли сделать выпадающий список для ячеек в котором будет отображаться название, а при выборе нужного названия проставлять в эту же ячейку соответствующий названию код. Ехсцель 2010

Прикрепленные файлы

post_204837.xls (25 КБ)

Rdg2004 Пользователь Сообщений: 335 Регистрация: 01.01.1970	#2 02.03.2011 09:20:19 может через if? ну если value = тому то то подставлять то то? ну на словах так

k61 Пользователь Сообщений: 2443 Регистрация: 21.12.2012	#3 02.03.2011 09:35:28 через индекс выбранного значения в выпадающем списке.

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	#4 02.03.2011 09:56:25 Пример с элементом управления. Элемент можно разместить над ячейкой, можно отображать в нем только наименование и т.д. Играйтесь.

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	#5 02.03.2011 09:59:21 Панель "Элементы управления", войти в Режим_конструктора, Свойства, выделить элемент и поиздеваться над ним :) Прикрепленные файлы post_204863.xls (33 КБ)

k61 Пользователь Сообщений: 2443 Регистрация: 21.12.2012	#6 02.03.2011 10:16:26 довести до ума несложно. Прикрепленные файлы post_204869.xls (34 КБ)

Guest

Гость

02.03.2011 10:20:50

дело в том, что сформированый файл надо передавть в другое подразделение, в котором формируют сводную таблицу тупо копируя присланные, и если работать с элементами, то надо писать в обычную, к тому же еще надо будет писать вставку-удаление строк. это все не сложно, но тем не менее может проще есть способ или вообще уже реализовано ехеле но я не знаю где и как
попробую поиграться с if и индексом

Guest Гость	#8 02.03.2011 10:23:29 "то надо писать в обычную" = "то надо писать конвертер в обычную"

k61 Пользователь Сообщений: 2443 Регистрация: 21.12.2012	#9 02.03.2011 10:32:38 у меня в примере заменить For i = 1 To 10 на For i = 1 To 11, Cells(1, 1) = Cells(ComboBox1.ListIndex + 5, 3) на Cells(1, 1) = Cells(ComboBox1.ListIndex + 6, 3) у Вас слово одинаТцать на одинаДцать.

Читают тему