Раскрывающийся список в excel с датами - Word и Excel - помощь в работе с программами

Создание раскрывающегося списка

Чтобы упростить работу пользователей с листом, добавьте в ячейки раскрывающиеся списки. Раскрывающиеся списки позволяют пользователям выбирать элементы из созданного вами списка.

На новом листе введите данные, которые должны отображаться в раскрывающемся списке. Желательно, чтобы элементы списка содержались в
таблице Excel
. Если это не так, список можно быстро преобразовать в таблицу, выделив любую ячейку диапазона и нажав

Ctrl+T

.
Примечания:
- Почему данные следует поместить в таблицу? Когда ваши данные находятся в таблице при
  добавлении или удалении элементов из списка
  , любые раскрывающиеся списки, основанные на этой таблице, будут автоматически обновляться. Дополнительные действия не требуются.
- Сейчас самое время
  отсортировать данные в диапазоне или таблице
  в раскрывающемся списке.
Выделите на листе ячейку, в которую требуется поместить раскрывающийся список.
Перейдите на вкладку
данных

на ленте, затем

в проверку данных

.

Примечание:
Если вы не можете щелкнуть

проверку данных

, возможно, рабочий лист защищен или общедоступен.
Разблокируйте определенные области защищенной книги
или прекратите совместное использование листа, а затем повторите шаг 3.
На вкладке

Параметры

в поле

Разрешить

щелкните

Список

.
Щелкните поле

Источник

и выделите диапазон списка. В примере данные находятся на листе «Города» в диапазоне A2:A9. Обратите внимание на то, что строка заголовков отсутствует в диапазоне, так как она не является одним из вариантов, доступных для выбора.
Если можно оставить ячейку пустой, установите флажок

Игнорировать пустые

ячейки.
Установите флажок

Список допустимых значений
Откройте вкладку

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

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

Вид

?
- Чтобы отобразить сообщение, не препятствующее вводу данных, которые не содержатся в раскрывающемся списке, выберите вариант
  
  Сведения
  
  или Предупреждение. Если выбрать вариант «Сообщение», сообщение будет отображаться со значком
  
  , а если «Предупреждение» — со значком
  
  .
- Чтобы заблокировать пользователям ввод данных, которые не содержатся в раскрывающемся списке, выберите вариант
  
  Остановка
  
  .
  
  Примечание:
  Если вы не добавили заголовок и текст, по умолчанию выводится заголовок «Microsoft Excel» и сообщение «Введенное значение неверно. Набор значений, которые могут быть введены в ячейку, ограничен».

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

Ввод данных станет быстрее и точнее, если ограничить значения в ячейке вариантами из раскрывающегося списка.

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

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

Данные

в группе

Инструменты

щелкните

Проверка данных

или

Проверить

.

Примечание:
Если команда проверки недоступна, возможно, лист защищен или книга является общей. Если книга является общей или лист защищен, изменить параметры проверки данных невозможно. Дополнительные сведения о защите книги см. в статье
Защита книги
.
Откройте вкладку

Параметры

и во всплывающем меню

Разрешить

щелкните

пункт Список

.
Щелкните поле

Источник

и выделите на листе список допустимых элементов.

Диалоговое окно свернется, чтобы было видно весь лист.
Нажмите клавишу ВВОД или кнопку

Развернуть

, чтобы развернуть диалоговое окно, а затем щелкните

ОК

.
Советы:
- Значения также можно ввести непосредственно в поле
  
  Источник
  
  через запятую.
- Чтобы изменить список допустимых элементов, просто измените значения в списке-источнике или диапазон в поле
  
  Источник
- Можно указать собственное сообщение об ошибке, которое будет отображаться при вводе недопустимых данных. На вкладке
  
  Данные
  
  щелкните
  
  Проверка данных
  
  или
  
  Проверить
  
  , а затем щелкните
  
  Сообщение об ошибке
  
  .

См. также

Применение проверки данных к ячейкам

На новом листе введите данные, которые должны отображаться в раскрывающемся списке. Желательно, чтобы элементы списка содержались в
таблице Excel
.
Примечания:
- Почему данные следует поместить в таблицу? Когда ваши данные находятся в таблице при
  добавлении или удалении элементов из списка
  , любые раскрывающиеся списки, основанные на этой таблице, будут автоматически обновляться. Дополнительные действия не требуются.
- Теперь следует
  отсортировать данные в том порядке, в котором они должны отображаться
  в раскрывающемся списке.
Выделите на листе ячейку, в которую требуется поместить раскрывающийся список.
Откройте вкладку

Данные

на ленте и щелкните кнопку

Проверка данных

.
На вкладке

Параметры

в поле

Разрешить

щелкните

Список

.
Если вы уже создали таблицу с элементами раскрывающегося списка, щелкните поле

Источник

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

Источник

через запятую. Например:

Фрукты;Овощи;Зерновые культуры;Молочные продукты;Перекусы
Если можно оставить ячейку пустой, установите флажок

Игнорировать пустые

ячейки.
Установите флажок

Список допустимых значений
Откройте вкладку

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

Сообщение об ошибке.
- Если вы хотите, чтобы при вводе значения, которого нет в списке, появлялось всплывающее сообщение, установите флажок
  
  Показывать оповещения
  
  , выберите параметр в поле
  
  Тип
  
  , и введите заголовок и сообщение. Если вы не хотите, чтобы сообщение отображалось, снимите этот флажок.
Щелкните

ОК

.

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

Дополнительные сведения

Вы всегда можете задать вопрос специалисту Excel Tech Community или попросить помощи в сообществе Answers community.

См. также

Добавление и удаление элементов раскрывающегося списка

Видео: создание раскрывающихся списков и управление ими

Общие сведения о таблицах Excel

Применение проверки данных к ячейкам

Блокировка и разблокировка определенных областей защищенного листа

Нужна дополнительная помощь?

Источник

Содержание

1 Способ 1 — горячие клавиши и раскрывающийся список в excel
2 Способ 2 — самый удобный, простой и наиболее гибкий
3 Способ 3 — как в excel сделать выпадающий список с использованием ActiveX
- 3.1 P.S.
- 3.2 Ссылки по теме
4 Создание раскрывающегося списка
5 Выпадающий список в Excel с подстановкой данных
6 Выпадающий список в Excel с данными с другого листа/файла
7 Как сделать зависимые выпадающие списки
8 Выпадающий список с поиском

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

Данный способ использования выпадающего списка по сути не является инструментом таблицы, который надо как либо настраивать или заполнять. Это встроенная функция (горячие клавиши) которая работает всегда. При заполнении какого либо столбца, вы можете нажать правой кнопкой мыши на пустой ячейке и в выпадающем списке выбрать пункт меню «Выбрать из раскрывающегося списка».

Этот же пункт меню можно запустить сочетанием клавиш Alt+»Стрелка вниз» и программа автоматически предложит в выпадающем списке значения ячеек, которые вы ранее заполняли данными. На изображении ниже программа предложила 4 варианта заполнения (дублирующиеся данные Excel не показывает). Единственное условие работы данного инструмента — это между ячейкой, в которую вы вводите данные из списка и самим списком не должно быть пустых ячеек.

Использование горячих клавиш для раскрытия выпадающего списка данных

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

Выпадающий список может работать и в верхней части с данными, которые ниже ячейки

Способ 2 — самый удобный, простой и наиболее гибкий

Данный способ предполагает создание отдельных данных для списка. При чем данные могут находится как на листе с таблицей, так и на другом листе файла Excel.

Сперва необходимо создать список данных, который будет источником данных для подстановки в выпадающий список в excel. Выделите данные и нажмите правой кнопкой мыши. В выпадающем списке выберите пункт «Присвоить имя…».
Создание набора данных для списка
В окне «Создание имени» задайте имя для вашего списка (это имя дальше будет использоваться в формуле подстановки). Имя должно быть без пробелов и начинаться с буквы.
Введите имя для набора данных
Выделите ячейки (можно сразу несколько ячеек), в которых планируется создать выпадающий список. Во вкладке «ДАННЫЕ» вверху документа нажмите на «Проверка данных».
Создать выпадающий список можно сразу для нескольких ячеек
В окне проверка вводимых значение в качестве типа данных задайте «Список». В строке «Источник:» введите знак равно и имя для ранее созданного списка. Данная формула позволит ввести значения только из списка, т.е. произведет проверку введенного значения и предложит варианты. Эти варианты и будут выпадающим списком.

Для создания проверки вводимых значений введите имя ранее созданного списка

При попытке ввести значение, которого нет в заданном списке, эксель выдаст ошибку.

Кроме списка можно вводить данные вручную. Если введенные данные не совпадут с одним из данных — программа выдаст ошибку

А при нажатии на кнопку выпадающего списка в ячейке вы увидите перечень значений из созданного ранее.

Способ 3 — как в excel сделать выпадающий список с использованием ActiveX

Чтобы воспользоваться этим способом, необходимо чтобы у вас была включена вкладка «РАЗРАБОТЧИК». По умолчанию эта вкладка отсутствует. Чтобы ее включить:

Нажмите на «Файл» в левом верхнем углу приложения.
Выберите пункт «Параметры» и нажмите на него.
В окне настройки параметров Excel во вкладке «Настроить ленту» поставьте галочку напротив вкладки «Разработчик».

