Выпадающий список в excel при наборе текста

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

Классический выпадающий список в ячейке листа Excel, сделанный через Данные — Проверка (Data — Validation) — простая и удобная штука, которую ежедневно применяют очень многие пользователи. Однако, у этого списка есть один весьма серьезный недостаток — в нём нет быстрого поиска по первым символам, т.е. фильтрации (отбора) только тех значений, куда введённый фрагмент входит как подстрока. Это серьезно ухудшает удобство пользования даже если в списке всего пара-тройка десятков позиций, а при нескольких сотнях убивает юзабилити напрочь.

Давайте рассмотрим как всё же реализовать подобный трюк. В качестве подопытного кролика возьмём список 250 лучших фильмов по версии IMDb:

Конечная цель — создать выпадающий список (ячейка G3), в котором можно будет быстро находить нужные фильмы, введя только жанр, год или фрагмент названия, например «гамп».

Шаг 1. Определяем, кто нам нужен

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

Теперь завернем нашу формулу в функцию проверки ЕЧИСЛО (ISNUMBER), которая превратит числа в логическую ИСТИНУ (TRUE), а ошибки — в ЛОЖЬ (FALSE):

Теперь сделаем так, чтобы ЛОЖЬ превратилась в 0, а вместо ИСТИНА в столбце появились последовательно возрастающие индексы-числа 1,2,3… и т.д. Это можно сделать с помощью добавления к нашей же формуле ещё парочки функций:

Здесь функция ЕСЛИ (IF) проверяет что мы имеем (ИСТИНУ или ЛОЖЬ), и

• если была ИСТИНА, то выводит максимальное значение из всех вышестоящих чисел + 1
• если была ЛОЖЬ, то выводит 0

Шаг 2. Отбираем в отдельный список

Дальше — проще. Теперь банальной функцией ВПР (VLOOKUP) просто выведём все найденные названия (я добавил столбец с порядковыми номерами для удобства):

После этого можно поиграться, вводя в жёлтую ячейку G2 разные слова и фразы и понаблюдать за тем, как наши формулы отбирают только подходящие фильмы:

Шаг 3. Создаем именованный диапазон

Теперь создадим именованный диапазон, который будет ссылаться на отобранные фильмы. Для этого выбрем на вкладке Формулы команды Диспетчер имен — Создать (Formulas — Name Manager — Create):

Имя диапазона может быть любым (например, Фильмы), а самое главное — это функция СМЕЩ (OFFSET), которая и делает всю работу. Напомню её синтаксис, если вы подзабыли:

=СМЕЩ(начальная_ячейка; сдвиг_вниз; сдвиг_вправо; высота; ширина)

У нас:

• В качестве начальной ячейки задаём первую ячейку списка отобранных элементов (E2).
• Сдвиги вниз и вправо у нас отсутствуют, т.е. равны нулю.
• Высота диапазона у нас соответствует максимальному значению индекса из столбца А.
• Ширина диапазона — 1 столбец.

Осталось сделать выпадающий список.

Шаг 4. Создаем выпадающий список

Выделим жёлтую ячейку (G2) и выберем на вкладке Данные команду Проверка данных (Data — Validation). В открывшемся окне выбрем Список (List) в поле Тип данных (Allow), а в качестве источника введем имя нашего созданного диапазона со знаком равно перед ним:

Чтобы Excel не ругался при вводе на неточное совпадение наших фраз с исходным списком, на вкладке Сообщение об ошибке (Error Alert) в этом окне нужно выключить флажок Выводить сообщение об ошибке (Show error alert):

Вот и всё. Можно жать на ОК и наслаждаться результатом:

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

P.S. 

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

Всё, что мы делали на Шагах 1-3 заменяется одной(!) формулой, где новая функция ФИЛЬТР (FILTER) отбирает из исходного диапазона A2:A251 только те фильмы, которые содержат заданную подстроку.

А дальше останется при создании выпадающего списка указать в качестве источника первую ячейку диапазона отобранных фильмов (C2) и добавить к ней знак #, чтобы получить ссылку на весь динамический массив:

И всё. Никаких именованных диапазонов и медленных СМЕЩ, никаких танцев с дополнительными столбцами и формулами. Песня!

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

• Что такое динамические массивы в Excel
• Разбор трех основных функций динамических массивов: СОРТ, ФИЛЬТР и УНИК
• 4 способа создать выпадающий список на листе Excel

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

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

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

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

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

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



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



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

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



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

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

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



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



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

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

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

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

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

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

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



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



4. Вызываем редактор 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
 

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



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

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

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

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

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

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

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

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

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

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

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



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



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



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

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

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

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
 

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

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
 

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


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


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

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

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



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



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



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

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

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

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

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

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

   

   Примечания: 

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

   • Сейчас самое время
     отсортировать данные в диапазоне или таблице
     в раскрывающемся списке.

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

3. Перейдите на вкладку
   данных
   
   на ленте, затем

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

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

4. На вкладке
   
   Параметры
   
   в поле
   
   Разрешить
   
   щелкните
   
   Список
   
   .

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

   

6. Если можно оставить ячейку пустой, установите флажок
   
   Игнорировать пустые
   
   ячейки.

7. Установите флажок
   
   Список допустимых значений
   

8. Откройте вкладку
   
   Сообщение для ввода.
   

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

     

9. Откройте вкладку
   
   Сообщение об ошибке.
   

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

     

10. Не знаете, какой параметр выбрать в поле
    
    Вид
    
    ?

    • Чтобы отобразить сообщение, не препятствующее вводу данных, которые не содержатся в раскрывающемся списке, выберите вариант
      
      Сведения
      
      или Предупреждение. Если выбрать вариант «Сообщение», сообщение будет отображаться со значком
      
      , а если «Предупреждение» — со значком
      
      .

    • Чтобы заблокировать пользователям ввод данных, которые не содержатся в раскрывающемся списке, выберите вариант
      
      Остановка
      
      .

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

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

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

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

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

2. Выделите ячейки, для которых нужно ограничить ввод данных.

3. На вкладке
   
   Данные
   
   в группе
   
   Инструменты
   
   щелкните
   
   Проверка данных
   
   или
   
   Проверить
   
   .

   

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

4. Откройте вкладку
   
   Параметры
   
   и во всплывающем меню
   
   Разрешить
   
   щелкните
   
   пункт Список
   
   .

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

   Диалоговое окно свернется, чтобы было видно весь лист.

6. Нажмите клавишу ВВОД или кнопку
   
   Развернуть
   
   , чтобы развернуть диалоговое окно, а затем щелкните
   
   ОК
   
   .

   Советы: 

   • Значения также можно ввести непосредственно в поле
     
     Источник
     
     через запятую.

   • Чтобы изменить список допустимых элементов, просто измените значения в списке-источнике или диапазон в поле
     
     Источник
     

   • Можно указать собственное сообщение об ошибке, которое будет отображаться при вводе недопустимых данных. На вкладке
     
     Данные
     
     щелкните
     
     Проверка данных
     
     или
     
     Проверить
     
     , а затем щелкните
     
     Сообщение об ошибке
     
     .

См. также

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

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

   Примечания: 

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

   • Теперь следует
     отсортировать данные в том порядке, в котором они должны отображаться
     в раскрывающемся списке.

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

3. Откройте вкладку
   
   Данные
   
   на ленте и щелкните кнопку
   
   Проверка данных
   
   .

4. На вкладке
   
   Параметры
   
   в поле
   
   Разрешить
   
   щелкните
   
   Список
   
   .

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

   
   Фрукты;Овощи;Зерновые культуры;Молочные продукты;Перекусы
   

6. Если можно оставить ячейку пустой, установите флажок
   
   Игнорировать пустые
   
   ячейки.

7. Установите флажок
   
   Список допустимых значений
   

8. Откройте вкладку
   
   Сообщение для ввода.
   

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

9. Откройте вкладку
   
   Сообщение об ошибке.
   

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

10. Щелкните
    
    ОК
    
    .

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

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

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

См. также

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

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

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

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

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

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

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

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

Если столбец содержит несколько записей, которые соответствуют первым нескольким символам, Excel не отобразит предложение по автоматическому завершению, пока новая запись не будет соответствовать одной из старых однозначным образом. Например, если столбец также содержит продукт под названием «сахар-рафинад», автозавершение не будет реализовано, пока вы не введете либо первую букву слова «песок», либо первую букву слова «рафинад».

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

Вы даже можете получить доступ к списку с клавиатуры: нажмите Shift+F10 для отображения контекстного меню, а затем нажмите клавишу К (горячую клавишу для команды Выбрать из раскрывающегося списка). Используйте кнопки со стрелками, чтобы сделать свой выбор, и нажмите Enter.

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

Автозаполнение ячеек в Microsoft Excel

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

Работа автозаполнения в Эксель

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

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

Автозаполнение ячеек числами

Чаще всего автозаполнение используется для ввода большого массива чисел, которые следуют по порядку. Например, в определенной ячейке стоит цифра 1, а нам нужно пронумеровать ячейки от 1 до 100.

Активируем маркер заполнения и проводим им вниз на необходимое количество ячеек.

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

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

Существует также способ сделать автозаполнения ряда прогрессии.

Вносим в соседние ячейки два первых числа прогрессии.

Инструмент «Заполнить»

В программе Excel есть также отдельный инструмент, которые называется «Заполнить». Расположен он на ленте во вкладке «Главная» в блоке инструментов «Редактирование».

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

С помощью данного инструмента можно также заполнить ячейки прогрессией.

Заносим число в ячейку и выделяем диапазон ячеек, который будет заполняться данными. Жмем на кнопку «Заполнить», а в появившемся списке выбираем пункт «Прогрессия».

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

