Автозаполнение ячеек, ускорение работы

@AlexanderSh88 · Регистрация: 28.09.2015

Студворк — интернет-сервис помощи студентам

Здравствуйте, подскажите, пожалуйста как можно сделать авто заполнение ячеек как можно удобнее и быстрее. В столбце B "Наименование" я сделал выпадающие списки, данные находятся на листе "Товары". Заполнял я... и понял, что как то медленно это все, список виден только на 8 позиций, и постоянно приходится листать вниз, искать.. на это уходит время. Можно ли сделать, чтобы было видно больше 8 позиций?. А еще лучше, чтобы при написании появлялись варианты предлагающие заполнить. Например начал Яб, появилось яблоки, нажал энтер, заполнилось. Пробовал стандартной ф-цией excel.. но она не показывает варианты если позиций несколько... например у меня в данных фасоль белая и фасоль красная, я начинаю писать ф Ничего не появляется.. оказывается нужно вообще написать фасоль б Чтобы показалась фасоль белая.. это большая затяжка времени. И еще огромнейший минус, авто заполнение идет только если эти данные в том же столбце выше, а если они на другом листе непонятно как их прикрутить. Цель. быстро заполнить столбец Наименование. Хотелось бы через авто заполнение, т.е. начал писать 1-2 букв, энтер, опять 1-2 букв опять энтер.. и так на одном дыхании было бы быстренько. Может кто может подсказать. Формула, макрос, что угодно, лишь бы ускорить работу.......
Список на листе "Товары" пополняется

@Alex77755 · 02.10.2015, 01:55

Много раз обсуждалось. Один из вариантов

@AlexanderSh88 · 02.10.2015, 03:53 **[ТС]**

Спасибо. гораздо быстрее дело пошло. А нельзя сделать, чтобы показывало варианты, совпадающие только по первым буквам?
т.е.
если напишу "п" показывается только
помидоры
помело
помидоры розовые

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

@Alex77755 · 02.10.2015, 07:12

Ничто не мешает сделать дополнительную проверку

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub TextBox1_Change()
Dim i As Long, rng As Range, Адрес As String
    ListBox1.Clear
    With Range("Фрукты")
        Set rng = .Find(What:=TextBox1.Value, LookIn:=xlValues, LookAt:=xlPart)
            If Not rng Is Nothing Then
                Адрес = rng.Address
                Do
                   If LCase(Left(rng.Value, 1)) = LCase(Left(TextBox1.Value, 1)) Then
                        ListBox1.AddItem rng
                   End If
                   Set rng = .FindNext(rng)
                Loop While Адрес <> rng.Address
            End If
    End With
End Sub

@AlexanderSh88 · 02.10.2015, 07:30 **[ТС]**

Спасибо, работает, сохранил оба варианта на всякий случай

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@AlexanderSh88 2 / 2 / 2 Регистрация: 28.09.2015 Сообщений: 286
	02.10.2015, 03:53 [ТС]
	Спасибо. гораздо быстрее дело пошло. А нельзя сделать, чтобы показывало варианты, совпадающие только по первым буквам? т.е. если напишу "п" показывается только помидоры помело помидоры розовые а эти варианты не показываются: капуста шиповник апельсины 0

@AlexanderSh88 2 / 2 / 2 Регистрация: 28.09.2015 Сообщений: 286
	02.10.2015, 07:30 [ТС]
	Спасибо, работает, сохранил оба варианта на всякий случай 0

Автозаполнение ячеек, ускорение работы

Решение