Включение вкладки «РАЗРАБОТЧИК»

Теперь вы сможете воспользоваться инструментом «Поле со списком (Элемент ActiveX)». Во вкладке «РАЗРАБОТЧИК» нажмите на кнопку «Вставить» и найдите в элементах ActiveX кнопку «Поле со списком (Элемент ActiveX)». Нажмите на нее.

Нарисуйте данный объект в excel выпадающий список в ячейке, где вам необходим выпадающий список.

Теперь необходимо настроить данный элемент. Чтобы это сделать, необходимо включить «Режим конструктора» и нажать на кнопку «Свойства». У вас должно открыться окно свойств (Properties).

С открытым окном свойств нажмите на ранее созданный элемент «Поле со списком». В списке свойств очень много параметров для настройки и вы сможете изучив их, настроить очень много начиная от отображения списка до специальных свойств данного объекта.

Но нас на этапе создания интересуют только три основных:

ListFillRange — указывает диапазон ячеек, из которых будут браться значения для выпадающего списка. В моем примере я указал два столбца (A2:B7 — дальше покажу как это использовать). Если необходимо только одни значения указывается A2:A7.
ListRows — количество данных в выпадающем списке. Элемент ActiveX отличается от первого способа тем, что можно указать большое количество данных.
ColumnCount — указывает сколько столбцов данных указывать в выпадающем списке.

В строке ColumnCount я указал значение 2 и теперь в списке выпадающие данные выглядят вот так:

Как видите получился выпадающий список в excel с подстановкой данных из второго столбца с данными «Поставщик».

Если вам часто приходится вводить даты в ячейки листа, то делать это вручную неудобно. Для ввода именно сегодняшней даты можно воспользоваться функцией СЕГОДНЯ (TODAY), сочетанием клавиш Ctrl+; или макросом, но если нужны разные даты из прошлого или будущего, то вбивать их руками долго.

К сожалению, в стандартном арсенале средств Excel нет встроенного выпадающего календаря (в отличие от Word), да еще и в последних версиях, начиная с Excel 2007, Microsoft зачем-то убрала из стандартного комплекта поставки библиотеку mscalc.osx, которая позволяла быстро создать пользовательскую форму с календарем.

Естественно, это «узкое место» не осталось без внимания опытных пользователей и экспертов Excel MVP, которые оперативно создали несколько интерактивных календарей на макросах для удобного ввода дат. Вот подборка неплохих, на мой взгляд, бесплатных вариантов:

	Windows Date Picker Автор: Ron de Bruin Цена: бесплатно Ссылка Устанавливается как надстройка (есть версии для старых Excel 200-2003 и для новых Excel 2007-2010 и, отдельно, для Excel 2013. Вызывается через контекстное меню ячейки (правой кнопкой мыши по ячейке — Date Picker). Позволяет вставлять дату в нескольких форматах, вплоть до номера недели (по разным стандартам). Автоматически подстраивается под российский стандарт недели (с понедельника).
	Excel Date Picker Автор: Jim Cone Цена: бесплатно Ссылка Макрос (не надстройка!) с открытым кодом VBA — можно посмотреть как всё устроено и модернизировать «под себя». Но надо копировать код в каждый используемый файл и вызывать нажатием на кнопку или сочетанием клавиш, т.е. универсальность хромает. Удобная система прокрутки лет и месяцев. Российскую неделю (с понедельника) знает. Каких-либо настроек нет.
	Mini Calendar and Date Picker Автор: VERTEX Цена: бесплатно. Ссылка в Office Apps Store Работает только в Excel 2013, добавляется через магазин приложений Office App Store на вкладке Вставка — Приложения для Office (Insert — Office Apps Store). Вставляется на лист как постоянный графический объект и добавляет выбранную дату в любую выделенную предварительно ячейку. Умеет менять стандарты недели, отображать номера недель, вводить не только дату, но и время. Есть возможность задавать темы оформления. Нет кнопки перехода к текущему дню.
	Date Picker Автор: Sam Radakovitz, руководитель команды программистов Excel в Microsoft Цена: бесплатно Сайт автора умер, ссылки не работают, но можно скачать заботливо сохраненную мной когда-то копию здесь. Устанавливается как надстройка. Вызывается через правую кнопку мыши по ячейке — Pick from calendar или с помощью удобного всплывающего значка календарика справа от ячейки с датой. Красивый дизайн, отображение количества дней до выбранной даты от текущей. Использует USA-стандарт недели (отображает неделю с воскресенья). Настроек нет.

P.S.

Установка надстроек:

в Excel 2003 и старше — меню Сервис — Надстройки — Обзор (Tools — Add-ins — Browse)
в Excel 2007 и новее — Файл — Параметры — Надстройки — Перейти — Обзор (File — Options — Add-ins — Go To — Browse)

Ссылки по теме

Всплывающий календарь из надстройки PLEX
Автоматический ввод даты при изменении ячейки

Под выпадающим списком понимается содержание в одной ячейке нескольких значений. Когда пользователь щелкает по стрелочке справа, появляется определенный перечень. Можно выбрать конкретное.

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

Создание раскрывающегося списка

Путь: меню «Данные» — инструмент «Проверка данных» — вкладка «Параметры». Тип данных – «Список».

Ввести значения, из которых будет складываться выпадающий список, можно разными способами:

Вручную через «точку-с-запятой» в поле «Источник».
Ввести значения заранее. А в качестве источника указать диапазон ячеек со списком.
Назначить имя для диапазона значений и в поле источник вписать это имя.

Любой из вариантов даст такой результат.

Выпадающий список в Excel с подстановкой данных

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

Выделяем диапазон для выпадающего списка. В главном меню находим инструмент «Форматировать как таблицу».
Откроются стили. Выбираем любой. Для решения нашей задачи дизайн не имеет значения. Наличие заголовка (шапки) важно. В нашем примере это ячейка А1 со словом «Деревья». То есть нужно выбрать стиль таблицы со строкой заголовка. Получаем следующий вид диапазона:
Ставим курсор в ячейку, где будет находиться выпадающий список. Открываем параметры инструмента «Проверка данных» (выше описан путь). В поле «Источник» прописываем такую функцию:

Протестируем. Вот наша таблица со списком на одном листе:

Добавим в таблицу новое значение «елка».

Теперь удалим значение «береза».

Осуществить задуманное нам помогла «умная таблица», которая легка «расширяется», меняется.

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

Сформируем именованный диапазон. Путь: «Формулы» — «Диспетчер имен» — «Создать». Вводим уникальное название диапазона – ОК.
Создаем раскрывающийся список в любой ячейке. Как это сделать, уже известно. Источник – имя диапазона: =деревья.
Снимаем галочки на вкладках «Сообщение для ввода», «Сообщение об ошибке». Если этого не сделать, Excel не позволит нам вводить новые значения.
Вызываем редактор Visual Basic. Для этого щелкаем правой кнопкой мыши по названию листа и переходим по вкладке «Исходный текст». Либо одновременно нажимаем клавиши Alt + F11. Копируем код (только вставьте свои параметры).
Сохраняем, установив тип файла «с поддержкой макросов».
Переходим на лист со списком. Вкладка «Разработчик» — «Код» — «Макросы». Сочетание клавиш для быстрого вызова – Alt + F8. Выбираем нужное имя. Нажимаем «Выполнить».

Когда мы введем в пустую ячейку выпадающего списка новое наименование, появится сообщение: «Добавить введенное имя баобаб в выпадающий список?».

Нажмем «Да» и добавиться еще одна строка со значением «баобаб».

Выпадающий список в Excel с данными с другого листа/файла

Когда значения для выпадающего списка расположены на другом листе или в другой книге, стандартный способ не работает. Решить задачу можно с помощью функции ДВССЫЛ: она сформирует правильную ссылку на внешний источник информации.

Делаем активной ячейку, куда хотим поместить раскрывающийся список.
Открываем параметры проверки данных. В поле «Источник» вводим формулу: =ДВССЫЛ(“Лист1!$A$1:$A$9”).

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

Как сделать зависимые выпадающие списки

Возьмем три именованных диапазона:

Это обязательное условие. Выше описано, как сделать обычный список именованным диапазоном (с помощью «Диспетчера имен»). Помним, что имя не может содержать пробелов и знаков препинания.

Создадим первый выпадающий список, куда войдут названия диапазонов.
Когда поставили курсор в поле «Источник», переходим на лист и выделяем попеременно нужные ячейки.
Теперь создадим второй раскрывающийся список. В нем должны отражаться те слова, которые соответствуют выбранному в первом списке названию. Если «Деревья», то «граб», «дуб» и т.д. Вводим в поле «Источник» функцию вида =ДВССЫЛ(E3). E3 – ячейка с именем первого диапазона.
Создаем стандартный список с помощью инструмента «Проверка данных». Добавляем в исходный код листа готовый макрос. Как это делать, описано выше. С его помощью справа от выпадающего списка будут добавляться выбранные значения.
Чтобы выбранные значения показывались снизу, вставляем другой код обработчика.
Чтобы выбираемые значения отображались в одной ячейке, разделенные любым знаком препинания, применим такой модуль.

Не забываем менять диапазоны на «свои». Списки создаем классическим способом. А всю остальную работу будут делать макросы.

Выпадающий список с поиском

На вкладке «Разработчик» находим инструмент «Вставить» – «ActiveX». Здесь нам нужна кнопка «Поле со списком» (ориентируемся на всплывающие подсказки).
Щелкаем по значку – становится активным «Режим конструктора». Рисуем курсором (он становится «крестиком») небольшой прямоугольник – место будущего списка.
Жмем «Свойства» – открывается перечень настроек.
Вписываем диапазон в строку ListFillRange (руками). Ячейку, куда будет выводиться выбранное значение – в строку LinkedCell. Для изменения шрифта и размера – Font.

Скачать пример выпадающего списка

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

Источник

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

Создайте выпадающий список календаря в Excel с помощью элемента управления ActiveX
Легко создать календарь с раскрывающимся списком с помощью классного инструмента
Дополнительные руководства для раскрывающегося списка …

Создать календарь с выпадающим списком в Excel

Чтобы создать раскрывающийся календарь в Excel, сделайте следующее.

Внимание: Этот метод работает с Microsoft Excel 2007 и 32-разрядными версиями Excel 2016, 2013 и 2010.

1. Во-первых, если вы не видите Застройщик вкладку на ленте, вам нужно отобразить ее следующим образом.

1). В Excel 2010 и более поздних версиях щелкните Файл > Опции. И в Опции диалоговое окно, нажмите Настроить ленту на правой панели проверьте Застройщик поле, затем щелкните OK кнопка. Смотрите скриншот:
2). Если вы используете Excel 2007, щелкните Офисы кнопка> Параметры Excel. В Параметры Excel диалоговое окно, нажмите Популярное в правой панели, затем проверьте Показать вкладку разработчика на ленте поле и, наконец, щелкните OK кнопку.