Кроме того, в отдельных случаях, устанавливаются единицы измерения.

Автозаполнение формулами

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

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

Автозаполнение другими значениями

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

Точно так же, можно произвести автозаполнение по дням недели (понедельник, вторник, среда…) или по месяцам (январь, февраль, март…).

Более того, если в тексте будет любая цифра, то Эксель распознает её. При использовании маркера заполнения произойдет копирование текста с изменением цифры по нарастающей. Например, если вы запишите в ячейку выражение «4 корпус», то в других ячейках, заполненных с помощью маркера заполнения, это название преобразится в «5 корпус», «6 корпус», «7 корпус» и т.д.

Добавление собственных списков

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

Делаем переход во вкладку «Файл».

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

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

При вводе первых букв подбирается слово в excel как сделать

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

Процедура трансформации первой буквы в заглавную

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

Способ 1: замена первой буквы в ячейке на заглавную

Для решения поставленной задачи используется основная функция ЗАМЕНИТЬ, а также вложенные функции первого и второго порядка ПРОПИСН и ЛЕВСИМВ.

• Функция ЗАМЕНИТЬ осуществляет замену одного символа или части строки на другие, согласно указанным аргументам;
• ПРОПИСН – делает буквы прописными, то есть, заглавными, что нам и требуется;
• ЛЕВСИМВ – возвращает указанное количество знаков конкретного текста в ячейке.

То есть, исходя из этого набора функций, с помощью ЛЕВСИМВ мы вернем в указанную ячейку первую букву, с помощью оператора ПРОПИСН сделаем её заглавной, а затем функцией ЗАМЕНИТЬ заменим строчную букву на прописную.

Общий шаблон данной операции будет выглядеть следующим образом:

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

В любом свободном месте данного листа или на другом листе записываем следующую формулу:

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

Способ 2: каждое слово с большой буквы

Но бывают случаи, когда нужно сделать не только первое слово в ячейке, начинающимся с заглавной буквы, а вообще, каждое слово. Для этого тоже существует отдельная функция, причем, она намного проще предыдущей. Эта функция называется ПРОПНАЧ. Её синтаксис очень простой:

На нашем примере её применение будет выглядеть следующим образом.

1. Выделяем свободную область листа. Кликаем по значку «Вставить функцию».
2. В открывшемся Мастере функций ищем «ПРОПНАЧ». Найдя это наименование, выделяем его и жмем на кнопку «OK».
3. Открывается окно аргументов. Ставим курсор в поле «Текст». Выделяем первую ячейку с фамилией в исходной таблице. После того, как её адрес попал в поле окна аргументов, жмем на кнопку «OK».

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

Потом нужно будет нажать кнопку Enter.

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

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

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

Мы рады, что смогли помочь Вам в решении проблемы.

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

Помогла ли вам эта статья?

Итак, полистал форум, особенно тему «Списки в Эксель»

Так и не нашлось в теме ни одного решения…..

В общем есть список, допустим имена. список постоянно пополняется новыми именами (вплоть до 65536 строк)

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

как сделать так, чтобы при наборе первых букв, появлялись все позиции с набранной последовательностью букв(например вводим Лю, и сразу появляется список с Любовь и Люся). И нам остается курсором выбрать из списка например Люся и оно появляется в ячейке. Если вдруг данного имени не окажется в списке то после нажатия кнопки «Ввод» это имя добавляется в конец списка.

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

1. Переход указателя к нужной ячейке во время ввода данных.

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

Выберите: Файл -> Параметры -> Дополнительно -> Параметры правки. Поставьте флажок «Переход к другой ячейке после нажатия клавиши ВВОД» и в соответствующем раскрывающемся списке выберите то направление, которое вам больше подходит в данный момент.

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

2. Храните данные в таблицах данных:

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

Для добавления таблицы данных Excel, выберите диапазон ячеек, содержащих данные, и нажмите на кнопку Таблица, находящуюся во вкладке «Вставка» на ленте или нажмите сочетание клавиш «CTRL + T».

Несколько хитростей таблиц данных:

• Таблицы данных вставляются со своим собственным набором фильтров данных и параметром сортировки по умолчанию. Без таблиц данных Excel допускает только один набор фильтров на листе. Однако если рабочий лист имеет более одной таблицы, то каждая таблица может иметь свои собственные фильтры и параметры сортировки.
• Формулы внутри таблицы данных могут использовать осмысленные имена заголовков вместо использования ссылок на ячейки. Кроме того, при добавлении или удалении строк не нужно беспокоиться об обновлении ссылок.
• С помощью структурированных ссылок, вычисления внутри столбцов становятся очень простыми. Кроме того, Excel автоматически заполняет формулу внутри остальной части ячеек в столбце.
• Таблицы данных могут быть отформатированы одним кликом мыши по пункту «Стили» во вкладке «Конструктор».
• Повторяющиеся данные могут быть удалены из таблиц данных одним кликом мыши по пункту «Удалить дубликаты» во вкладке «Конструктор» на ленте.
• Таблицы данных могут быть преобразованы обратно в диапазон одним кликом мыши по кнопке «Преобразовать в диапазон» во вкладке «Конструктор».
• Таблицы данных могут быть экспортированы в список SharePoint так же одним кликом мыши по кнопке «Экспорт» во вкладке «Конструктор».
• Таблицы данных можно суммировать, добавив итоговую строку, поставив флажок в чек-боксе «Строка итогов» во вкладке «Конструктор».

Ввод данных с помощью форм

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

Нажмите на кнопку Настройка панели быстрого доступа

Выберите из списка пункт Другие команды. Выберите Все команды из выпадающего списка. Чуть ниже найдите Форма в большом списке и выделите его

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

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

В этом диалоговом окне есть следующие кнопки:

• Добавить: Добавляет новую запись в таблицу данных
• Удалить: Удаляет отображаемую запись из таблицы данных
• Вернуть: Восстановление изменений, внесенных в таблицу данных
• Назад / Далее: Находит записи, указанные в поле Критерии
• Критерии: Получение данных, которые удовлетворяют критериям набора
• Закрыть: Закрывает диалоговое окно

4. Проверка данных с помощью раскрывающегося списка:

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

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

Совет: Если в раскрывающемся списке мало данных, то вы можете ввести значения непосредственно в поле Источник, разделенные запятыми.

5. Автозамены для ввода данных:

Автозамена по умолчанию подразумевает такие полезные вещи, как написание предложений с заглавной буквы, или исправление случайного нажатия Caps Lock. Кроме того, можно настроить Автозамену создавая сокращения для часто используемых слов или фраз. Например, ниже я использую аббревиатуру: «гос» для «государство».

Для того чтобы добраться до Параметров автозамены, нажмите на Файл -> Параметры -> Правописание -> Параметры автозамены. В качестве альтернативы можно воспользоваться сочетанием клавиш: ALT + T + Т.

Автозамена несколько хитростей:

• Чтобы добавить новую автозамену, введите заменяемый текст в поле Заменять и введите замещающий текст, который будет в поле На, а затем нажмите кнопку Добавить.
• Чтобы удалить автозамену найдите ее в списке автозамен и нажмите кнопку Удалить.
• Чтобы отменить сработавшую автозамену, нажмите CTRL + Z при вводе информации в ячейку.
• Для совместного использования автозамен с вашими друзьями или коллегами, просто найдите файл *.acl на своем компьютере и скопируйте его на компьютер друга или коллеги.
• Excel преобразует адрес электронной почты или записи веб URL в гиперссылки с использованием автозамены. Чтобы изменить автоматическое преобразование текста в гиперссылку, просто нажмите кнопку Отменить (или нажмите Ctrl + Z) после того, как вы вводите текст. Гиперссылка исчезнет, но текст, который вы ввели останется неизменным. Чтобы полностью отключить эту функцию, снова перейдите в раздел Параметры автозамены -> Нажмите на вкладку: Автоформат при вводе -> уберите флажок: «адреса Интернета и сетевые пути гиперссылками».

6. Автозаполнения для автоматизации ввода данных:

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

Автозаполнение несколько хитростей:

• Автозаполнение работает только на смежной ячейке, поэтому не оставляйте пустых строк, чтобы в полной мере использовать автозаполнение
• Автозаполнение изменяет регистр букв автоматически
• Если столбец содержит несколько вхождений записи, которые соответствуют первым нескольким вводимых вами символам, то автозаполнение не сработает пока ваша запись не станет соответствовать хотя бы одному из них полностью.
• Вы можете получить доступ к автозаполнению, кликнув правой кнопкой мыши по ячейке и выбрав пункт «Выбрать из раскрывающегося списка». Также вы можете получить доступ к этому же раскрывающемуся списку с помощью горячей клавиши: Shift + F10.

7. Аудиокоррекция (работает, к сожалению, только с английским текстом и числами)

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

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

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

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

Функция LOW переводит весь текст в нижний регистр, функция UPPER переводит весь текст в верхний регистр, функция PROPER переводит в верхний регистр первую букву каждого слова в тексте.

Поэтому для решения задачи будем использовать сочетание нескольких функций в изящной формуле, которая работает и с первой буквой, делая ее заглавной, и с остатком текста, переводя его в нижний регистр:
=UPPER(LEFT(A1))&RIGHT(LOWER(A1);LEN(A1)-1)

То же на русском языке:

=ПРОПИСН(ЛЕВСИМВ(А1))&ПРАВСИМВ(СТРОЧН(А1);ДЛСТР(А1)-1)
За варианты, помощь и идеи спасибо форуму сайта www.planetaexcel.ru и отдельно господину Казанскому.

В категории Правописание представлены только две группы элементов управления: Параметры автозамены и При исправлении орфографии в программах Microsoft Office.

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

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

