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

Вход

Регистрация

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

 

= Мир MS Excel/Выпадающий список без применения проверки данных - Мир MS Excel

Старая форма входа
  • Страница 1 из 3
  • 1
  • 2
  • 3
  • »
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Выпадающий список без применения проверки данных (Формулы/Formulas)
Выпадающий список без применения проверки данных
tanver Дата: Воскресенье, 04.01.2015, 11:23 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 59
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Добрый день.
Подскажите пож. можно ли открыть выпадающий список с помощью формул (без использования формы "проверки данных" и макроса)? Допустим, что у меня есть поименованный диапазон (список) на который можно сослаться.
Заранее благодарю за ответ.

Благодарю. С уважением Татьяна В.
 
Ответить
СообщениеДобрый день.
Подскажите пож. можно ли открыть выпадающий список с помощью формул (без использования формы "проверки данных" и макроса)? Допустим, что у меня есть поименованный диапазон (список) на который можно сослаться.
Заранее благодарю за ответ.
Автор - tanver
Дата добавления - 04.01.2015 в 11:23
Serge_007 Дата: Воскресенье, 04.01.2015, 11:46 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Здравствуйте
Цитата tanver, 04.01.2015 в 11:23, в сообщении № 1
можно ли открыть выпадающий список с помощью формул
Нет нельзя, но формулами можно выбирать определенные элементы именованного диапазона

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеЗдравствуйте
Цитата tanver, 04.01.2015 в 11:23, в сообщении № 1
можно ли открыть выпадающий список с помощью формул
Нет нельзя, но формулами можно выбирать определенные элементы именованного диапазона
Автор - Serge_007
Дата добавления - 04.01.2015 в 11:46
tanver Дата: Воскресенье, 04.01.2015, 13:32 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 59
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Спасибо.

Я конкретизирую пример (вложила файл).
Мне надо сделать выборку их списка (база данных), если значения встречаются один, или большее количество раз.
К сообщению приложен файл: 0316326.xlsx (11.2 Kb)

Благодарю. С уважением Татьяна В.
 
Ответить
СообщениеСпасибо.

Я конкретизирую пример (вложила файл).
Мне надо сделать выборку их списка (база данных), если значения встречаются один, или большее количество раз.
Автор - tanver
Дата добавления - 04.01.2015 в 13:32
TimSha Дата: Воскресенье, 04.01.2015, 13:38 | Сообщение № 4
Группа: Проверенные
Ранг: Ветеран
Сообщений: 627
Репутация: 94 ±
Замечаний: 0% ±

Excel 2013 Pro +
Цитата tanver, 04.01.2015 в 13:32, в сообщении № 3
конкретизирую пример

Вам понятно - мне нет.
Варианты: связанные выпадающие списки; сводные таблицы...
ps Конкретнее - понятнее - проще - зримее.

"Ctrl+S" - достойное завершение ваших гениальных мыслей!.. ;)
 
Ответить
Сообщение
Цитата tanver, 04.01.2015 в 13:32, в сообщении № 3
конкретизирую пример

Вам понятно - мне нет.
Варианты: связанные выпадающие списки; сводные таблицы...
ps Конкретнее - понятнее - проще - зримее.
Автор - TimSha
Дата добавления - 04.01.2015 в 13:38
tanver Дата: Воскресенье, 04.01.2015, 13:58 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 59
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Цитата TimSha, 04.01.2015 в 13:38, в сообщении № 4
Варианты: связанные выпадающие списки; сводные таблицы...