2. Затем нажмите Застройщик > Вставить > Больше элементов управления. Смотрите скриншот:

3. в Больше контроля диалоговое окно, выберите Средство выбора даты и времени Microsoft 6.0 (SP6) а затем нажмите OK кнопку.

4. Затем нарисуйте раскрывающийся список на листе, где вы хотите его разместить, и измените размер поля, перетащив его угол.

5. Щелкните раскрывающийся список правой кнопкой мыши и выберите Предложения из списка. в Предложения диалоговом окне введите определенную ячейку в Связанная ячейка поле, а затем закройте диалоговое окно. Смотрите скриншот:

Внимание: Если вы введете ячейку B3 в Связанная ячейка поле, когда вы выбираете дату в раскрывающемся календаре, дата будет связана и отображена в ячейке B3.

6. После закрытия окна появится диалоговое окно ошибки. Предложения диалог, OK кнопку.

6. Теперь вам нужно отключить режим дизайна на этом листе, нажав Застройщик > Режим проектирования.

7. Нажмите кнопку со стрелкой, чтобы отобразить раскрывающийся календарь. При выборе даты в календаре она будет автоматически подставлена в ячейку, указанную вами выше.

Легко создать календарь с раскрывающимся списком с помощью классного инструмента

Поскольку указанный выше метод имеет ограничения версии Excel, здесь настоятельно рекомендуется Выбор даты полезности Kutools for Excel. С помощью этой функции вы можете легко выбрать дату из всплывающего раскрывающегося календаря при нажатии на ячейку даты. Чтобы получить его, сделайте следующее.

1. Нажмите Кутулс > Содержание > Включить средство выбора даты для включения этой функции.

2. После включения этой функции щелкните ячейку даты, справа от ячейки появится значок календаря.

3. Щелкните значок календаря, чтобы открыть Выбор даты диалоговое окно, а затем щелкните новую дату, чтобы заменить существующую дату в выбранной ячейке.

Ноты:

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

Статьи по теме:

Автозаполнение при вводе текста в раскрывающемся списке Excel
Если у вас есть раскрывающийся список проверки данных с большими значениями, вам нужно прокрутить список вниз только для того, чтобы найти нужное, или введите все слово напрямую в поле списка. Если есть способ разрешить автозаполнение при вводе первой буквы в выпадающем списке, все станет проще. В этом руководстве представлен метод решения проблемы.

Создать раскрывающийся список из другой книги в Excel
Создать раскрывающийся список проверки данных среди листов в книге довольно просто. Но если данные списка, необходимые для проверки данных, находятся в другой книге, что вы будете делать? В этом руководстве вы узнаете, как подробно создать раскрывающийся список из другой книги в Excel.

Создайте раскрывающийся список с возможностью поиска в Excel
Для раскрывающегося списка с многочисленными значениями найти подходящий — непростая задача. Ранее мы ввели метод автоматического заполнения раскрывающегося списка при вводе первой буквы в раскрывающемся списке. Помимо функции автозаполнения, вы также можете сделать раскрывающийся список доступным для поиска для повышения эффективности работы при поиске правильных значений в раскрывающемся списке. Чтобы сделать раскрывающийся список доступным для поиска, попробуйте метод, описанный в этом руководстве.

Автоматическое заполнение других ячеек при выборе значений в раскрывающемся списке Excel
Допустим, вы создали раскрывающийся список на основе значений в диапазоне ячеек B8: B14. При выборе любого значения в раскрывающемся списке необходимо, чтобы соответствующие значения в диапазоне ячеек C8: C14 автоматически заполнялись в выбранной ячейке. Для решения проблемы методы, описанные в этом руководстве, окажут вам услугу.

Дополнительные руководства для раскрывающегося списка …

Лучшие инструменты для работы в офисе

Kutools for Excel Решит большинство ваших проблем и повысит вашу производительность на 80%

Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма …
Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон…
Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы… Предотвращение дублирования ячеек; Сравнить диапазоны…
Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор …
Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое …
Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии…
Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом …
Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF…
Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!

Источник

Выпадающий календарь в Excel без макросов.

Смотрите также14.Прочитал, сколько сейчас Это просто режим знают!» * 2, i
демонстрирует, как можно свойство Value этих даты. Ссылка на предоставить ежемесячный отчет
календарь или на: Вопрос немного в slancalendar.Show End Sub»Показать календарь», далее откройте его в Формулы существуют во всех>Можно сделать безПри смене года стало возникать проблем работы формы. ЧитайтеSasha_Smirnov
* twip, twip использовать календарь ‘ элементов. txt.text=DTP.value или ячейку в аргументе за прошлый месяц панели выскочит значок другом. Не какSasha_Smirnov ваш код, по
программе Office Online ячейках, которые содержатсоздать макросов простой или месяца время с `Элементом управления описание!: И ещё завалявшийся * 2, twip без подключения его TXT=DTP первого раза использования
о взаиморасчетах поставщику календаря data pikcer выбрать дату, а: На крайняк: Ручной внесению данных в (некоторые календари предназначены дату, а такжев Excel.выпадающий календарь в теперь устанавливается на Календарь` (`Calendar Control`)Зачем Вам ? пример: excel2010.ru/tryuk-89-kak-dobavit-element-upravleniya-kalendar-v-lyubuyu-rabochuyu-knigu-excel.html .Locked = i к проекту, дляmentos_has_arisen функции МЕСЯЦ – в день поставкиMaNikaNight Ranger
ввод даты (автоподстановки, ячейку, и в для редактирования в в строках даты,Примечание:

Excel 00:00:00. Это логично,и понял, что Можно же двойнымAlenis = 0 End этого нужна только: в ексцесе —
относительная, так как
товара и сэкономить: buxrasid,: Да ну и контроль правильности) (рисунок конце скрыть календарь. Excel Online, другие — которые выводятся в

excel-office.ru

Создание календаря на основе шаблона

 В Excel 2007 нажмите. Для этого установим ведь в заголовке нужен календарь, не кликом выбрать!: Большое спасибо) Ваша With Next j, форма ‘ совместимость вставка — элемент проверятся будут несколько на курьерских услугах.У меня начальница что, пожалуйста, вместо Excel 2007).ELSE GOTO END в Word Online, виде пустых ячеек. кнопку выпадающие списки. формы пишется 1-е зависящий от библиотек

VovaK надстройка очень помогла. i With btn версий любая ‘————————————————————————————— ActiveX — календарь ячеек в столбце Для этого следует хочет видеть именно

MsgBox, поставьте TextBoxHugo121

как то так. а третьи — для Эти формулы обеспечиваютMicrosoft OfficeКак сделать выпадающие число месяца. сторонних производителей.: Добавил ввод времени.

Olga-22 .Caption = «Сегодня» Const jstart = 10.0… а дальше C. После функции выделить все даты автоматически выскакивающий календарик

и всё: Ещё можно посчитатьSanShiney работы в PowerPoint автоматическое обновление календаря._з0з_, а затем — списки, смотрите в
15.К сожалению, поVovaK: Хочу сделать в

.Move jstart, iNext 5, istart =

все как описано стоит оператор сравнения
предполагаемых поставок, припадающие
Сижу вот ковыряюсь

Позже выложу решение, количество выделенных ячеек: Не хотел умничать, Online). Если вручную изменить
создать статье «Выпадающий списокДля исключения ошибок образованию я –: Нашел неприятную недоработку. ячейке Excel 2007
+ fr.Height + 5 Const twip выше. с номером текущего