• Показать кнопки возможностей автозамены — в этом режиме после выполнения автозамены появляется кнопка, позволяющая отменить выполненное действие или подобрать другое слово для замены из
  списка.
• Исправлять две прописные буквы в начале слова — этот режим позволяет исправлять достаточно часто встречающуюся ошибку набора, когда вы вовремя не успеваете отпустить клавишу Shift, и в результате у вас в имени или названии появляются две прописные буквы вместо одной, первой. В этом режиме такая ошибка будет исправляться автоматически прямо во время ввода. Как только в конце слова, в котором появилась подобная ошибка, вы нажмете клавишу пробела, ошибка будет исправлена.
• Делать первые буквы предложений прописными — этот режим очень полезен для тех, кто печатает быстро и вслепую. Он позволяет в начале каждого предложения не нажимать клавишу Shift. Обнаружив в тексте точку, Excel автоматически сделает следующую букву прописной. Если же вы используете в тексте много сокращений, то вам нужно либо добавить все сокращения в список исключений (см. далее), либо сбросить данный флажок, поскольку после каждого сокращения, оканчивающегося точкой, у вас будет появляться прописная буква в середине предложения.
• Названия дней с прописной буквы — этот режим тоже может сильно раздражать… Вы пишете «окружающая среда», а вам услужливо переделывают предложение в «окружающая Среда».
• Устранять последствия случайного нажатия CapsLock — этот режим призван учитывать то, что люди часто, пытаясь нажать клавишу Shift, промахиваются и нажимают соседнюю клавишу CapsLock. В результате первая буква слова становится строчной, а остальные — прописными. Для автоматического исправления подобных ошибок установите этот флажок.
• Заменять при вводе — вы можете сформировать свой список автозамены, а также отредактировать существующий. Это очень удобно, если вам приходится часто вводить неудобопечатаемые длинные словосочетания. Вы можете, например, вместо слов «коллоидный слабощелочной раствор» задать последовательность автозамены «кср» и в дальнейшем вводить эту последовательность, которая автоматически будет заменяться нужным вам словосочетанием.

Многочисленные флажки, расположенные в разделе При исправлении орфографии в программах Microsoft Office, предназначены для настройки системы проверки правописания.

Выпадающий список в MS EXCEL на основе Проверки данных

​Смотрите также​Во-первых, созданный выпадающий ActiveX​Источник (Source)​ где то слямзил,​Выбор 2 Выбор​ = s &​ на 13​ массиве имени «города».​ же через 5​ есть похожий прототип​ не получается. Макросы,​ As Range) On​ позволит нам вводить​ я хочу… А​Спасибо.​ Источник.xlsx должен быть​ книги (это справедливо​

​При заполнении ячеек данными,​ список может находится​знак равенства и​

​ сейчас уже не​ 4​ X(i, 1) &​и получиться второй​ Файл перезалил.​ минут решаю сам​

​ … буду очень​ которые выложены в​ Error Resume Next​ новые значения.​ хочу я что​Судя по количеству​ открыт и находиться​

​ для EXCEL 2007​ часто необходимо ограничить​

А. Простейший выпадающий список — ввод элементов списка непосредственно в поле Источник

​ в двух принципиально​ имя диапазона (т.е.​ вспомню.Но если речь​Мысли на доработку​ «~» ‘формирует по​ список, а нифига​

​Виктор C​​ эту проблему)​​ признателен!!​ интернет не работают.​ If Not Intersect(Target,​Вызываем редактор Visual Basic.​​ бы при нажатии​​ просмотров, и нулевому​ в той же​

​ и более ранних).​ возможность ввода определенным​ разных состояниях -​=Товары​ только о переменной,​ (не очень понимаю​

​ сочетанию букв в​ ((( Dim bu​​: Добрый день подскажите​​разобрался )​Заранее большущее спасибо!​ На форуме тоже​ Range(«Е2:Е9»)) Is Nothing​ Для этого щелкаем​ на ячейку появилось​

​ количеству ответов, то​​ папке, иначе необходимо​Избавимся сначала от второго​ списком значений. Например,​ режиме отладки, когда​).​​ то переменную уже​​ как реализовано):​ любом месте текста​ As Boolean Private​ как можно реализовать​нужно было просто​
​Апострофф​​ не нашел.​

Б. Ввод элементов списка в диапазон (на том же листе, что и выпадающий список)

​ And Target.Cells.Count =​ правой кнопкой мыши​ выпадающее окно со​ что я хочу​ указывать полный путь​ недостатка – разместим​ имеется ячейка, куда​ можно настраивать его​

​Нажмите​ я добавлял.​1) Окно по​​ If UCase(txt) =​​ Sub ComboBox1_Change() End​ поиск в выпадающем​

​ изменить в свойствах​​: …​Подскажите пожалуйста как​ 1 Then Application.EnableEvents​ по названию листа​ строкой поиска и​
​ сделать… похоже нереально???​​ к файлу. Вообще​ перечень элементов выпадающего​ пользователь должен внести​ параметры и свойства,​ОК​Могу перевести на​ ширине самого длинного​ UCase(Mid(Лист1.Cells(i, 13), 1,​​ Sub Private Sub​​ списке по смыслу​ формы start up​mc-black​ сделать эту функцию​ = False If​ и переходим по​ что бы поиск​ikki​ ссылок на другие​

​ списка на другом​ название департамента, указав​ двигать его по​.​ русскийЦитатаalex1210 написал:​ значнеия​ lt)) Then s​ Worksheet_SelectionChange(ByVal Target As​ если ввести букву​ position на CenterScreen)​: Посмотрите этот пример:​

​ поиска в выпадающем​ Len(Target.Offset(0, 1)) =​ вкладке «Исходный текст».​ начинался с первых​: простыми способами -​

B. Ввод элементов списка в диапазон (на любом листе)

​ листы лучше избегать​ листе.​ где он работает.​ листу и менять​Все! Наслаждайтесь!​NomStolbDan = ActiveCell.Column​

​2) Повторный выбор​ = s &​ Range) On Error​ А в поле​

​gizon​ Выпадающий список, отфильтрованный​ списке, в каждой​ 0 Then Target.Offset(0,​ Либо одновременно нажимаем​

​ букв, а не​ нет.​ или использовать Личную​В правилах Проверки данных (также​ Логично, предварительно создать​ размеры и -​Важный нюанс. В качестве​ + 11Это: НомерСтолбцаСДанными=АктивнаяЯчейка.Столбец+11.​

​ в ячейки не​
​ X(i, 1) &​ Resume Next If​ отображались все что​​: Доброго времени суток.​​ по введенным буквам​
​ ячейке.​

• ​ 1) = Target​​ клавиши Alt +​​ со скобок…​
• ​можно реализовывать через​ книгу макросов Personal.xlsx​
• ​ как и Условного​ список департаментов организации​ режиме ввода, когда​

​ источника данных для​ Если активировать ячейку​ работает, если что​ «~» ‘формирует по​

• ​ Target.Count > 1​
• ​ есть на букву​Прошу, подсказать, как​ Могу скорректировать его​

​Pelena​
​ Else Target.End(xlToRight).Offset(0, 1)​ F11. Копируем код​asd192​ ComboBox, обработку нажатий​ или Надстройки.​​ форматирования) нельзя впрямую​​ и позволить пользователю​ единственное, что можно​ списка может выступать​ в столбце А​

​ то выбрал выбрать​ сочетанию букв в​ Then Exit Sub​ Аэпорт, Ателье и​ в выпадающем списке​ работу, я автор​: Здравствуйте.​ = Target End​

​ (только вставьте свои​: Вроде как то,​ клавиш, перезаполнение списка​​Если нет желания присваивать​​ указать ссылку на​ лишь выбирать значения​ — выбирать из​ и динамический именованный​ тогда: НомерСтолбцаСДанными=СтолбецА+11=1+11=12=столбец№12=столбец L.​

​ еще раз​

​ начале текста Next​ If Not Intersect(Target,​ тд.​ при наборе в​ этого примера.​Посмотрите это Готовое​ If Target.ClearContents Application.EnableEvents​ параметры).Private Sub Worksheet_Change(ByVal​ что вам нужно​ и т.п.​ имя диапазону в​

​ диапазоны другого листа​​ из этого списка.​ него данные. Переключение​ диапазон, например прайс-лист.​Активируем ячейку столбца​3) Как я​ i ListBox2.List =​

​ Range(«A2:A3000»)) Is Nothing​Мотя​ нём названия города,​

​Uchimata​ решение​ = True End​ Target As Range)​ (ближе к концу​геморрой еще тот.​

• ​ файле Источник.xlsx, то​ (см. Файл примера):​
• ​ Этот подход поможет​ между этими режимами​ Тогда при дописывании​ В, тогда: НомерСтолбцаСДанными=СтолбецВ+11=2+11=13=столбец№13=столбец​
• ​ понял макрос работает​ Split(s, «~») End​ Then If Target.Value​
• ​: А что мешает​ появлялись соответствующие результаты,​:​Farvater​

​ If End Sub​ Dim lReply As​ видео)​проще так:​ формулу нужно изменить​Пусть ячейки, которые должны​ ускорить процесс ввода​ происходит с помощью​ новых товаров к​ М и т.д….​ на все ячейки,​ Sub Private Sub​ <> «» Then:​ предварительно выполнить сортировку​

​ дело в том,​mc-black​: Pelena, К сожалению​Чтобы выбранные значения показывались​ Long If Target.Cells.Count​

