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

Вход

Регистрация

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

 

= Мир MS Excel/Вызов раскрывающегося списка макросом. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вызов раскрывающегося списка макросом. (Макросы/Sub)
Вызов раскрывающегося списка макросом.
gling Дата: Четверг, 18.09.2014, 20:46 | Сообщение № 1
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2523
Репутация: 678 ±
Замечаний: 0% ±

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


ЯД-41001506838083

Сообщение отредактировал gling - Четверг, 18.09.2014, 20:51
 
Ответить
СообщениеЗдравствуйте участники форума. При нажатии правой кнопки мышки (ПКМ) в выпадающем меню есть возможность "Выбрать из раскрывающегося списка...". Вопрос возможно ли эту процедуру вызвать макросом? Активируем ячейку и сразу открылся раскрывающийся список, если возможно напишите пожалуйста код. На мой взгляд это удобно, при вводе в столбец новых данных самостоятельно пополняется выпадающий список из уникальных значений столбца. Если будет выпадать список при активации ячейки, сразу будет видно что нужно выбрать из него. В поиске по тексту "Выбрать из раскрывающегося списка..." находит темы про создание и работа с Выпадающими списками. Надежда только на вас Уважаемые участники форума.

Автор - gling
Дата добавления - 18.09.2014 в 20:46
mikaelw Дата: Четверг, 18.09.2014, 20:54 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 179
Репутация: 1 ±
Замечаний: 20% ±

Excel 2010, 2013, 2016
Активируем ячейку и сразу открылся раскрывающийся список


А почему не воспользоваться стандартными функциями екселя?
Весь вопрос БД значений для списка!
 
Ответить
Сообщение
Активируем ячейку и сразу открылся раскрывающийся список


А почему не воспользоваться стандартными функциями екселя?
Весь вопрос БД значений для списка!

Автор - mikaelw
Дата добавления - 18.09.2014 в 20:54
gling Дата: Четверг, 18.09.2014, 21:04 | Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2523
Репутация: 678 ±
Замечаний: 0% ±

2010
Вы имеете ввиду заставить пользователя открывать этот список через ПКМ, или создать базу для выпадающего списка без защиты для ввода новых данных, а так же написать макрос для добавления данных в базу, удаления дубликатов, сортировки данных? Excel уже все это делает, нужно вызвать только список, который создался из данных этого столбца. Это тоже стандартные функции Excel.


ЯД-41001506838083
 
Ответить
СообщениеВы имеете ввиду заставить пользователя открывать этот список через ПКМ, или создать базу для выпадающего списка без защиты для ввода новых данных, а так же написать макрос для добавления данных в базу, удаления дубликатов, сортировки данных? Excel уже все это делает, нужно вызвать только список, который создался из данных этого столбца. Это тоже стандартные функции Excel.

Автор - gling
Дата добавления - 18.09.2014 в 21:04
mikaelw Дата: Четверг, 18.09.2014, 21:21 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 179
Репутация: 1 ±
Замечаний: 20% ±

Excel 2010, 2013, 2016
В есксель 2003(не знаю где в 2010)

Данные - проверка - тип данных список и выбрать ячейки сами себя

Смотри пример!

правда дубликаты выдает....

Так?
К сообщению приложен файл: 7218175.xls (13.5 Kb)


Сообщение отредактировал mikaelw - Четверг, 18.09.2014, 21:37
 
Ответить
СообщениеВ есксель 2003(не знаю где в 2010)

Данные - проверка - тип данных список и выбрать ячейки сами себя

Смотри пример!

правда дубликаты выдает....

Так?

Автор - mikaelw
Дата добавления - 18.09.2014 в 21:21
gling Дата: Четверг, 18.09.2014, 22:00 | Сообщение № 5
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2523
Репутация: 678 ±
Замечаний: 0% ±

2010
mikaelw Спасибо за пояснения, но про выпадающие списки я знаю. Об этом я написал в Сообщении №1
Цитата
В поиске ..... про создание и работа с Выпадающими списками.


ЯД-41001506838083
 
Ответить
Сообщениеmikaelw Спасибо за пояснения, но про выпадающие списки я знаю. Об этом я написал в Сообщении №1
Цитата
В поиске ..... про создание и работа с Выпадающими списками.

Автор - gling
Дата добавления - 18.09.2014 в 22:00
Саня Дата: Четверг, 18.09.2014, 22:14 | Сообщение № 6
Группа: Друзья
Ранг: Ветеран
Сообщений: 1068
Репутация: 560 ±
Замечаний: 0% ±