на вторник.buxrasid но только оно — если >1, просто я понимаю,Совет: данные в этих. в Excel». в макросе допустимый не программист. Опыт При изменении года выпадающий календарь для istart, lb.Width, lb.Height = 18, cciam2005 месяца. Там ужеДля решения выше описанной: попробуйте будет не настолько то календарь не

 что это возмонжо, Если вы уже открыли ячейках, календарь большеВыберитеСначала сделаем на диапазон годов был VBA у меня нажатием на SpinButton, ввода дат. Следуя End With btn_Click = 6 Dim: Один из вариантов: используется абсолютная ссылка задачи мы, используя

Постовой примитивное, открывать. но корректно окончательный Excel Online, выберите нельзя будет обновлятьПоиск шаблонов в сети отдельном листе списки ограничен от 2 не большой. на нем фиксируется пошаговой инструкции (по ‘Дата сегодня ! tt(cc, cc) AsЗапускаем установку Microsoft (значение аргумента неизменяемое). специальную формулу в: Ребята доброго всема кнопка будетСобственно обычно так код написать не

Файл автоматически., введите в столбцах для до 9998.Я прекрасно понимал, фокус и при разделу сайта «приёмы: Filling lbUpdate End MSForms.ToggleButton Dim lb Office, Если результаты вычислений условном форматировании выполним времени суток! красивый выдавать запрос в и делают. способен, т.к. не >Важно:Календарь выпадающего календаря. В

При этом следует сколько(!) особенностей должен переводе курсора на выпадающий календарь для Sub Private Sub As MSForms.Label Dimв группе Microsoft по обе стороны поиск ближайшей даты календарик все работает интернет, связанный сriko_ltd знаю, как отображаетсяСоздать

Создание одностраничного календаря на год

 Формулы существуют во всехи нажмите кнопку с одном столбце напишем отметить, что Excel учитывать хороший календарь. выбор времени не ввода дат») вызываю UserForm_MouseUp(ByVal Button As WithEvents fr As Access отмечаем (устанавливаем оператора сравнения совпадают,

в Excel для но можно ли датой: В проложении файл и скрывается форма
, чтобы перейти к ячейках, в томизображением увеличительного стекла числа с 1 работает только с Таким образом, самостоятельное
фокусируются SpinButtons подбора «additional controls», но Integer, ByVal Shift MSForms.Frame Dim WithEvents

галочку) на компоненте тогда формула возвращает вторников и выделим немного его извратитьи получать ответ
с надстройкой календаря. календаря. шаблонам календарей, и числе в ячейках,_з0з_.

до 31. Во датами после 01.01.1900. его создание было

 времени. По сути там отсутствует «элемент As Integer, ByVal tb As MSForms.ToggleButton ‘Элемент управления Календарь’
значение ИСТИНА и

Создание календаря на несколько листов ежемесячно

цветом эти ячейки. с учетом некоторых связанный с этимиКидай в ЭксельСтартС/У под изображениями шаблонов которые отображаются пустыми.Щелкните интересующий вас шаблон втором столбце напишемБолее ранние даты для меня грандиозной(!!!) надо принудительно переводить

управления календарь». Подскажите X As Single, Dim WithEvents cbMonthfinnsky к текущей ячейке
Автоматическое выделения цветом потребностей: новостями — и наСанж щелкните ссылку
Эти формулы обеспечивают и нажмите кнопку название месяцев. В

воспринимаются только как задачей. фокус на ComboBox пожалуйста, что сделать,
ByVal Y As As MSForms.ComboBox Dim: Всеравно не пойму… присваивается пользовательский формат

календарных дат:1) Привязать егоAlex77755 любой ячейке с

SanjaЕще на Office.com автоматическое обновление календаря.создать третьем столбце напишем
текстовые строки илиПоэтому выбора месяца. Выглядит для того, чтобы Single) On Error WithEvents cbYear As

У меня есть (заливка зеленым цветом).Выделите диапазон ячеек B2:B10 не к кнопке: В принципе можно форматом дата -: В модуль нужного
.

Если вручную изменить. года в порядке

как даты послеВЫРАЖАЮ ОГРОМНУЮ БЛАГОДАРНОСТЬ это очень непрезентабельно. в «additional controls» Resume Next: Err.Clear MSForms.ComboBox Dim WithEvents MSCOMCT2.OCX, но какТеперь усложним задачу. Допустим и выберите инструмент: как это в и использовать DTPicker

 при наведении будет листаВы перейдете на данные в ячейках,Какую версию Excel возрастания. 2000 года (например,всем авторам, представившимВ прилагаемом файле появился «элемент управления Set tb = btn As MSForms.CommandButton

его установить в у нас список «ГЛАВНАЯ»-«Стили»-«Условное форматирование»-«Создать правило». Вашем примере а (вместо самописного класса) появляться иконка календаря.

Private Sub Worksheet_SelectionChange(ByVal страницу шаблонов для календарь больше нельзя

Предоставление доступа к календарю

вы используете? Мы сделали в следующее содержание ячейки: здесь свои календари!!! все исправил. Если календарь»? Спасибо. tt((X — jstart) Public ThisDate As Excel? проектов охватывает не

печать

Выберите: «Использовать формулу для допустим к ячейке на другой (отдельнойac1-caesar Target As Range) Excel. В списке будет обновлять автоматически.Какую версию Excel вы списке года с

 1.1.1 может бытьGeorge87 найдете еще косяки,Black__Hole twip Date, iNext&, cr

Общий доступ

А пока я полугодие, а несколько определения форматируемых ячеек».

«А1» листа 2, форме) и вызывать: On Error GoTo
категорий выберитеВ меню используете? 1950 по 2050. воспринято как 01.01.2001).
: На форуме заметил пишите…: Импортируйте календарь из 2, (Y - As Boolean Private
пытаюсь разобраться с лет:Чтобы выбрать дни вторников
то есть при так же поAlex77755 0 If Target.AddressКалендариФайлБолее новые версии

 Список годов можноК тому же интересное предложение поduckky вложения и пользуйтесь iNext) twip)

support.office.com

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

 Sub btn_Click() cr MSCAL.Calendar.7 — у
Тогда возникает сложность ведь в Excel для активации данной ячейки даблклику по текстбоксу., приспособил для текстбокса <> «$A$1» Then.выберите команду
Excel для Mac 2011 менять, добавлять в необходимо помнить о улучшению одного из: VovaK, можно ли
на здоровье! If Err = = False ThisDate меня есть TextBox
в разные года поля ввода введите (навел курсор кликнулв модуле основной формы формы. UserForm1.Hide: Exit SubВ процессе работы надСоздать из шаблона

В меню него года. Смотрите смене календарей в
календарей: в вашем календаре
Olga-22 0 Then With = Date cbMonth.ListIndex в форме, двойным номера месяцев будут
формулу: =ДЕНЬНЕД(B2;2)=2 и
и вот результат)

Public NMформа 2 Но получается в UserForm1.Show 0 End письмом, возможно, понадобится.Файл статью «Чтобы размер России:Решил попробовать свои сделать время «с
: Скажите, а в
tb If .Enabled

 = Month(ThisDate) - нажатием по TextBox совпадать и условное
нажмите на кнопку2) Привязать егоPrivate Sub TextBox1_DblClick(ByVal классе записать только Sub$A$1 замените адресом переименовать его.В области навигации слевавыберите команду таблицы Excel менялся

- «Декрет о силы. 08:00 до 20:00 какую папку эти And .Locked = 1 cbYear.Text = у меня запускается форматирование будет выделять

 «Формат», чтобы задать к столбцу «В» Cancel As MSForms.ReturnBoolean) для одного конкретного
нужной ячейкиКогда все будет готово, в разделеСоздать из шаблона
автоматически» тут. введении в РоссийскойВ результате получились

 и с 20:00 два вложения импортировать? False Then For Year(ThisDate) cr =

 календарь — не лишние даты. Поэтому желаемый цвет заливки листа 1 начиная NM = TextBox1.Name текстбокса основной формы.The_Prist распечатайте письмо илишаблоны.Все это можно

 республике западноевропейского календаря» следующие дополнения и

planetaexcel.ru

Как в MS Excel сделать выпадающий календарь при выборе ячейки мышкой

 до 08:00″? ТакЮрий М i = 1 True Update End пойму, как должен необходимо модернизировать формулу:

 для ячеек. Например, с 3 строки UserForm1.Show End SubвPublic WithEvents Tb: Private Sub Calendar1_Click()

 отправьте его вщелкнитеВ диалоговом окне

 написать быстро копированием. от 26.01.1918 г.: изменения:
как мне надо: Olga-22, Вы по
To cc: For Sub Private Sub

 заполняться TextBox тойГотово: зеленый. Нажмите ОК и до последней форме 1 вместо As MSForms.Label Private ActiveCell = Calendar1.Value электронном виде. ЭтоУправление временемПоиск по всем шаблонам Как это сделать,после 31.01.1918 наступило1. только такой диапазон.

 этой ссылке смотрели j = 0 lbUpdate() If cr датой, которую яМы добавили в формулу