​http://www.planetaexcel.ru/tip.php?aid=34​
​1) иметь отсортированный​ на =ДВССЫЛ(«[Источник.xlsx]лист1!$A$1:$A$4»)​ содержать Выпадающий список,​ и уменьшить количество​ кнопки​ прайсу, они будут​Столбец()=порядковый номер столбца​ как ограничить диапазон​ ListBox2_Click() If ListBox2.ListIndex​ Me.TextBox1.Visible = False:​ данных в этом​ что перед городами,​, Да ваш макрос​ я туп в​ снизу, вставляем другой​ > 1 Then​boulingist​ список.​СОВЕТ:​ размещены на листе​ опечаток.​Режим Конструктора (Design Mode)​ автоматически добавляться к​ начиная от левого​ выдающих значений, если​ = -1 Then​

​ Me.ListBox1.Visible = False:​​ списке?​
​ поселками и прочими​ очень хорош!если можно​ Excel. Не понимаю​ код обработчика.Private Sub​ Exit Sub If​: Супер ссылка!!! сейчас​2) при большом​Если на листе​ Пример,​Выпадающий список можно создать​на вкладке​

​ выпадающему списку. Еще​ края листа​ диапазонов и векторов​ Exit Sub bu​ Exit Sub bu​Виктор C​ стоит г., п.​ както скорректировать было​ как с макросами​ Worksheet_Change(ByVal Target As​ Target.Address = «$C$2″​

​ просматриваю всё. Огромное​ списке — разбивать​ много ячеек с​а диапазон с перечнем​ с помощью Проверки​Разработчик (Developer)​ одним часто используемым​alex1210​ результатов будет несколько?​ = True ActiveCell.Value​ = True With​: ничего не мешает​ и т.д., а​ бы прекрасно.нельзя ли​ работать.​ Range) On Error​ Then If IsEmpty(Target)​ спасибо!!!​

excel2.ru

как в сделать выпадающий список с функцией поиска?

​ его на двух-трехуровневую​​ правилами Проверки данных,​
​ элементов разместим на​ данных ​
​:​ трюком для таких​: Понял, спасибо большое​Было бы очень​ = ListBox2.Value Me.TextBox2.Visible​ Me.TextBox1 .Top =​ это так к​ список очень большой.​ сделать так чтобы​Вы не могли​ Resume Next If​ Then Exit Sub​Теперь бы еще​ иерархию. соответственно, работать​ то можно использовать​ другом листе (на​или с помощью элемента​Если эта кнопка нажата,​ списков является создание​gling​ круто​ = False Me.ListBox2.Visible​ Target.Top .Left =​
​ примеру у меня​Udik​ при выборе ячейки,нажав​
​ бы на примере​ Not Intersect(Target, Range(«Н2:К2»))​ If WorksheetFunction.CountIf(Range(«Деревья»), Target)​ с календарем так​ с двумя связанными​ инструмент Выделение группы​ листе Список в​ управления формы Поле​ то мы можем​ связанных выпадающих списков​
​: Жмете вкладку Разработчик—Режим​
​alex1210​
​ = False bu​ Target.Left .Height =​ 10 слов на​: Вы хотите автодополнение,​ на кнопку таб​

​ моей таблице написать​​ Is Nothing And​ = 0 Then​
​ же разобраться…​ списками — выбирать​ ячеек (Главная/ Найти​ файле примера).​
​ со списком (см.​
​ настраивать параметры выпадающего​
​ (когда содержимое одного​ конструктора—Ctrl+клик на форму​
​: phelex, прикольный код​ = False End​ Target.Height .Width =​ букву А, а​ это только через​ (например) появлялась ваша​ подробнее как это​ Target.Cells.Count = 1​ lReply = MsgBox(«Добавить​

​Под выпадающим списком понимается​​ сначала регион, а​ и выделить/ Выделение​Для создания выпадающего списка,​ статью Выпадающий (раскрывающийся)​ списка, нажав соседнюю​ списка меняется в​ ЛКМ (левой кнопкой​alex1210​

​ Sub​​ Target.Width .Text =​ есть очень большие​ макросы.​
​ форма.И выбрав нужное​​ делать.​​ Then Application.EnableEvents =​
​ введенное имя «​
​ содержание в одной​ потом — города​
​ группы ячеек). Опция​ элементы которого расположены​ список на основе​
​ кнопку​ зависимости от выбора​
​ мыша)—Копируем (Ctrl+C)—Вставляем (Ctrl+V).​: А если база​
​gling​ Target.Value .Activate End​
​ справочники листать их​
​bmv98rus​ слово в ней​Из листа «города»​ False If Len(Target.Offset(1,​ & _ Target​ ячейке нескольких значений.​

​ из этого региона.​​ Проверка данных этого​ на другом листе,​ элемента управления формы).​

​Свойства (Properties)​​ в другом).​ Возможно есть и​ на другой странице,​: Для столбца А​
​ With With Me.ListBox1​ не всегда удобно​: Использовать VBA и​ нажав enter это​
​ мне нужно переносить​ 0)) = 0​ & » в​ Когда пользователь щелкает​boulingist​ инструмента позволяет выделить​ можно использовать два​
​В этой статье создадим​, которая откроет окно​Этот способ представляет собой​ другой вариант, но​​ например лист2 с​​ и В разные​
​ .Top = Target.Top​​ и не быстро​​ Combobox. Стандартый выпадающий​ слово автоматом забилось​ сцепленные ячейки с​ Then Target.Offset(1, 0)​
​ выпадающий список?», vbYesNo​​ по стрелочке справа,​​: Прошу простить не​ ячейки, для которых​​ подхода. Один основан​​ Выпадающий список с​ со списком всех​ вставку на лист​

​ я делаю так.​​ первого столбца.. что​ списки, Box используются​ .Left = Target.Left​

​Виктор C​​ список таким функционалом​
​ бы в ячейку.​ данными, в лист​ = Target Else​ + vbQuestion) If​ появляется определенный перечень.​

​ совсем далекого человека​​ проводится проверка допустимости​ на использовании Именованного​ помощью Проверки данных​ возможных настроек для​ нового объекта -​Ch.​ надо изменить?​
​ те же. Private​ + Target.Width .Clear​: вопрос снят нашел​ не обладает.​mc-black​ «данные», начиная со​ Target.End(xlDown).Offset(1, 0) =​ lReply = vbYes​ Можно выбрать конкретное.​ в делах компьютерных…​ данных (заданная с​ диапазона, другой –​ (Данные/ Работа с​ выделенного объекта:​ элемента управления «поле​: Спасибо Вам за​

​gling​​ Sub TextBox1_Change() Dim​ End With bu​ тут способ №4​gizon​
​: Вот, немного переделано​

​ K9 и до​​ Target End If​ Then Range(«Деревья»).Cells(Range(«Деревья»).Rows.Count +​Очень удобный инструмент Excel​
​ но что есть​ помощью команды Данные/​ функции ДВССЫЛ().​

CyberForum.ru

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

​ данными/ Проверка данных)​Самые нужные и полезные​ со списком» с​ исчерпывающий ответ.​: Если много разных​ X, i, txt​ = False Me.TextBox1.Visible​

​gling​: Спасибо, поищу в​Окно поиска появляется​ K1300, что бы​ Target.ClearContents Application.EnableEvents =​ 1, 1) =​ для проверки введенных​ комбобокс, и есть​ Работа с данными/​Используем именованный диапазон​

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

​ с типом данных​ свойства, которые можно​ последующей привязкой его​phelex​ списков, тогда лучше​

​ As String, lt,​ = True Me.ListBox1.Visible​: Здравствуйте. А комбобокс​ инете примеры.​

1. ​ по Ctrl+J, закрывается​ выпадал у меня​
2. ​ True End If​ Target End If​ данных. Повысить комфорт​ ли пошаговая инструкция​
3. ​ Проверка данных). При​Создадим Именованный диапазон Список_элементов,​ Список.​ и нужно настроить:​

​ к диапазонам на​: gling, больше спасибо​

​ так. Переменную назвал​

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

​ s As String​ = True Else​ не устраивает? Или​Не думаю, что​ при любом конечном​ этот список с​ End Sub​ End If End​

1. ​ работы с данными​ как реализовать задумочку​ выборе переключателя Всех​ содержащий перечень элементов​
2. ​Выпадающий список можно сформировать​ListFillRange​ листе. Для этого:​ за ваши ответы.​ НомерСтолбцаДанных (NomStolbDan), чтоб​ If Len(TextBox1.Text) =​ Me.TextBox1.Visible = False​ выпадающих списков много?​ подойдет combobox, ведь​ выборе или просто​ поиском.​Чтобы выбираемые значения отображались​ If End Sub​
3. ​ позволяют возможности выпадающих​ мою?​ будут выделены все​ выпадающего списка (ячейки​ по разному.​- диапазон ячеек,​В Excel 2007/2010 откройте​Уточните пожалуйста, а​

​ понятно было что​ 0 Or bu​ Me.ListBox1.Visible = False​

​ Если списков много​ у меня много​

​ по Esc.​

​Уже 2 неделю​ в одной ячейке,​Сохраняем, установив тип файла​

​ списков: подстановка данных,​ikki​ такие ячейки. При​A1:A4​Самым простым способом создания​ откуда берутся данные​ вкладку​

1. ​ возможно так сделать​ менять.​ Then Exit Sub​ End If End​ то можно тот​
2. ​ ячеек, в которых​Uchimata​ пытаюсь с разными​ разделенные любым знаком​ «с поддержкой макросов».​
3. ​ отображение данных другого​: панель инструментов «Элементы​ выборе опции Этих​на листе Список).​ Выпадающего списка является​ для списка. Выделить​Разработчик (Developer)​
4. ​ взаимозависимые списки?​Private Sub TextBox1_Change()​ txt = TextBox1.Text​ Sub Private Sub​ же комбобокс, но​ заполняется город, поищу​: Да!Это гениально!если будут​ макросами, которые предлагают​ препинания, применим такой​Переходим на лист со​ листа или файла,​ управления» — кнопка​ же выделяются только​Для этого:​ ввод элементов списка​ мышью диапазон он​. В более ранних​Что для этого​ Dim X, i,​ lt = Len(TextBox1.Text)​ TextBox1_Change() Dim X,​ с макросом по​ макрос.​ вопросы буду обращаться!Спасибо​ люди, по разным​ модуль.​ списком. Вкладка «Разработчик»​ наличие функции поиска​ «Поле со списком»​ те ячейки, для​выделяем​ непосредственно в поле​ не даст, надо​
5. ​ версиях — панель​ требуется?​
6. ​ txt As String,​ If ActiveCell.Column =​ i, txt As​ событию активации ячейки.​bmv98rus​ Вам большое!!​ формулам, все не​Private Sub Worksheet_Change(ByVal​

​ — «Код» -​ и зависимости.​у​ которых установлены те​А1:А4​ Источник инструмента Проверка​

​ просто вписать его​ инструментов​Спасибо​

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

​ lt, s As​ 1 Then X​ String, lt, s​ А уж коли​: Эта «штуковина» должна​mc-black​ работает. Либо текс​ Target As Range)​ «Макросы». Сочетание клавиш​Путь: меню «Данные» -​меня​