Связанные выпадающие списки больше подходит!
Мне бы хотелось, чтобы в ячейке (куда требуется "подтянуть" данные) либо сразу появлялось значение из базы данных (если одно предприятие = одному виду товара). Либо (если товаров несколько выпадал список конкретно с товарами/услугами, относящимися к данному предприятию.
Если такое возможно.

Благодарю. С уважением Татьяна В.
 
Ответить
Сообщение
Цитата TimSha, 04.01.2015 в 13:38, в сообщении № 4
Варианты: связанные выпадающие списки; сводные таблицы...


Связанные выпадающие списки больше подходит!
Мне бы хотелось, чтобы в ячейке (куда требуется "подтянуть" данные) либо сразу появлялось значение из базы данных (если одно предприятие = одному виду товара). Либо (если товаров несколько выпадал список конкретно с товарами/услугами, относящимися к данному предприятию.
Если такое возможно.
Автор - tanver
Дата добавления - 04.01.2015 в 13:58
TimSha Дата: Воскресенье, 04.01.2015, 14:04 | Сообщение № 6
Группа: Проверенные
Ранг: Ветеран
Сообщений: 627
Репутация: 94 ±
Замечаний: 0% ±

Excel 2013 Pro +
Цитата tanver, 04.01.2015 в 13:58, в сообщении № 5
Связанные выпадающие списки больше подходит!

Как вариант - на соседней Планете

"Ctrl+S" - достойное завершение ваших гениальных мыслей!.. ;)
 
Ответить
Сообщение
Цитата tanver, 04.01.2015 в 13:58, в сообщении № 5
Связанные выпадающие списки больше подходит!

Как вариант - на соседней Планете
Автор - TimSha
Дата добавления - 04.01.2015 в 14:04
tanver Дата: Воскресенье, 04.01.2015, 14:14 | Сообщение № 7
Группа: Пользователи
Ранг: Участник
Сообщений: 59
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Спасибо, сейчас почитаю

Благодарю. С уважением Татьяна В.
 
Ответить
СообщениеСпасибо, сейчас почитаю
Автор - tanver
Дата добавления - 04.01.2015 в 14:14
RAN Дата: Воскресенье, 04.01.2015, 14:29 | Сообщение № 8
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
     Dim arr, i&
     If Target.Count > 1 Then Exit Sub
     If Target.Column = 1 Then
         If Len(Target) Then

             arr = Sheets("База").Range("A1").CurrentRegion.Value
             With CreateObject("Scripting.Dictionary")
                 For i = 1 To UBound(arr)
                     .Item(arr(i, 1)) = .Item(arr(i, 1)) & ", " & arr(i, 2)
                 Next
                 If .exists(Target.Value) Then
                     'On Error Resume Next
                     Target.Offset(, 1).Validation.Delete
                     Target.Offset(, 1).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
                    Operator:=xlBetween, Formula1:=Mid$(.Item(Target.Value), 3)

                 End If
             End With
     Else
         Target.Offset(, 1).Validation.Delete
         End If
     End If
End Sub
[/vba]
К сообщению приложен файл: 0316326.xlsm (24.1 Kb)

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
     Dim arr, i&
     If Target.Count > 1 Then Exit Sub
     If Target.Column = 1 Then
         If Len(Target) Then

             arr = Sheets("База").Range("A1").CurrentRegion.Value
             With CreateObject("Scripting.Dictionary")
                 For i = 1 To UBound(arr)
                     .Item(arr(i, 1)) = .Item(arr(i, 1)) & ", " & arr(i, 2)
                 Next
                 If .exists(Target.Value) Then
                     'On Error Resume Next
                     Target.Offset(, 1).Validation.Delete
                     Target.Offset(, 1).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
                    Operator:=xlBetween, Formula1:=Mid$(.Item(Target.Value), 3)

                 End If
             End With
     Else
         Target.Offset(, 1).Validation.Delete
         End If
     End If
End Sub
[/vba]
Автор - RAN
Дата добавления - 04.01.2015 в 14:29
tanver Дата: Воскресенье, 04.01.2015, 15:04 | Сообщение № 9
Группа: Пользователи
Ранг: Участник
Сообщений: 59
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
RAN Благодарю!

Пример виден, понятен, то что надо!
но на моем компе при замене "предприятия" список не изменяется.

Можно напишу Вам на маил?

Благодарю. С уважением Татьяна В.
 
Ответить
СообщениеRAN Благодарю!

Пример виден, понятен, то что надо!
но на моем компе при замене "предприятия" список не изменяется.

Можно напишу Вам на маил?
Автор - tanver
Дата добавления - 04.01.2015 в 15:04
RAN Дата: Воскресенье, 04.01.2015, 15:10 | Сообщение № 10
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Sheets("База") есть?
Макросы разрешены?

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Воскресенье, 04.01.2015, 15:11
 
Ответить
СообщениеSheets("База") есть?
Макросы разрешены?
Автор - RAN
Дата добавления - 04.01.2015 в 15:10
tanver Дата: Воскресенье, 04.01.2015, 15:11 | Сообщение № 11
Группа: Пользователи
Ранг: Участник
Сообщений: 59
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
да

Благодарю. С уважением Татьяна В.
 
Ответить
Сообщениеда
Автор - tanver
Дата добавления - 04.01.2015 в 15:11
tanver Дата: Воскресенье, 04.01.2015, 15:16 | Сообщение № 12
Группа: Пользователи
Ранг: Участник
Сообщений: 59
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Сейчас вынуждена уехать, после 20:00 попробую еще раз и напишу результат.

Благодарю. С уважением Татьяна В.
 
Ответить
СообщениеСейчас вынуждена уехать, после 20:00 попробую еще раз и напишу результат.
Автор - tanver
Дата добавления - 04.01.2015 в 15:16
RAN Дата: Воскресенье, 04.01.2015, 15:17 | Сообщение № 13
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Возможно, в аглицкой локали нужна точка?
[vba]
Код
.Item(arr(i, 1)) = .Item(arr(i, 1)) & ". " & arr(i, 2)
[/vba]

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеВозможно, в аглицкой локали нужна точка?
[vba]
Код
.Item(arr(i, 1)) = .Item(arr(i, 1)) & ". " & arr(i, 2)
[/vba]
Автор - RAN
Дата добавления - 04.01.2015 в 15:17
AlexM Дата: Воскресенье, 04.01.2015, 15:50 | Сообщение № 14
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4517
Репутация: 1130 ±
Замечаний: 0% ±

Excel 2003
Вариант с использованием проверки данных
Два варианта именованных формул
К сообщению приложен файл: 0316326_1.xls (36.0 Kb) · 0316326_2.xls (36.0 Kb)


Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Сообщение отредактировал AlexM - Воскресенье, 04.01.2015, 16:07
 
Ответить
СообщениеВариант с использованием проверки данных
Два варианта именованных формул
Автор - AlexM
Дата добавления - 04.01.2015 в 15:50
tanver Дата: Воскресенье, 04.01.2015, 19:59 | Сообщение № 15
Группа: Пользователи
Ранг: Участник
Сообщений: 59
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
AlexM, посмотрела. Применю, если не получится с макросом.

Благодарю. С уважением Татьяна В.
 
Ответить
СообщениеAlexM, посмотрела. Применю, если не получится с макросом.
Автор - tanver
Дата добавления - 04.01.2015 в 19:59
tanver Дата: Воскресенье, 04.01.2015, 20:25 | Сообщение № 16
Группа: Пользователи
Ранг: Участник
Сообщений: 59
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
RAN, макрос работает! Осталось только применить его к реальному списку )