на всех открытых заполненнойMsgBox «Новая дата: Sub Tb_Click() slancalendar.Hide Unload Me’закрываем форму можно сделать прямо.в правой части смотрите в статье 14.02.1918Добавлен выбор режимаhbs-group календарь? Почитайте P.S. To cc With

 = False Then выберу в календаре??? две функции, которые окнах.3) И наконец

 » & .Value UserForm_AD_EVALUATION.TextBox_EFFECTIVE_DATE = CDate(Tb.Tag) после выбора даты в Excel Online.Дважды щелкните один из экрана введите
«Копирование в Excel»- Смена календаря

 вставки дат на: Огромное спасибо за перед комментариями.
tt(j, i) .Value Exit Sub lb.CaptionИ ещё по позволяют нам выбратьРезультат выделения цветом каждого самое главное как

 oldVal = .Value End SubА как End SubP.S. Оформляйте Нет необходимости предварительно шаблоновКалендарь здесь. Получились такие Петром I с лист:
выпадающий список!EducatedFool = (.Name = = Format(ThisDate, «mmmm поводу MSCAL.Calendar.7 - дни определенного месяца вторника в списке нить прикрутить часики. UserForm2.Controls(NM) = .Value сделать к примеру: коды тегами(кнопочка над сохранять его (этокалендаря на странице. списки.

 01.01.1700 г.– вставить толькоAzakia: tb.Name) If .Value
yyyy г») If как его внешне и года:

 дат поставок товаров:[color=green]Это нужно для Me.Hide — вызов календаря

 полем сообщения) уже сделано за.Выберите нужный шаблон календаря
Присвоим имена этим спискам.- С 1492 одну дату и: VovaK, пожалуйста подскажитеBlack__Hole Then ThisDate = Split(lb.Caption)(0) <> cbMonth.Text изменить — фон,=ГОД() – функция работаетВ формуле мы использовали того что быNight Ranger бросаю на событиеПавел Запивахин вас).Excel откроет новый лист, и нажмите кнопку Как присвоить имя года новый год время (форма работает как при наличии: Скажите, а в DateSerial(cbYear.Text, cbMonth.ListIndex + Then cbMonth_Click End цвет, шрифт? по тому же функцию =ДЕНЬНЕД(), которая иметь разницу во: Ну а я KeyPress текстбокса, календарь: Ввод в TextBoxЧтобы напечатать его, нажмите основанный на шаблонесоздать диапазону списка, смотрите начали отмечать с в модальном режиме двух текстбоксов с какую папку эти 1, .Caption) End Sub Private SubЕсли говорите, что принципу что и возвращает номер дня времени. про что!, можно появляется, выбираем дату, даты из календаря клавиши CTRL+P и на год с. в статье «Диапазон 01 или 21 и закрывается после помощью вашего календаря два вложения импортировать?{/post}{/quote}

 If End With Update() lbUpdate Filling DTPicker (MSCOMCT2.OCX) лучше, =МЕСЯЦ(). Разница только

 недели для исходнойЯ с формы смело делать массив а теперь чтобы и закрытие календаря:
нажмите кнопку одной страницей вВы можете легко применить в Excel».
сентября. вставки даты на вбить две даты?В проект -
Next j, i End Sub Private то как его

 в том, что даты. В первом на листе 2 форм, и у дата записалась наPrivate Sub Calendar1_Click()Печать календаре.
свой внешний взгляд
Смотрим в диспетчере
- Раньше новый лист)т.е. вызвав юзерформ файлы сами попадут End If: End
Sub cbMonth_Click() If подрубить? возвращает из даты аргументе функции указываем вношу данные на

 каждой формы свой тот текстбокс из UserForm2.TextBox1 = Format(Calendar1.Value,для предварительного просмотра.Щелкните ячейку, в которой к календарю. Шаблоны задач на закладке
год отмечали 01– вставить несколько на ней в
в нужные папки With: End If cr = FalseСпасибо

 номер года. ссылку на исходную лист 1 пусть календарь
которого был вызван «dd.mm.yyyy»: Unload Me Нажмите кнопку
отображается год, а календарей отформатированы с «Формулы» перечень имен
 или 21 марта.
дат текстбокс1 указать напримерSkif-F End Sub Sub

 Then Exit Subfinnsky=И() – данное имя дату. Ссылка относительная они отображаются в
и так-же связать календарь?

 End SubВ UserForm2:Печать

 затем в появившемся

помощью тем, которые
списков.Таким образом, я2.

CyberForum.ru

Выпадающий календарь (Календарь выпадает при нажатии на кнопку)

 01.01.2016 а во: Просто надо пересохранить
Filling() For j ThisDate = DateSerial(Year(ThisDate),
: по поводу DTPicker функции говорит само так как будет столбце «А» это строго с определеннымAlex77755
Private Sub TextBox1_Enter()

еще раз, чтобы всплывающем списке выберите позволяют применять к

Теперь на другом листе не могу гарантировать
Добавлен выбор способа второй например 31.03.2016 в другом формате. = 0 To cbMonth.ListIndex + 1,http://relib.com/forums/topic.asp?id=854920 за себя. То
проверятся каждая дата

 при открытии позиции классом или TextBox-ом: В массив их Calendar.Show ‘ вызов распечатать лист.
нужный год.
книге шрифты, цвета

 делаем обычные выпадающие точное соответствие дней вставки даты наVovaKЦитата cc ‘Понедельники вторники Day(ThisDate)) Update EndПодключение OCX есть должны совпадать в столбце B.

А вечером прино хочу заметить
загнать, что б календаря End SubСовет: bangin
Когда вы сделаете выбор,

 и эффекты форматирования списки через функцию

 недели и чисел лист: одиночным или: Azakia, прочитайте весьal-Ex, 19.01.2016 в даты и тд Sub Private SubMicrosoft Visual Basic и номера месяцев
Во втором аргументе закрытии в пустые форма нужна обязательно, процедура одна наThe_Prist Чтобы напечатать все листы лист календаря автоматически рисунка, выполнив только «Проверка данных» на месяцев до 1918
двойным щелчком по пост на Ваш 12:03, в сообщении With tt(j, 0) cbYear_Click() If cr for Applications
и их номера обязательно следует указать ячейки столбца «В»
так-как надо поймать всех была: Павел Запивахин, оформляйте в шаблоне, щелкните
обновляется. щелчок мышью. На закладке «Данные» в года. числу на календаре. вопрос уже есть № 119200?’200px’:»+(this.scrollHeight+5)+’px’);»>В коде
.Caption = WeekdayName(j = False ThenМеню Tools-References-Browse-выбираем файл годов. число 2, чтобы на листе 1 событие от неёИмя вызвавшего (или тегами коды внутри каждый ярлычок листа
Примечание: вкладке разделе «Работа сПрошу историков не3. ответы. Подсказка - формы я добавил + 1, 1,
Exit Sub ThisDate OCX.Вся формула достаточно просто функция правильно выдавала должен проставить датуAlex77755

 сам объект) запоминать сообщений. и напечатайте их Чтобы изменить доступные годыРазметка страницы данными». Получились списки судить строго данный
Добавлена возможность выбора глобальная переменная и функцию vbMonday) .Font.Bold = = DateSerial(cbYear.Text, Month(ThisDate),Ищем на панели читается и ее нам очередности дней и время, при : зачем массив форм

 в глобальной переменнойЮрий М по одному. в этом списке,
в группе с полосами прокрутки. календарь. дат не текущего UserForm.Show 0.А вот здесь

 1 End With Day(ThisDate)) Update End новый элемент. легко использовать для недели (1-понедельник, 2-вторник чем закрыть можно с каледарями? достаточногоac1-caesar: См. файл с

excelworld.ru

Как выбрать дату на текущий месяц во всех ячейках таблицы Excel

Чтобы поделиться буклетом в измените данные втемы Получился такойПри необходимости можно месяца.jakky я не согласен. Next: j = Sub Private SubВывод даты в решения похожих задач и т.д.). Если и завтра и одного.: календарём на стандартных Интернете, отправьте ссылку окне списка подСтановки.выберите из десятковвыпадающий календарь в Excel

Поиск даты в диапазоне дат Excel

будет внести поправки.4.: Спасибо, интересно! Календарик работает в 0 While Weekday(DateSerial(Year(ThisDate), UserForm_Initialize() maxWidth = TextBox с помощью условного не указать второй через любой другой

Запоминать откуда вызвали.Alex77755 элементах (автор Слэн).
на него.Сохраните книгу.
встроенных тем, доступныхбез макросов.16.Добавлены всплывающие подсказкиLanalina какой-то книге - Month(ThisDate), j)) <> twip * (ccPrivate Sub Calendar1_DblClick() форматирования. аргумент, то функция

промежуток времени Из какой формы, спасибо!

Вызов календаря приВ верхней части экранаКнига с несколькими листами в галерее темы,В таблице, бланке, гдеВ файл с с названием месяца: Интересное решение! вот в неё 1 j = + 1) * UserForm1.TextBox1.Text = Format(UserForm.Calendar1.Value,Читайте так же: как будет считать дниВ конце концов и какого контролаNight Ranger активации ячейки В2, нажмите кнопку содержит двенадцать месяцев или найдите параметры, будем устанавливать такой календарём добавлена инструкция. над датами не

Azakia и надо сохранять j — 1 2 Width1 = ‘dd.mm.yyyy’) UserForm1.Hide End посчитать разницу между в английском формате: в соответствующих ячейкахНу в смысле