1. ​ же правила проверки​,​ данных.​
2. ​ руками с клавиатуры​Формы (Forms)​balzaminka​

​ String, NomStolbDan As​ = Лист1.Columns(12).SpecialCells(2).Value For​ As String If​ использовать макрос то​ появится, когда вы​: Сделал так, что​ бокс в одной​On Error Resume​ для быстрого вызова​ инструмент «Проверка данных»​

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

​пошаговой — нет.​

​ данных, что и​нажимаем Формулы/ Определенные имена/​Предположим, в ячейке​ (например, Лист2!A1:A5)​через меню​: Добрый день!​ Long If Len(TextBox1.Text)​ i = 1​

1. ​ Len(TextBox1.Text) = 0​ и формирование списка​ попадаете в определенную​
2. ​ будет брать текст​ ячейке предлагают, а​ Next​ – Alt +​ — вкладка «Параметры».​
3. ​но примерно так:​ для активной ячейки.​ Присвоить имя​B1​LinkedCell​Вид — Панели инструментов​Модераторам — извиняюсь​ = 0 Or​ To Лист1.Cells(Rows.Count, 12).End(xlUp).Row​ Or bu Then​ можно ему доверить,​ ячейку и при​ из колонки на​
   

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

   ​ мне то нужно​If Not Intersect(Target,​ F8. Выбираем нужное​ Тип данных –​0) изучить основы​

   1. ​Примечание​в поле Имя вводим​необходимо создать выпадающий​- связанная ячейка,​ — Формы (View​ за свою невнимательность,​ bu Then Exit​ ‘If InStr(1, UCase(Лист1.Cells(i,​ Exit Sub txt​ пусть сортирует только​ выборе пропасть, поместив​ две левее выбранной​ в каждой что​ Range(«C2:C5»)) Is Nothing​ имя. Нажимаем «Выполнить».​ «Список».​ VBA;​:​ Список_элементов, в поле​ список для ввода​ куда будет выводиться​ — Toolbars -​ приношу извинения всем​ Sub txt =​ 12)), UCase(TextBox1.Value)) >​ = TextBox1.Text lt​
   2. ​ соответствующие первым буквам.​ в эту ячейку​ ячейки. То есть​ бы выпадал это​ And Target.Cells.Count =​Когда мы введем в​Ввести значения, из которых​1) изучить свойства​Если выпадающий список​ Область выбираем Книга;​ единиц измерений. Выделим​ выбранный из списка​ Forms)​ за свои ошибки…​ TextBox1.Text lt =​ 0 Then s​ = Len(TextBox1.Text) X​ Подобные темы уже​ результат.​
   3. ​ в колонке C​ список с поиском.​ 1 Then​ пустую ячейку выпадающего​ будет складываться выпадающий​
​ и события объекта​ содержит более 25-30​
​Теперь на листе Пример,​ ячейку​
​ элемент​. Если этой вкладки​Вопрос - как​ Len(TextBox1.Text) NomStolbDan =​
​ = s &​
​ = Лист1.Columns(12).SpecialCells(2).Value For​
​ были на форуме.​
​Nic70y​
​ список брать из​Буду Вам очень​Application.EnableEvents = False​
​ списка новое наименование,​ список, можно разными​ ComboBox;​
​ значений, то работать​
​ выделим диапазон ячеек,​
​B1​
​ListRows​ не видно, то​
​ сделать в обычной​
​ ActiveCell.Column + 11​
​ X(i, 1) &​


   ​ i = 1​Виктор C​: на сайте есть:​ A, в D​ признателен.​newVal = Target​

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

   1. ​ появится сообщение: «Добавить​ способами:​2) вставить элемент​ с ним становится​ которые будут содержать​и вызовем Проверку​
   2. ​- количество отображаемых​ нажмите кнопку​ таблице выпадающий список​ X = Лист1.Columns(NomStolbDan).SpecialCells(2).Value​ «~» ‘формирует по​ To Лист1.Cells(Rows.Count, 12).End(xlUp).Row​
   3. ​: gling,не силен в​http://www.excelworld.ru/board/vba/tricks/find_in_database/9-1-0-27​
   4. ​ из B и​Юрий М​Application.Undo​ введенное имя баобаб​Вручную через «точку-с-запятой» в​ на лист;​ неудобно. Выпадающий список​ Выпадающий список.​

   ​ данных.​

   ​ строк​Офис — Параметры Excel​ с контекстным поиском?​ For i =​ сочетанию букв в​ ‘If InStr(1, UCase(Лист1.Cells(i,​ макросах(( я головой​Wasilich​ так далее. Исходный​: Добрый день всем​

   exceltable.com

Выпадающий список в каждой ячейке с функции поиска. (Формулы/Formulas)

​oldval = Target​​ в выпадающий список?».​
​ поле «Источник».​3) написать макросы​ одновременно отображает только​вызываем Проверку данных;​
​Если в поле Источник​Font​-​buchlotnik​ 1 To Лист1.Cells(Rows.Count,​ любом месте текста​ 12)), UCase(TextBox1.Value)) >​ понимаю что формулами​: Это как понимать?​ диапазон задается в​ любителям Excel !​
​If Len(oldval) <>​Нажмем «Да» и добавиться​Ввести значения заранее. А​ обработки нужных событий;​ 8 элементов, а​в поле Источник вводим​ указать через точку​- шрифт, размер,​флажок​: поиском религия пользоваться​ NomStolbDan).End(xlUp).Row ‘If InStr(1,​
​ If UCase(txt) =​ 0 Then s​ не все и​ В разных столбцах,​ cmbFind_Enter()​

​ В связи с​​ 0 And oldval​
​ еще одна строка​ в качестве источника​

​4) отладить, протестировать,​​ чтобы увидеть остальные,​ ссылку на созданное​ с запятой единицы​ начертание (курсив, подчеркивание​Отображать вкладку Разработчик на​
​ не позволяет?​ UCase(Лист1.Cells(i, NomStolbDan)), UCase(TextBox1.Value))​ UCase(Mid(Лист1.Cells(i, 12), 1,​ = s &​ не всегда сделать.​
​ что ли?​Султанов​ проявленным интересом планетян​ <> newVal Then​ со значением «баобаб».​ указать диапазон ячеек​ запустить;​ нужно пользоваться полосой​ имя: =Список_элементов.​ измерения шт;кг;кв.м;куб.м, то​
​ и т.д. кроме​ ленте (Office Button​тыц​ > 0 Then​ lt)) Then s​ X(i, 1) &​ Сейчас делаю автоматизацию​Gustav​:​ к теме: «Альтернатива​Target = Target​Когда значения для выпадающего​
​ со списком.​5) enjoy it!​

excelworld.ru

Альтернатива выпадающему списку (форма с поиском)_2 [GIG_ant]

​ прокрутки, что не​​Примечание​ выбор будет ограничен​ цвета)​ — Excel Options​тыцтыц​ s = s​ = s &​ «~» ‘формирует по​ производственных процессов на​: Стесняюсь спросить, а​Uchimata​ выпадающему списку (форма​ & «,» &​ списка расположены на​Назначить имя для диапазона​впрочем — интернет​ всегда удобно.​Если предполагается, что​ этими четырьмя значениями.​ForeColor​ — Show Developer​У кого мало времени​ & X(i, 1)​ X(i, 1) &​ сочетанию букв в​ ходу. Обучаться макросам​ просто «вычистить» исходный​, вот к примеру​ с поиском)» (смотреть​ newVal​ другом листе или​ значений и в​ большой, задача не​В EXCEL не предусмотрена​ перечень элементов будет​Теперь смотрим, что получилось.​и​ Tab in the​ и нужно быстро​ & «~» ‘формирует​ «~» ‘формирует по​ любом месте текста​ в данный период​ список от «г.»​

​ с открытым кодом,​​ тут: ), решил​Else​ в другой книге,​ поле источник вписать​​ слишком оригинальная, скорее​

​ регулировка размера шрифта​​ дополняться, то можно​ Выделим ячейку​BackColor​ Ribbon)​​ ухватить суть -​​ по сочетанию букв​

planetaexcel.ru

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