XL 2016
[vba]
Код
Application.SendKeys "%{DOWN}"
[/vba]
 
Ответить
Сообщение[vba]
Код
Application.SendKeys "%{DOWN}"
[/vba]

Автор - Саня
Дата добавления - 18.09.2014 в 22:14
gling Дата: Четверг, 18.09.2014, 22:32 | Сообщение № 7
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2523
Репутация: 678 ±
Замечаний: 0% ±

2010
Саня, Спасибо огромное! Мне это очень пригодится.


ЯД-41001506838083
 
Ответить
СообщениеСаня, Спасибо огромное! Мне это очень пригодится.

Автор - gling
Дата добавления - 18.09.2014 в 22:32
mikaelw Дата: Четверг, 18.09.2014, 22:47 | Сообщение № 8
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 179
Репутация: 1 ±
Замечаний: 20% ±

Excel 2010, 2013, 2016
Мне это очень пригодится.


Поделись результатом, интересно как использовать, т.к. список я использую, но такая тема была бы интереснее.....
 
Ответить
Сообщение
Мне это очень пригодится.


Поделись результатом, интересно как использовать, т.к. список я использую, но такая тема была бы интереснее.....

Автор - mikaelw
Дата добавления - 18.09.2014 в 22:47
gling Дата: Четверг, 18.09.2014, 22:56 | Сообщение № 9
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2523
Репутация: 678 ±
Замечаний: 0% ±

2010
Вот что получилось.
К сообщению приложен файл: 6855212.xls (30.0 Kb)


ЯД-41001506838083
 
Ответить
СообщениеВот что получилось.

Автор - gling
Дата добавления - 18.09.2014 в 22:56
mikaelw Дата: Четверг, 18.09.2014, 23:12 | Сообщение № 10
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 179
Репутация: 1 ±
Замечаний: 20% ±

Excel 2010, 2013, 2016
Вот что получилось.

интересно получилось, но я бы вызывал список клавиатурой...
т.к. в таком виде макрос мешает ходить по таблице и возможны не произвольные изменения значения.....
 
Ответить
Сообщение
Вот что получилось.

интересно получилось, но я бы вызывал список клавиатурой...
т.к. в таком виде макрос мешает ходить по таблице и возможны не произвольные изменения значения.....

Автор - mikaelw
Дата добавления - 18.09.2014 в 23:12
gling Дата: Четверг, 18.09.2014, 23:49 | Сообщение № 11
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2523
Репутация: 678 ±
Замечаний: 0% ±

2010
Чтобы не испортить что введено можно записать так [vba]
Код
    If Not Intersect(Target, Range(Cells(Range("A1").CurrentRegion.Rows.Count + 1, 1), Cells(100, 1))) Is Nothing Then
          Application.SendKeys "%{DOWN}"
      End If
[/vba]
Или так [vba]
Код
        If Target <> "" Then Exit Sub
            If Not Intersect(Target, Range("A1:A100")) Is Nothing Then
                 Application.SendKeys "%{DOWN}"
            End If
[/vba]


ЯД-41001506838083

Сообщение отредактировал gling - Пятница, 19.09.2014, 17:45
 
Ответить
СообщениеЧтобы не испортить что введено можно записать так [vba]
Код
    If Not Intersect(Target, Range(Cells(Range("A1").CurrentRegion.Rows.Count + 1, 1), Cells(100, 1))) Is Nothing Then
          Application.SendKeys "%{DOWN}"
      End If
[/vba]
Или так [vba]
Код
        If Target <> "" Then Exit Sub
            If Not Intersect(Target, Range("A1:A100")) Is Nothing Then
                 Application.SendKeys "%{DOWN}"
            End If
[/vba]

Автор - gling
Дата добавления - 18.09.2014 в 23:49
mikaelw Дата: Пятница, 19.09.2014, 00:19 | Сообщение № 12
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 179
Репутация: 1 ±
Замечаний: 20% ±

Excel 2010, 2013, 2016
можно записать так


Супер мне тоже это в голову пришло, только когда уже Вы написали!

Переделаю все выпадающие списки!
 
Ответить
Сообщение
можно записать так


Супер мне тоже это в голову пришло, только когда уже Вы написали!

Переделаю все выпадающие списки!

Автор - mikaelw
Дата добавления - 19.09.2014 в 00:19
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вызов раскрывающегося списка макросом. (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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