: Всё это делается

Выделения дат цветом только текущего месяца

в неё жеОбщий доступ в одной книге, чтобы изменить только календарь, сделаем ячейкиal-Ex предлагал, чтобы текущего месяца. Если: VovaK, по первым настройки (всегда можно Wend: jj = maxWidth 2 SubКороче, вот как датами в днях. 1-sanday (неделя), 2-Monday столбца «С» листа одной формы с гораздо, гораздо проще будет вставлена дата.. что очень удобно

шрифты темы или поуже, по размеру при клике по не текущими месяцами

постам нашел за добавить скрытый лист). j For i
iNext = istart выглядит код:[TUES]ZandR
(понедельник) и т.д. 1 я должен календарём ! Для вставки датыВ разделе для личного планирования цвета темы. чисел, названию месяца.

числам не текущего являются декабрь или глобальную переменную -

А засорять реестр = 1 To jNext = jstartForms:: Помогите кто-нибудь !Дальше идет оператор сравнения получить разницу вДобавлено через 1 минуту’————————————————————————————— ‘ Пример в любую активнуюОбщий доступ или для обращенияВажно:В списке месяцев месяца месяц менялся январь, во всплывающие получилось! не стоит cc: For j ThisDate = Datecalend (форма календаря):Как сделать, чтобы с числом 2. часах, так какСовсем забыл про : Календарь ‘

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

на соответствующий так подсказки добавляется соответствующийсделал для одногокотов = 0 To Me.Caption = «Календарь»Dim Mycmd As

ГОД.

при нажатии кнопки

Если возвращаемое число оплату считает бухгалтер этот способ. А Дата и времяПавел Запивахин

Получить ссылку течение любого года. ячейках, которые содержат написать в падеже же, как и год. текстбокса а вот
: cc v = Set fr = Control Dim CommandButton1 выходил календарь и функцией = 2 по часам.

в примерах валаятся : 13 января: Понял, исправлюсь.. Вы можете добавить дату, а также

– января, февраля. при смене месяца5.

exceltable.com

Выбор даты в календаре

 про юсерформ 0Skif-F
DateSerial(Year(ThisDate), Month(ThisDate), jj) Me.Controls.Add(«Forms.Frame.1», «fr») Set As New Class1 можно было бы значит формула возвращаетПример: Ячейка «А3″ же! 2015 12:54 ‘
Henior

В списке собственный текст в в строках даты, Получится так. в выпадающем списке.Добавлена опция выделения я не нашел…, первый столбец выбора

 + 1 With lb = Me.Controls.Add(«Forms.Label.1», Private Sub UserForm_Initialize() выбрать нужную дату значение ИСТИНА и заполнена 01.02.2013г 09:15

Night Ranger Автор : Night: Всем привет! Как
Выберите один из вариантов высоту ячеек, расположенных которые выводятся в
Можно вместо названияЭто не сложно цветом субботы в да ещё и
дат «съел» кнопку

 tt(j, i) .Caption «lb») Set cbMonth Set Mycmd = и она помещалась к текущей ячейке в ячейке «В3″: не знаю где Ranger ‘ Яндекс.Деньги в MS Excelвыберите пункт под ячейкой Date.

 виде пустых ячеек. месяца указать в сделать. качестве выходного дня. не знаю как «принять». Верните, пожалуйста = Day(v) .Enabled = Me.Controls.Add(«Forms.ComboBox.1», «cbMonth») Controls.Add(‘MSCAL.Calendar.7’) Set CommandButton1.CommandButton1 бы в TextBox применяется пользовательский формат закрываю позицию 03.02.2013г. валялся, я нашел — 410012757639478 ‘

 сделать выпадающий календарьТолько просмотрВ меню Эти формулы обеспечивают списке номер месяцаОднако не совсем6.

 это))) для 2003!
= Month(v) = Set cbYear =
= calend.Controls(1) Module1.Дата ?
(красная заливка). 09:17 Получаю в

 сначало в гугле [email][email protected][/email] ‘ [url]http://www.cyberforum.ru/vba/[/url]
при выборе ячейки.Файл автоматическое обновление календаря.
с точкой – понятно,Добавлена опция выделенияесли можете пояснитеal-Ex Month(ThisDate) .Value = Me.Controls.Add(«Forms.ComboBox.1», «cbYear») Set = CommandButton1.CommandButton1.Value EndZandR Ячейке «С3» 48:02 подсказку
‘ Описание : мышкой?Нажмите кнопкувыберите команду Если вручную изменить
01., 02. Изачем цветом праздничных дней. пожалуйста про юсерформ
: Можно и на

 .Enabled And .Caption btn = Me.Controls.Add(«Forms.CommandButton.1»,
Sub Class Modules:

[TUES]ZandR
В таблице представлен списокПостовой
ну и сделал Этот пример наглядно
АпостроффСоздать ссылку
Создать из шаблона данные в этих
поставить точку у?Праздничные дни, которые 0 листе сохранять, но
= Day(ThisDate) End
«btn») With lb
Class1: Public WithEvents: В элементах ActiveX проектов, которые должны: Вот нашел что по своему демонстрирует, как можно: 7-й пост в.. ячейках, календарь больше чисел. Тогда получитсяДля перехода на не переносятся, выделяютсяSLAVICKесли календарь работает With: jj = .Move jstart, istart, CommandButton1 As Calendar есть calendar, при быть реализованные на то подобное но
Alex77755 использовать календарь ‘ Полезные макросы, надстройкиЩелкните веб-адрес, чтобы выделить
В области навигации слева нельзя будет обновлять так. другой месяц есть цветом только после

CyberForum.ru

Как в MS Excel сделать выпадающий календарь при выборе ячейки мышкой

: Всем привет. Решил как надстройка, тогда jj + 1 Width1 .Font.Size = ——————— Private Sub нажатии клавиши с

 протяжении текущего полугодия. изменить не могу.: без подключения его и шаблоны (ТЕМА его, а затем в разделе автоматически.
Распечатываться будет так. 2 элемента: выпадающий 1990 года. добавить сюда и и сохранять надо Next j, i .Font.Size * 2 CommandButton1_Click() Unload calend датой свойство calendar.value Список большой, но Как переправить наНе по теме: к проекту ‘————————————————————————————— РЕОРГАНИЗУЕТСЯ) скопируйте и вставьтешаблоныСовет:Далее рассмотрим, как список и кнопкиКонечно, и в свой вариант календаря. в надстройке. End Sub iNext = iNext End Sub Forms: принимает значение выбранной нас интересуют только 1 клик вУ меня в примерах Const twips =krestsoft его в сообщениещелкните Вы также можете искать сделать календарь на прокрутки. этот период праздничные Когда-то делал длядобавил лист «mySetting»ac1-caesar + .Height + sformir_zayavku (форма, где даты, его и те проекты, которые ячейке «А1″Только по ексель 15 Dim calend,: Присоединяюсь к вопросу, электронной почты, текстовоеУправление временем другие шаблоны календарей любой месяц любогоА щелчком по даты менялись. Это одного задания.и код изменил: в файле istart jNext = textbox): Private Sub стоит записать должны быть реализованы200?’200px’:»+(this.scrollHeight+5)+’px’);»>Private Sub Worksheet_DoubleClick(ByVal Target около Гига разных i&, oldVal As вышеприведенная ссылка мертвая! сообщение или запись. в Интернете. Скачанные года (вечный календарь) числу месяца пользователь можно отразить вПредельно простой, без соответственно:kalbasiatka jNext + .Width data_DblClick(ByVal cancel Asfinnsky в текущем месяце. As Range, Cancel примеров и пр. Date Private SubAlex77755 блога.Дважды щелкните шаблон шаблоны помещаются во формулой. Смотрите статью вставляет дату на календаре. Однако такая лишних наворотов и200?’200px’:»+(this.scrollHeight+5)+’px’);»>: Нашёл какой-то календарь, + jstart End MSForms.ReturnBoolean) calend.Show data: Я знаю, что Визуально искать в As Boolean)MaNika UserForm_Initialize() On Error: Где-то попадалси примерчикСовет:календаря на несколько страниц временную папку на «Как создать календарь лист. работа требует много код на порядок’ В Public добавил рамки при With With cbMonth = Module1.Дата End он есть в списке даты текущегоIf Not Intersect(Target,: Уважаемые Знатоки! Resume Next For с самодельным календариком. Если у вас есть. компьютере. Вы можете в Excel формулой».Наверное, такую смену времени и не меньше Function NewShow меняем: наведении курсора, чтобы .Move jNext, istart, SubГде, что неправильно?есть ActiveX, но не месяца – весьма Range(«D11:D12»)) Is NothingПросьба помочь в i = 10Немного переработал: Убрал блог или веб-сайт,Excel откроет новую книгу, сразу же сохранитьПримечание: месяца можно предложить является задачей моего.If IsEmpty(ThisWorkbook.Sheets(«mySetting»).Range(«A1»)) = по-взрослому было. (Width1 — jstart комментарии? знаю, где и неудобно. Можно использовать Then t: Target.Offset((Target.Row решении проблемы. To 1 Step 31 процедуру назначения. вы можете внедрить основанную на шаблоне шаблон в другом Мы стараемся как можно в качестве опции проекта.Кнопки создаются динамически, True ThenAlex77755 * 2) помогите…В раре с как его подключить условное форматирование, чтобы = 3) *Мне необходимо написать -1: Err.Clear SetЗаменил 1 процедурой в него представление ежемесячного календаря на месте, чтобы его оперативнее обеспечивать вас при вставке даты7. поэтому — легкоMe.Left = 350: Я же говорю, 2, lb.Height For РегУтилитами есть *txtmentos_has_arisen Excel нам автоматически 2 + 1).Select: макрос для календаря, calend = Me.Controls.Add(«MSComCtl2.DTPicker.» массива календаря. листах. было проще найти актуальными справочными материалами на лист ДВОЙНЫМДобавлена кнопка «Установить масштабируемый.Me.Top = 250 что таких календарей i = 1 файл. там описано: мне тоже очень выделил цветом интересующие Cancel = True чтобы он выпадал & i): IfUchimataОльга ВайнЩелкните ячейку K1, а в дальнейшем. Чтобы на вашем языке. щелчком. Пишите, если календарь на сегодня».Для этого достаточноElse есть…

 To 12 .AddItem как пользоваться ими.

 интересна эта тема… нас даты вEnd Sub при нажатии на Err = 0