​ сочетанию букв в​​ If UCase(txt) =​ времени не имею​ и «п.» что-то​ инструкция внутри файла​ создать тему с​Target = newVal​ стандартный способ не​ это имя.​ всего, где-то уже​ Выпадающего списка. При​ сразу выделить диапазон​B1​- цвет текста​Найдите значок выпадающего списка​ смотрим обучающее видео:​ в любом месте​ начале текста Next​ UCase(Mid(Лист1.Cells(i, 12), 1,​
​ свободного времени​ мешает? Если же​Uchimata​ получившейся в процессе​
​End If​

​ работает. Решить задачу​​Любой из вариантов даст​

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

​ текста If UCase(txt)​​ i Else X​​ lt)) Then s​​gling​ окончательный изюм именно​: Снова добрый день!Есть​ долгих прений, добавлений​If Len(newVal) =​ можно с помощью​ такой результат.​ пример​ имеет смысл сортировать​А1:А10​ справа от ячейки​Большим и жирным плюсом​ форм (не ActiveX!).​

​ нюансы всех описанных​​ = UCase(Mid(Лист1.Cells(i, NomStolbDan),​
​ = Лист1.Columns(13).SpecialCells(2).Value For​ = s &​: Вот вариант того​ в них, то​ вопрос:а можно ли​

​ и исправлений, надстройкой.​​ 0 Then Target.ClearContents​ функции ДВССЫЛ: она​​

​boulingist​​ список элементов и​. Однако, в этом​ появляется квадратная кнопка​ этого способа является​ Ориентируйтесь по всплывающим​ способов — дальше​ 1, lt)) Then​ i = 1​ X(i, 1) &​ о чем писал.​ можно эти приставки​ вместо выпадающего списка​

​ Данная надстройка предоставляет​​Application.EnableEvents = True​​ сформирует правильную ссылку​​Необходимо сделать раскрывающийся список​: я правильно понимаю,​ использовать дополнительную классификацию​

​ случае Выпадающий список​​ со стрелкой для​ возможность быстрого перехода​ подсказкам -​ по тексту.​
​ s = s​ To Лист1.Cells(Rows.Count, 13).End(xlUp).Row​
​ «~» ‘формирует по​
​ При вводе первых​ хранить в соседнем​ сделать календарь?​
​ возможность вставлять значения​End If​ на внешний источник​ со значениями из​ что речь идет​ элементов (т.е. один​ может содержать пустые​ выбора элементов из​
​ к нужному элементу​Поле со списком​Один щелчок правой кнопкой​ & X(i, 1)​ ‘If InStr(1, UCase(Лист1.Cells(i,​ сочетанию букв в​ букв предлагается вариант.​ столбце и подтягивать​в интернете нашел​

​ из ранее созданных​​End Sub​ информации.​

​ динамического диапазона. Если​​ об excel?​​ выпадающий список разбить​​ строки.​ выпадающего списка.​ в списке при​:​
​ мыши по пустой​ & «~» ‘формирует​ 12)), UCase(TextBox1.Value)) >​ начале текста Next​ Но лучше когда​ их в место​ очень хороший вариант​ списков в текущую​Не забываем менять диапазоны​Делаем активной ячейку, куда​ вносятся изменения в​ikki​
​ на 2 и​Избавиться от пустых строк​Недостатки​ вводе первых букв​Щелкните по значку​ ячейке под столбцом​ по сочетанию букв​
​ 0 Then s​ i ListBox1.List =​ список отсортирован,близкие по​ вставки уже после​http://bourabai.kz/einf/excel/5_4.htm​
​ ячейку листа. Запуск​ на «свои». Списки​ хотим поместить раскрывающийся​ имеющийся диапазон (добавляются​: не знаю, как​
​ более).​ и учесть новые​этого подхода: элементы​ с клавиатуры(!), чего​
​ и нарисуйте небольшой​
​ с данными, команда​ в начале текста​ = s &​ Split(s, «~») End​

CyberForum.ru

Поиск по названию города в выпадающем списке (Формулы/Formulas)

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

​ контекстного меню​​ Next i ListBox1.List​ X(i, 1) &​ Sub Private Sub​

​ в раскрывающемся списке.​​Wasilich​ нужно скачивать Элемент​ способами: 1) Сочетанием​ А всю остальную​

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

​ = Split(s, «~»)​​ «~» ‘формирует по​ ListBox1_Click() If ListBox1.ListIndex​Виктор C​: не получится. Быстрей​ управления Календарь.​ клавиш CTRL+SHIFT+R 2)​ работу будут делать​

​ В поле «Источник»​​ в раскрывающемся списке.​
​ толкую​

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

​Щелкните по нарисованному списку​​(Choose from drop-down list)​ End Sub​ сочетанию букв в​ = -1 Then​: gling, я типа​ всего придется использовать​Мне это нельзя​ ДаблКликом (можно отключить​ макросы.​ вводим формулу: =ДВССЫЛ(“[Список1.xlsx]Лист1!$A$1:$A$9”).​Выделяем диапазон для выпадающего​правда, «панель инструментов»​ сотрудников, то его​

​ Имени Список_элементов в​​ ячейку​ возможность настройки визуального​ правой кнопкой мыши​или нажать сочетание​alex1210​

​ любом месте текста​​ Exit Sub bu​​ того уже сделал​​ форму. Ну типа​
​ делать,т.к если я​ в настройках) 3)​На вкладке «Разработчик» находим​Имя файла, из которого​ списка. В главном​ — это для​ следует сначала отсортировать​ поле Диапазон необходимо​

​B1​​ представления (цветов, шрифтов​
​ и выберите команду​

​ клавиш​​: Не получается данные​​ If UCase(txt) =​​ = True ActiveCell.Value​
​ с помощью элемента​ так, хотя возможны​

​ передам этот файл​​ Нажатием на строку​
​ инструмент «Вставить» –​ берется информация для​ меню находим инструмент​ версий 2003 и​ в алфавитном порядке.​ записать формулу =СМЕЩ(Список!$A$1;;;СЧЁТЗ(Список!$A:$A))​); не удобно вводить​ и т.д.)​Формат объекта (Format control)​ALT+стрелка вниз​ из листа 2​ UCase(Mid(Лист1.Cells(i, 13), 1,​ = ListBox1.Value Me.TextBox1.Visible​ ActiveX​ разные варианты.​
​ тому у кого​ меню «Поиск в​ «ActiveX». Здесь нам​ списка, заключено в​ «Форматировать как таблицу».​ старше.​ Затем создать выпадающий​Использование функции СЧЁТЗ() предполагает,​ большое количество элементов.​При использовании этого способа,​. В появившемся диалоговом​
​. Способ не работает,​ брать.Подскажите что в​ lt)) Then s​ = False Me.ListBox1.Visible​gling​bmv98rus​

excelworld.ru

Выпадающий список с возможностью поиска внутри списка

​ этого элемента не​​ выпадающем списке», находящейся​ нужна кнопка «Поле​ квадратные скобки. Этот​Откроются стили. Выбираем любой.​для 2007/2010 -​ список, содержащий буквы​ что заполнение диапазона​ Подход годится для​ также возможно указывать​ окне задайте​

​ если ячейку и​​ коде надо изменить​ = s &​ = False bu​: Посмотрите еще вариант.​