Благодарю. С уважением Татьяна В.
 
Ответить
СообщениеRAN, макрос работает! Осталось только применить его к реальному списку )
Автор - tanver
Дата добавления - 04.01.2015 в 20:25
RAN Дата: Воскресенье, 04.01.2015, 21:28 | Сообщение № 17
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
так в чем было дело?

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщениетак в чем было дело?
Автор - RAN
Дата добавления - 04.01.2015 в 21:28
tanver Дата: Воскресенье, 04.01.2015, 22:06 | Сообщение № 18
Группа: Пользователи
Ранг: Участник
Сообщений: 59
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Просто попробовала на другом компе. Не знаю в чем было дело. )

%) А вот применить к своему списку у меня мозгов не хватает.

Благодарю. С уважением Татьяна В.
 
Ответить
СообщениеПросто попробовала на другом компе. Не знаю в чем было дело. )

%) А вот применить к своему списку у меня мозгов не хватает.
Автор - tanver
Дата добавления - 04.01.2015 в 22:06
RAN Дата: Воскресенье, 04.01.2015, 22:09 | Сообщение № 19
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
И чем список отличается?

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеИ чем список отличается?
Автор - RAN
Дата добавления - 04.01.2015 в 22:09
tanver Дата: Воскресенье, 04.01.2015, 22:31 | Сообщение № 20
Группа: Пользователи
Ранг: Участник
Сообщений: 59
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
RAN,

1. лист "База" называется "справочник предприятий"
2. лист "РЕЕСТР" ="Реестр"
3. на листе "Реестр" перечень предприятий начинается в ячейке С555 и продолжается вниз (в примере перечень предприятий начинается с ячейки A3)
4. на листе "Реестр" выбор товара должен происходить в столбце I, соответственно начиная с ячейки I555
5. на листе "справочник предприятий" перечень предприятий расположен в столбце A (начинается с A2), а товар в столбце F (начинается с F2)

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

Благодарю. С уважением Татьяна В.
 
Ответить
СообщениеRAN,

1. лист "База" называется "справочник предприятий"
2. лист "РЕЕСТР" ="Реестр"
3. на листе "Реестр" перечень предприятий начинается в ячейке С555 и продолжается вниз (в примере перечень предприятий начинается с ячейки A3)
4. на листе "Реестр" выбор товара должен происходить в столбце I, соответственно начиная с ячейки I555
5. на листе "справочник предприятий" перечень предприятий расположен в столбце A (начинается с A2), а товар в столбце F (начинается с F2)

Сможете поменять? Я попробовала, у меня не получилось.
Автор - tanver
Дата добавления - 04.01.2015 в 22:31
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Выпадающий список без применения проверки данных (Формулы/Formulas)
  • Страница 1 из 3
  • 1
  • 2
  • 3
  • »
Поиск:

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