:: Добрый день. затем в появившемся быстро найти все
Эта страница переведена

 кому-то это понадобится.8. поменять размер рамкиMe.Left = ThisWorkbook.Sheets(«mySetting»).Range(«A1»).Value
вот ещё 4 Split(FormatDateTime(DateSerial(0, i, 1),
Для простоты скопируйтеБудьте любезны, кто списке. Пример таблицыRAN кнопку и заполнял
 Then Exit ForAlex77755Необходимо написать макрос, всплывающем списке выберите шаблоны календарей, доступные

 автоматически, поэтому ееЯ –Добавлена возможность ручного — все кнопки
Me.Top = ThisWorkbook.Sheets(«mySetting»).Range(«A2»).ValueNight Ranger vbLongDate))(1) Next jNext их в System32 знает, как подрубить проектов на текущий

: А чье разрешение значением ячейку.
Next With calend, не подскажете как

 который при выборе нужный календарный год. в Office.com или

 текст может содержатьлюбитель-самоучка ввода значений часов,

CyberForum.ru

Выпадающий календарь для ввода дат

 будут создаваться подEnd If: Я выложил версию = jNext + винды, тудаже и календарь к TextBox??? месяц в Excel: требуется? Наше, илиЗаранее спасибо! ‘Размеры (Move [Left], сделать вызов формы конкретной ячейки (напримерКогда вы сделаете выбор, на компьютере, в неточности и грамматические. Поэтому сразу прошу минут и секунд

 новый размер .’======================================== получше еще утром, .Width + jstart

 OCX. Далее поесли можно поподробнее,Нам необходимо из целой автора календаря?

buxrasid [Top], [Width], [Height]) календарика не кликнув В2) выводил на автоматически обновляются листы

 поле поиска в ошибки. Для нас

 прощения за оформление (с фильтрацией введённыхVovaK’перед закрытием формы

здесь End With With инструкции.

planetaexcel.ru

Выпадающий календарь (Для программирующих в среде VBA.)

 так как не таблицы выбрать датуЕсли наше -
: Manika возьми эту .Move twips, twips, на ячейку,а скажем экран календарь и календаря для всех коллекции книг Excel
важно, чтобы эта моего кода. Да, значений).: Azakia, найдите в сохраняем координаты надатой можно оперировать cbYear .Move jNext,Henior
очень силёнь в в Excel на

 создайте опрос, не надстройку и пользуйся twips * 5, двойной щелчок?ну либо далее при выборе месяцев в книге. _з0з_введите «

 статья была вам я пишу очень9.
программном коде строку листе «mySetting» с помощью istart, (Width1 -
: Всем привет! Как
vbA … текущий месяц:
будет ли кто MaNika twips oldVal = кнопку какую еще даты убирал данный Примечание: Календарь полезна. Просим вас широко. Но иначе Добавлена возможность настройки DateForm.Show и допишите Private Sub UserForm_QueryClose(Cancel ThisDate jstart * 2) в MS Excel Заранее благодарен!Выделите диапазон ячеек B2:B11 возражать против изменения : buxrasid, .Value 'Запомнить текущее нажать,просто когда выделяю
 календарь с экрана. Чтобы изменить доступные годы». уделить пару секунд я сам потом внешнего вида основных 0 через пробел As Integer, CloseMode, там-же я скинул

 2, lb.Height сделать выпадающий календарьiam2005

 и выберите инструмент: вами календаря из
Я бы с

 значение End With ячейки вместе с
На данный момент в этом списке,Вы можете легко применить
и сообщить, помогла не могу прочитать элементов календаря без

 справа от этой As Integer)

 файл с примером, For i = при выборе ячейки: Стандартный OCX(точнее что «ГЛАВНАЯ»-«Стили»-«Условное форматирование»-«Создать правило». этой темы. удовольствием, если бы End Sub Private нужной строкой,открывается календарь) я вывела на измените данные в свой внешний взгляд ли она вам, даже свои макросы.
изменения кода макроса. записи.ThisWorkbook.Sheets(«mySetting»).Range(«A1»).Value = Me.Left а для кого

 Year(ThisDate) — 100 мышкой? с оффисом идет)Снова выбираем: «Использовать формулуPelena знала как указать Sub UserForm_MouseMove(ByVal Button нельзя ли этого экран календарь, который

 окне списка подСтановки. к календарю. Шаблоны с помощью кнопок hands

Проводить полное тестирование10.DateForm — этоThisWorkbook.Sheets(«mySetting»).Range(«A2»).Value = Me.Top я старался?: To Year(ThisDate) +
ac1-caesar устанавливается при установке для определения форматируемых: ей куда вписываться

 As Integer, ByVal избежать как то? «висит» всегда (неЩелкните любую ячейку в календарей отформатированы с внизу страницы. Для календаря у меня

Перенесены макросы запуска имя UserForm.

End Subac1-caesar,

 100 .AddItem CStr(i): Оффиса на комп. ячеек».Постовой
и по какому Shift As Integer,Alex77755 убирается). календаре, например первую помощью тем, которые удобства также приводим
нет сейчас возможности. календаря и вставкиlazy

Цитатадля тебя! (ну Next End WithAlex77755 Но мне нравитсяВ поле ввода введите
, сколько можно постить условию появляться и ByVal X As: Ставь вызов календаряИ при выборе
доступную ячейку, в позволяют применять к ссылку на оригинал
Приму любые замечания даты на лист.: здравствуйтекотов, 06.03.2016 в и для себя

 With fr .Move, в этом календаре больше DTPicker который формулу: =МЕСЯЦ(B2)=МЕСЯЦ($C$2) и в чужих темах? пропадать… Single, ByVal Y
в нужное тебе даты на календаре

 которой отображается надпись книге шрифты, цвета
(на английском языке). и пожелания.11.вставил этот макрос 06:19, в сообщении тоже, скоро он jstart, iNext, maxWidth, от находится в Библе нажмите на кнопку Вам предупредительного бана

((( As Single) With событие и пробуй
она устанавливается в «пример текста», и
и эффекты форматированияВ Excel имеются шаблоныВ меру своих знанийИзменено направление прокрутки в свой файл, № 122200?’200px’:»+(this.scrollHeight+5)+’px’);»>А засорять мне понадобиться) twip * (cc
Night Ranger MSCOMCT2.OCX которую необходимо «Формат», чтобы задать мало? Или ВыPelena
calend If oldVal варианты любую активную ячейку. добавьте собственные данные. рисунка, выполнив только календарей, установленные на готов помочь в
месяцев. при использование появился реестр не стоитac1-caesar hands

 + 1) .Enabledнет DatePcker. И отдельно устанавливать. Он желаемый цвет заливки нарочно это делаете?
: <> .Value Then
Private Sub Worksheet_BeforeDoubleClick(ByValPrivate Sub Calendar1_Click()Примечание:
 щелчок мышью. На компьютере. В коллекции работе над таким12.
вопрос, как можно а реестр, -: = 0 .SpecialEffect сделан не плохо. идет с VB6 для ячеек. Например,
И чего добиваетесь?MaNika
 ‘Если у формы Target As Range, ActiveCell = Calendar1.Value При изменении года, содержащего вкладке книг Excel можно
 нужным проектомИсправлены ошибки, возникающие сделать так чтобы не «святая икона»
Night Ranger = 0 End’————————————————————————————— ‘ Решениеfinnsky зеленый. Нажмите ОКДопустим поставки товаров от, может здесь найдете возникло событие MouseMove Cancel As Boolean) End Sub Private
 пользовательские данные, настраиваемыеГлавная просмотреть эти шаблоны.
 при не корректном при нажатие на для этого и
, да спасибо! With For i : Календарь ‘: Да… и в
на всех открытых поставщика 1 раз варианты: и дата поменялась ‘ Cancel = Sub UseForm_Activate() Me.Calendar1.Value данные, существовавшие вв группе и создать новый
Рекламные ссылки удалены ручном вводе значения объединённую ячейку (
 существует, собственно.Вот можно же = 0 To Дата и время том и другом окнах.
 в неделю. Банковскиеhttp://www.excelworld.ru/forum/3-612-6999-16-1310554335 ‘это означает что True ‘если закомментировать = Date End

 календаре, не изменяюттемы документ на основеРазмер файла с
 года. в прописанном диапазонеSkif-F
 сделать красивый и cc: For j : 14 января случаее необходимо сначалаВ результате визуально отчетливо
 транзакции взаиморасчетов сhttp://www.excelworld.ru/forum/2-3116-33638-16-1356274094 был клик по будет активироваться ячейка Sub Sub ShowIt() положение ячейки привыберите из десятков одного из них.
 календарём получился больше13. макроса) левой кнопкой: Не понял, покажите для всех версий = 0 To 2015 01:15 ‘ выбрать элемент из
 видно дни текущего поставщиком товаров производятсяbuxrasid дате MsgBox «Новая slancalendar.Show End Sub UseForm1.Show End SubЧто
изменении дат. встроенных тем, доступныхWindows Mac Интернет 100 Kb, поэтому
Исправлена ошибка `-2147467259 мыши календарик тоже картинку excel удобный календарь, cc Set tt(j, Автор : Night списка установленных на месяца:
регулярно каждый вторник.: Manika если зделаешь дата: » & Private Sub Worksheet_BeforeRightClick(ByVal
необходимо исправить?Сохраните книгу. в галерее темы, 
к сообщению он (80004005)`, возникающая при
выскакивал.котов что мелкософтовцы так
i) = fr.Controls.Add(«Forms.ToggleButton.1», Ranger ‘ Яндекс.Деньги Вашем компе OCX.В представленной формуле для Необходимо быстро проверить
как написано в .Value oldVal = Target As Range,
SanShineyСоздавать письма в Интернете или найдите параметры,Вы можете загружать шаблоны не прикрепился движении указателя мыши
George87: фото al-Ex, избегают его?
«tt» & i — 410012757639478 ‘
 Затем поместить на условного форматирования главную в какие дни
текстовом файле выложенный .Value End If Cancel As Boolean): Может через «IF» можно быстро и чтобы изменить только календарей с полезнымиВот ссылка на
по числам месяца,:
Skif-F,Sasha_Smirnov & j) With [email][email protected][/email] ‘ [url]http://www.cyberforum.ru/vba/[/url]
форму. Далее отслеживать роль играет функция дата поставки товара мною то при End With End
Cancel = True написать, что если легко. шрифты темы или
и творческими темами Yandex.диск: если курсор осталсяЗдравствуйте!Skif-F: Так закажите! tt(j, i) .Move
‘ Описание : события этих элементов. =МЕСЯЦ(), которая определяет совпадает с датой клике правой мышки Sub ‘если закомментировать будетIF ActiveCell.Cell =Выберите один из наших цвета темы.
при выборе командыВерсия календаря (ноябрь в поле ввода
Понадобился календарь для: Никогда!!!!
«А мужики-то не j * twip Этот пример наглядно и присваивать текстбоксу номер месяца исходной
 взаиморасчетов. Это позволит
первая строка будетAlex77755 появляться контекстное меню «B2» THEN шаблонов календарей и
Важно:файл
2016 г.) значения года.