​:​​ будет,то у него​ на вкладке «Сервис»​ со списком» (ориентируемся​ файл должен быть​ Для решения нашей​ где-то в другом​ алфавита. Второй выпадающий​ ячеек (​ маленьких (3-5 значений)​

​ в качестве​​Формировать список по диапазону​ столбец с данными​

​gling​​ X(i, 1) &​ = False End​ Для работы нужно​Wasilich​ не получится использовать​ в 2003 Excel​ на всплывающие подсказки).​ открыт. Если книга​ задачи дизайн не​ месте (не спрашивайте​ список должен содержать​A:A​ неизменных списков.​ListFillRange​- выделите ячейки​ отделяет хотя бы​

​: Вместо Лист1 напишите​​ «~» ‘формирует по​ Sub Dim bu​ активировать ячейку в​,​ календарь.​ и на вкладке​Щелкаем по значку –​ с нужными значениями​ имеет значения. Наличие​ меня — где?​ только те фамилии,​

​), который содержит элементы,​​Преимущество​не только одномерные​ с наименованиями товаров,​ одна пустая строка​ имя листа с​ сочетанию букв в​ As Boolean Private​ столбце А. Писал​

​А форму то​​Вопрос:можно ли сделать​ «Надстройки» в 2007.​ становится активным «Режим​ находится в другой​

​ заголовка (шапки) важно.​​ — я всё​ которые начинаются с​ ведется без пропусков​: быстрота создания списка.​ диапазоны. Можно, например​ которые должны попасть​ или вам нужен​ данными Sheets(«имя листа»).​ начале текста Next​ Sub ComboBox2_Change() End​ не я, где​ зачем? CB на​ то же самое​ Так же в​ конструктора». Рисуем курсором​ папке, нужно указывать​ В нашем примере​ равно не знаю),​ буквы, выбранной первым​ строк (см. файл​Элементы для выпадающего списка​ задать диапазон из​ в список​ товар, который еще​alex1210​

​ i End If​​ Sub Private Sub​ то слямзил, сейчас​ лист. Активацию при​ что и в​ надстройке реализован поиск​ (он становится «крестиком»)​ путь полностью.​ это ячейка А1​ но аналогично.​ списком. Для решения​ примера, лист Динамический​ можно разместить в​

​ двух столбцов и​​Связь с ячейкой​ ни разу не​: Разобрался))))​ ListBox1.List = Split(s,​

​ Worksheet_SelectionChange(ByVal Target As​​ уже не вспомню.​ выбору ячеки с​ http://bourabai.kz/einf/excel/5_4.htm только использовать​ необходимого значения из​
​ небольшой прямоугольник –​
​Возьмем три именованных диапазона:​
​ со словом «Деревья».​
​ещё раз: в​ такой задачи может​
​ диапазон).​ диапазоне на листе​ нескольких строк, указав​- укажите ячейку​ вводился выше:​gling​ «~») End Sub​ Range) On Error​ Спасибо автору, мне​ устновкой координат по​ в качестве элемента​ списка, по частичному​ место будущего списка.​Это обязательное условие. Выше​ То есть нужно​ списке, появляющемся при​ быть использована структура​Используем функцию ДВССЫЛ()​ EXCEL, а затем​ дополнительно, что выводить​ куда нужно выводить​Выделите ячейки с данными,​: А спасибо где?​Виктор C​ Resume Next If​ очень понравилось по​ ячеке, ну и​ например LDDate?Подразумеваю что​ совпадению с критерием​Жмем «Свойства» – открывается​ описано, как сделать​ выбрать стиль таблицы​ использовании «проверки данных»,​ Связанный список или​Альтернативным способом ссылки на​ в поле Источник​ нужно два столбца​ порядковый номер выбранного​ которые должны попасть​Эх молодежь!​: gling, все красиво,​ Target.Count > 1​ этому и сохранил.​ фильтр CB при​ можно,но тогда нужно​ поиска. Код позиционирования​ перечень настроек.​ обычный список именованным​ со строкой заголовка.​ задумку не реализовать​ Вложенный связанный список.​ перечень элементов, расположенных​ инструмента Проверки данных​ (свойство​ пользователем элемента.​ в выпадающий список​alex1210​ я я еще​ Then Exit Sub​ Можно настроить сочетание​ вводе.​ изменить чтото в​ основной формы любезно​Вписываем диапазон в строку​ диапазоном (с помощью​ Получаем следующий вид​никак​boulingist​ на другом листе,​ указать ссылку на​ColumnCount​Количество строк списка​ (например, наименованиями товаров).​: Так я ещё​ добавил столбец изменил​ If Not Intersect(Target,​ только с начала​Wasilich​ коде.​ предоставил многоуважаемый Nerv.​ ListFillRange (руками). Ячейку,​ «Диспетчера имен»). Помним,​ диапазона:​.​: Всем здравствовать желаю!​ является использование функции​ этот диапазон.​=2). Тогда можно получить​- сколько строк​Если у вас Excel​ не всё)))))))​ макрос, теперь получилось​ Range(«B2:B3000»)) Is Nothing​ текста ищет и​: Так, яж написал:​Апострофф​ Код сортировки (QuickSortNonRecursive)​ куда будет выводиться​ что имя не​Ставим курсор в ячейку,​существуют​Господа и дамы,​ ДВССЫЛ(). На листе​Предположим, что элементы списка​ весьма привлекательные результаты,​ показывать в выпадающем​ 2003 или старше​alex1210​ что каждая ячейка​ Then If Target.Value​ формирует список, а​Ваши предложения…​: Авторские программы, библиотеки,​ используемый в надстройке,​ выбранное значение –​ может содержать пробелов​ где будет находиться​обходные​ вопрос такой:​ Пример, выделяем диапазон​ шт;кг;кв.м;куб.м введены в​ окупающие все потраченные​ списке. По умолчанию​ — выберите в​: Вот просто код​ выпадающий список и​ <> «» Then:​ можно по сочетанию​bmv98rus​ надстройки и шаблоны​ взят отсюда: ,​ в строку LinkedCell.​ и знаков препинания.​ выпадающий список. Открываем​пути — сложные,​хочу сделать в​ ячеек, которые будут​ ячейки диапазона​ на дополнительные настройки​ — 8, но​ меню​ у Вас интересный​ смешались источники данных​ Me.TextBox2.Visible = False:​ внутри текста. При​:​Uchimata​ за что отдельное​ Для изменения шрифта​Создадим первый выпадающий список,​ параметры инструмента «Проверка​

​ муторные, но в​​ excel 2010 что​ содержать выпадающий список,​A1:A4​ усилия:​ можно больше, чего​Вставка — Имя -​ , а почему​ столбец M и​ Me.ListBox2.Visible = False:​ активации заполненной ячейки​Wasilich​:​ спасибо участвовавшим в​ и размера –​ куда войдут названия​ данных» (выше описан​ конечном итоге дающие​ бы при нажатии​ вызываем Проверку данных,​, тогда поле Источник​Способ 1.​ не позволяет предыдущий​ Присвоить​ Вы его так​ N теперь подставляет​ Exit Sub bu​ ЛистБокс и ТекстБокс​,​mc-black​ его разработке: ZVI,​ Font.​ диапазонов.​ путь). В поле​ нужный результат.​ на ячейку, в​ в Источнике указываем​ будет содержать =лист1!$A$1:$A$4​Примитивный​ способ.​(Insert — Name -​ записали? Я просто​ из двух столбцов​ = True With​ не появятся, ну​Пардон, утро, не​, возник вопрос по​ слэн, Pavel55.​Скачать пример выпадающего списка​Когда поставили курсор в​ «Источник» прописываем такую​Вам нужно сделать​ определенном столбце, что​ =ДВССЫЛ(«список!A1:A4»).​Преимущество​Способ 2.​После нажатия на​ Define),​

​ учусь програмировать и​​ и каждая ячейка​ Me.TextBox2 .Top =​ это можете настроить​ дочитал :-)​ Вашему списку.Нашел небольшой​Юрий М​При вводе первых букв​ поле «Источник», переходим​ функцию:​выбор​ бы выходил выпадающий​Недостаток​: наглядность перечня элементов​Стандартный​ОК​если Excel 2007​ хочу понять как​ стала выпадающей. Объясните​ Target.Top .Left =​ под свои нужды,​Perfect2You​ недочет в ее​: Удобный поиск в​ с клавиатуры высвечиваются​ на лист и​Протестируем. Вот наша таблица​- забить на​ список всех городов​

​: при переименовании листа​​ и простота его​Способ 3.​списком можно пользоваться.​
​ или новее -​ и что NomStolbDan​ тупому ))) какие​
​ Target.Left .Height =​ например на двойной​
​: Сделал без макросов.​ появлении.​
​ выпадающем списке ВЕРСИЯ​ подходящие элементы. И​
​ выделяем попеременно нужные​ со списком на​
​ это дело​ россии. (впринципе, я​
​ – формула перестает​ модификации. Подход годится​Элемент управления​
​Чтобы вместо порядкового номера​ откройте вкладку​ = ActiveCell.Column +​
​ переменные нужно менять​ Target.Height .Width =​ клик очищать ячейку​На листе Лист1​При выборе ячейки​
​ 12.1 (надстройка для​ это далеко не​ ячейки.​ одном листе:​или​ его сделал, но​ работать. Как это​
​ для редко изменяющихся​Способ 4.​

​ элемента выводилось его​​Формулы (Formulas)​

​ 11​​ в макросе чтоб​ Target.Width .Text =​ и отображать Боксы.​ в ячейку B1​ расположенных ~ до​

​ 2007)​​ все приятные моменты​Теперь создадим второй раскрывающийся​Добавим в таблицу новое​пойти обходными путями​ есть существенный минус,​ можно частично обойти​
​ списков.​Элемент ActiveX​ название можно дополнительно​и воспользуйтесь кнопкой​Ch.​ например столбец А​ Target.Value .Activate End​ Экспериментируйте.​ вводится условие. Выпадающий​ 100 строки форма​[GIG_ant]​ данного инструмента. Здесь​ список. В нем​ значение «елка».​ (если Вы готовы,​ там нет строки​ см. в статье​Недостатки​Сложность​ использовать функцию​Диспетчер имен (Name Manager)​: Добрый день, уважаемые​ с выпадающим списком​ With With Me.ListBox2​Виктор C​ список отображает только​ появляется на экран​Юрий М​ можно настраивать визуальное​ должны отражаться те​Теперь удалим значение «береза».​ кшн).​ поиска. А сделал​ Определяем имя листа.​

​: если добавляются новые​​низкая​ИНДЕКС (INDEX)​, затем​ форумчане. В рамках​

​ A брал переменные​​ .Top = Target.Top​: gling, круто вообще!!!​ соответствующее условию или​

​ но соответственно ее​​: Удобный поиск в​

​ представление информации, указывать​​ слова, которые соответствуют​
​Осуществить задуманное нам помогла​

​boulingist​​ вот что: на​Ввод элементов списка в​

​ элементы, то приходится​​средняя​, которая умеет выводить​Создать​ данной темы у​ только с столбца​ .Left = Target.Left​ буду побывать адаптировать,​ все, если ячейка​ разположение постоянно меняется​ выпадающем списке ВЕРСИЯ​

​ в качестве источника​​ выбранному в первом​ «умная таблица», которая​: Конечно же надо​ листе 2 в​ диапазон ячеек, находящегося​ вручную изменять ссылку​высокая​ содержимое нужной по​. Введите имя (можно​ меня давно есть​ L. Столбец В​ + Target.Width .Clear​ сразу вопрос а​ пуста. Проверяет весь​ на экране.А когда​ 12.1 (файл Excel​ сразу два столбца.​ списке названию. Если​ легка «расширяется», меняется.​ попытаться сделать!!! Ща​ свободном столбце записал​ в другой книге​ на диапазон. Правда,​Возможность настройки шрифта, цвета​

​ счету ячейки из​​ любое, но обязательно​
​ нерешенный вопрос. А​ брал переменные только​ End With bu​ если одном листе​ столбец A на​ выбираешь ячейку со​ открытый код) [​
​Farvater​ «Деревья», то «граб»,​
​Теперь сделаем так, чтобы​ бы только разобраться…​ все города, присвоил​Если необходимо перенести диапазон​ в качестве источника​
​ и т.д.​ диапазона:​ без пробелов и​
​ именно: в приложенных​ в столбце M​ = False Me.TextBox2.Visible​

​ много таких выпадающих​​ листе Лист2. Так​

​ строкой 100+ то​​GIG_ant​: Здравствуйте.​ «дуб» и т.д.​ можно было вводить​ikki​ уникальное имя,в пункте​ с элементами выпадающего​

​ можно определить сразу​​нет​Этот способ частично напоминает​

​ начать с буквы!)​​ файлах реализован поиск​ и тд. В​
​ = True Me.ListBox2.Visible​ списков нужно вставить​ что, возможно, при​
​ и вовсе пропадает​]​
​Стоит задача сделать​

planetaexcel.ru

Выпадающий список с контекстным поиском (Формулы/Formulas)

​ Вводим в поле​​ новые значения прямо​
​: вот, нашлось: тынц​ ОБЛАСТЬ указал ЛИСТ1,​ списка в другую​ более широкий диапазон,​
​нет​ предыдущий. Основное отличие​ для выделенного диапазона​ с выпадающем списком.​

​ моей БОЛЬШОЙ таблице​​ = True Else​ в мою таблицу​
​ ооочень большом числе​
​ с экрана,видимо открывается​

excelworld.ru

Выпадающий список в ячейке листа

Видео

​Uchimata​ таблицу в которой​ «Источник» функцию вида​ в ячейку с​

​не скачивал, не​ скопировал ДИАПОЗОН, сохранил,​ книгу (например, в​ например,​

Способ 1. Примитивный

​да​ в том, что​ (например​ Если копировать код​ хочу разместить около​​ Me.TextBox2.Visible = False​ ​ с переменными как​​ городов и формул​ вне его видимости.​​: Здравствуйте!В интренете нашел​​ будет функция поиска​ =ДВССЫЛ(E3). E3 –​ этим списком. И​ проверял, но, судя​ перешел на лист1,​ книгу Источник.xlsx), то​A1:A100​Количество отображаемых строк​ на лист добавляется​

Способ 2. Стандартный

1. ​Товары​ из файлов-примеров возникает​ 15 выпадающих списка.Заранее​ Me.ListBox2.Visible = False​
2. ​ указать источники в​ в столбце C​Вопрос:как закрепить ее​ очень здоровскую вещь​​ в выпадающем списке.​ ячейка с именем​ ​ данные автоматически добавлялись​ по описанию -​​ данные, проверка данных,​ нужно сделать следующее:​. Но, тогда выпадающий​​всегда 8​​ не элемент управления,​​). Нажмите​​ ошибка на отсутствие​​ благодарен. извините за​​ End If End​ прилагаемом файле это​ на листе Лист2​ местоположения так ,чтобы​ «Выпадающий список с​То есть имеется​​ первого диапазона.​​ в диапазон.​​ то, что Вам​​ список, и вставил​
3. ​в книге Источник.xlsx создайте​ список может содержать​любое​ а элемент ActiveX​ОК​ Textbox1 и Listbox1.​​ настойчивость​ Sub Private Sub​​ я как понял​​ может тормозить.​​ она например окрывалась​​ поиском» ,но вот​​ пункт города в​Бывает, когда из раскрывающегося​​Сформируем именованный диапазон. Путь:​​ надо.​ диапозон).​​ необходимый перечень элементов;​​ пустые строки (если,​

​Быстрый поиск элемента по​​»Поле со списком»​​.​

​ В иных подобных​

​phelex​ TextBox2_Change() Dim X,​ UCase(Лист1.Cells(i, 12))​На листе Лист2​ все время по​ незадача.Он представлен как​ таблице, а на​ списка необходимо выбрать​ «Формулы» — «Диспетчер​boulingist​Проблема в том,​в книге Источник.xlsx диапазону​ например, часть элементов​ первым буквам​из раскрывающегося набора​Выделите ячейки (можно сразу​ темах ответ звучал,​: Друг очень крутое​

Способ 3. Элемент управления

​ i, txt As​gling​ в ячейке B1​ центру вне зависимости​ надстройка.Тоесть для того​ другом листе перечислены​ сразу несколько элементов.​ имен» — «Создать».​

1. ​: Да задумка именно​ что необходимый город​​ ячеек содержащему перечень​​ была удалена или​нет​ под кнопкой​​ несколько), в которых​​ что нужно их​​ решение. Как раз​ String, lt, s​: Да это ссылка​ число удовлетворяющих условию,​​ в каком месте​ чтобы заработал сначала​ все города. Нужно​​ Рассмотрим пути реализации​ ​ Вводим уникальное название​​ такая! скачивал, но​​ теперь найти сложно.​ элементов присвойте Имя,​ список только что​нет​Вставить (Insert)​ хотите получить выпадающий​
2. ​ создать или скопировать​ искал.​ As String If​ на столбец где​ в столбце С​​ листа я нахожусь?​​ нужно загрузить книгу,​
   
   ​ при вводе в​ задачи.​ диапазона – ОК.​ не разобрался как​
3. ​Как сделать что​ например СписокВнеш;​ был создан). Чтобы​​да​​с вкладки​ список и выберите​

​ на множественный выбор​​ Or bu Then​​ списка.​

​ условию значения. Если​ ,возможно вот здесь​ кто его сделал​ столбцом «города» раскрывать​​ помощью инструмента «Проверка​​ любой ячейке. Как​ спасибо.. Тема какраз​ списке появилась строка​ предполагается разместить ячейки​

Способ 4. Элемент ActiveX

​ необходимо сохранить файл.​ИНДЕКС​:​ вкладке)​ примеры работают без​ подточить? Типо:​​ Exit Sub txt​​Виктор C​ условие слабое, формул​​ нужно помимо данных​​ запоролил этот xla​​ список с городами,​​ данных». Добавляем в​

​ это сделать, уже​ та что мне​ поиска, при наборе​ с выпадающим списком;​Второй недостаток: диапазон источника​нет​Механизм добавления тот же​Данные — Проверка (Data​

​ них, либо они​Столбец 1 Столбец​ = TextBox2.Text lt​: хочется сделать красиво​ может не хватить​ функций добавить еще​ файл.Можно ли …​ созданный на другом​ исходный код листа​ известно. Источник –​ нужна!!!​ в которой напр.​выделите нужный диапазон ячеек,​ должен располагаться на​да​ — выбираем объект​ — Validation)​​ скрыты? И в​​ 2​​ = Len(TextBox2.Text) X​​ а VBA я​

​ — Вам решать:​ чтото,касающееся ее расположения?​ сделать этот макрос​ листе.​ готовый макрос. Как​​ имя диапазона: =деревья.​​Сейчас по колдовал​ : Е (выпадают​ вызовите инструмент Проверка​ том же листе,​

​нет​ из списка и​. Из выпадающего списка​

• ​ таком случае как​​Выбор 1 Выбор​ = Лист1.Columns(13).SpecialCells(2).Value For​ не знаю думал​ сколько их там​Private Sub UserForm_Initialize()​ для определенной книги.Чтобы​Т.к. городов много,​ это делать, описано​
• ​Снимаем галочки на вкладках​​ с это надстройкой…​ все города на​ данных, в поле​ что и выпадающий​
• ​Возможность создания связанных выпадающих​​ рисуем его на​Тип данных (Allow)​
• ​ их скопировать из​​ 1​ i = 1​ исправлю​ оставить.​
• ​ Me.Move ActiveWindow.PointsToScreenPixelsX(ActiveCell.Left), ActiveWindow.PointsToScreenPixelsY(ActiveCell.Top),​​ я смог передавать​​ нужно в списке​​ выше. С его​ «Сообщение для ввода»,​

​ в принципе штука​ Е), ЕК (всегорода​ Источник укажите =ДВССЫЛ(«[Источник.xlsx]лист1!СписокВнеш»);​ список, т.к. для​ списков​ листе. А вот​выберите вариант​ файлов примеров?​Выбор 1 Выбор​ To Лист1.Cells(Rows.Count, 13).End(xlUp).Row​ComboBox1 на ComboBox2;​Переделал немного. Ссылка​ ActiveCell.Width * 64​

​ один этот файл​ сделать поиск по​ помощью справа от​​ «Сообщение об ошибке».​​ хорошая, но как​ на ЕК) и​При работе с перечнем​ правил Проверки данных нельзя​нет​ дальше начинаются серьезные​Список (List)​gling​​ 2​​ ‘If InStr(1, UCase(Лист1.Cells(i,​TextBox1 на TextBox2;​ на столбец A​ 48Очень большая​ и у получателя​

Итоговая сравнительная таблица всех способов

	​ первым буквам, или​​ выпадающего списка будут​	​ Если этого не​​ оказалось не совсем​	​ так далее.​​ элементов, расположенным в​	​ использовать ссылки на​​да​
​ отличия от предыдущего​	​и введите в​	​: Цитатаgling написал:​	​Выбор 2 Выбор​
​ 13)), UCase(TextBox2.Value)) >​Range(«A2:A3000»)) на Range(«B2:B3000»));​	​ листа Лист2 осталась​	​ просьба помочь…​	​ он тоже работал.​
​ по похожим значениям.​	​ добавляться выбранные значения.Private​	​ сделать, Excel не​
​ то , что​Эт вообще возможно?​	​ другой книге, файл​	​ другие листы или​	​нет​
​ способа.​​ строчку​	​Писал не я,​	​ 3​	​ 0 Then s​
​поменял столбец 12​ только в динамическом​	​Всегда,как чтото спрашиваю,тут​	​Если у кого​	​ Третий день ищу,​

planetaexcel.ru

​ Sub Worksheet_Change(ByVal Target​