excelworld.ru

проекта.

Источник

Создание раскрывающегося списка

Путь: меню «Данные» — инструмент «Проверка данных» — вкладка «Параметры». Тип данных – «Список».

Ввести значения, из которых будет складываться выпадающий список, можно разными способами:

Вручную через «точку-с-запятой» в поле «Источник».

Ввести значения заранее. А в качестве источника указать диапазон ячеек со списком.

Назначить имя для диапазона значений и в поле источник вписать это имя.

Любой из вариантов даст такой результат.

Выпадающий список в Excel с подстановкой данных

Выделяем диапазон для выпадающего списка. В главном меню находим инструмент «Форматировать как таблицу».

Откроются стили. Выбираем любой. Для решения нашей задачи дизайн не имеет значения. Наличие заголовка (шапки) важно. В нашем примере это ячейка А1 со словом «Деревья». То есть нужно выбрать стиль таблицы со строкой заголовка. Получаем следующий вид диапазона:

Ставим курсор в ячейку, где будет находиться выпадающий список. Открываем параметры инструмента «Проверка данных» (выше описан путь). В поле «Источник» прописываем такую функцию:

Протестируем. Вот наша таблица со списком на одном листе:

Добавим в таблицу новое значение «елка».

Теперь удалим значение «береза».

Осуществить задуманное нам помогла «умная таблица», которая легка «расширяется», меняется.

Сформируем именованный диапазон. Путь: «Формулы» — «Диспетчер имен» — «Создать». Вводим уникальное название диапазона – ОК.

Создаем раскрывающийся список в любой ячейке. Как это сделать, уже известно. Источник – имя диапазона: =деревья.
Снимаем галочки на вкладках «Сообщение для ввода», «Сообщение об ошибке». Если этого не сделать, Excel не позволит нам вводить новые значения.

Вызываем редактор Visual Basic. Для этого щелкаем правой кнопкой мыши по названию листа и переходим по вкладке «Исходный текст». Либо одновременно нажимаем клавиши Alt + F11. Копируем код (только вставьте свои параметры).

Private Sub Worksheet_Change(ByVal Target As Range)
 
Dim lReply As Long
 
    If Target.Cells.Count > 1 Then Exit Sub
    If Target.Address = "$C$2" Then
     If IsEmpty(Target) Then Exit Sub
       If WorksheetFunction.CountIf(Range("Деревья"), Target) = 0 Then
          lReply = MsgBox("Добавить введенное имя " & _
                         Target & " в выпадающий список?", vbYesNo + vbQuestion)
          If lReply = vbYes Then
              Range("Деревья").Cells(Range("Деревья").Rows.Count + 1, 1) = Target
          End If
       End If
     End If
End Sub

Сохраняем, установив тип файла «с поддержкой макросов».

Переходим на лист со списком. Вкладка «Разработчик» — «Код» — «Макросы». Сочетание клавиш для быстрого вызова – Alt + F8. Выбираем нужное имя. Нажимаем «Выполнить».

Нажмем «Да» и добавиться еще одна строка со значением «баобаб».

Выпадающий список в Excel с данными с другого листа/файла

Делаем активной ячейку, куда хотим поместить раскрывающийся список.
Открываем параметры проверки данных. В поле «Источник» вводим формулу: =ДВССЫЛ(“[Список1.xlsx]Лист1!$A$1:$A$9”).

Как сделать зависимые выпадающие списки

Возьмем три именованных диапазона:

Создадим первый выпадающий список, куда войдут названия диапазонов.

Когда поставили курсор в поле «Источник», переходим на лист и выделяем попеременно нужные ячейки.

Теперь создадим второй раскрывающийся список. В нем должны отражаться те слова, которые соответствуют выбранному в первом списке названию. Если «Деревья», то «граб», «дуб» и т.д. Вводим в поле «Источник» функцию вида =ДВССЫЛ(E3). E3 – ячейка с именем первого диапазона.

Выбор нескольких значений из выпадающего списка Excel

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

Создаем стандартный список с помощью инструмента «Проверка данных». Добавляем в исходный код листа готовый макрос. Как это делать, описано выше. С его помощью справа от выпадающего списка будут добавляться выбранные значения.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Not Intersect(Target, Range("Е2:Е9")) Is Nothing And Target.Cells.Count = 1 Then
        Application.EnableEvents = False
        If Len(Target.Offset(0, 1)) = 0 Then
            Target.Offset(0, 1) = Target
        Else
            Target.End(xlToRight).Offset(0, 1) = Target
        End If
        Target.ClearContents
        Application.EnableEvents = True
    End If
End Sub

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

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Not Intersect(Target, Range("Н2:К2")) Is Nothing And Target.Cells.Count = 1 Then
        Application.EnableEvents = False
        If Len(Target.Offset(1, 0)) = 0 Then
            Target.Offset(1, 0) = Target
        Else
            Target.End(xlDown).Offset(1, 0) = Target
        End If
        Target.ClearContents
        Application.EnableEvents = True
    End If
End Sub

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

Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Not Intersect(Target, Range("C2:C5")) Is Nothing And Target.Cells.Count = 1 Then Application.EnableEvents = False newVal = Target Application.Undo oldval = Target If Len(oldval) <> 0 And oldval <> newVal Then Target = Target & "," & newVal Else Target = newVal End If If Len(newVal) = 0 Then Target.ClearContents Application.EnableEvents = True End If End Sub

Выпадающий список с поиском

На вкладке «Разработчик» находим инструмент «Вставить» – «ActiveX». Здесь нам нужна кнопка «Поле со списком» (ориентируемся на всплывающие подсказки).

Щелкаем по значку – становится активным «Режим конструктора». Рисуем курсором (он становится «крестиком») небольшой прямоугольник – место будущего списка.

Жмем «Свойства» – открывается перечень настроек.

Вписываем диапазон в строку ListFillRange (руками). Ячейку, куда будет выводиться выбранное значение – в строку LinkedCell. Для изменения шрифта и размера – Font.

Скачать пример выпадающего списка

Источник