Страницы: 1
RSS
Большой выпадающий список с поиском и добавлением новых значений, Большой выпадающий список с поиском и добавлением новых значений
 
Добрый день. ув. форумчане. Посмотрел форум, посмотрел блог на тему "Выпадающие списки", есть примеры похожие на мою ситуацию, но все не подходит либо у меня не достаточно знаний.
Ситуация следующая, есть таблица (закреплена в примере, данные придуманы мной, т.к. в оригинале есть личные данные) в этой таблице есть столбцы в которых постоянно заполняются одинаковые данные, это столбец "Запчасти" и "Вид авто". Когда это делают в ручную иногда добавляют лишний пробел, невидимы символ или что-то другое и тогда когда я делаю сводную таблиц или срез, появляется несколько схожих значений. Количество уникальных значений столбца "Запчасти" близится к 300 шт, а "Вид авто" к 50 шт. если делать обычное выпадающее меню, то там отображается всего 8 наименований, а также из-за ограничения по ширине часть из них вообще не видны. Ширину столбца "Запчасти" менять нельзя ,т.к. таблица должна влазить полностью на экран монитора.
Прошу вашей помощи, в следующем:
- Как сделать чтобы в каждой ячейке столбца "Запчасти" и "Вид авто" появился "Выпадающий список" в котором полностью влазило название запчасти, их было больше 8 шт и был поиск по этому списку.
Заранее прошу сильно не ругаться, т.к. только осваиваю эксель и не все получается сделать самостоятельно, объясните пожалуйста, чтобы я смог все это перенести в основную таблицу.
Большое спасибо!!!
 
в двух словах... макросы нужны
 
либо перейти на office365 и просто использовать штатные средства для выпадающего списка - будет и ширина подстраиваемая и сразу поиск
 
Цитата
написал:
макросы нужны
Если без них не обойтись, то можно. Компьютер где эта таблица рабочий и не совсем любит макросы, а на некоторые действия даже нет прав
 
Цитата
написал:
либо перейти на office365 и просто использовать штатные средства для выпадающего списка - будет и ширина подстраиваемая и сразу поиск
Невозможно, компьютер, где эта таблица рабочий, на некоторые действия даже нет прав, а пользуемся тем что установили, самостоятельно переустановить нет прав
 
Да еще забыл отметить, на компьютерах где пользуются этой таблицей установлен офис 2010, и только на одном ПК 2019
 
Вариант с пользовательской формой.
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.CountLarge > 1 Then Exit Sub
    If Target.Row <= 5 Then Exit Sub
    If Target.Column = 2 Then
        UserForm1.ListBox1.RowSource = "=вид_авто"
    ElseIf Target.Column = 3 Then
        UserForm1.ListBox1.RowSource = "=запчасть"
    Else
        UserForm1.Hide
        Exit Sub
    End If
    UserForm1.Show
    UserForm1.Caption = Cells(4, Target.Column).Value
    UserForm1.Top = ActiveCell.Cells(3, 2).Top
    UserForm1.Left = ActiveCell.Cells(1, 2).Left + 20
End Sub

 
Цитата
написал:
Вариант с пользовательской формой.
Спасибо вам, попробую реализовать это на своем большом списка, если разберусь как это сделать )))  
 
Racer4eg, ник смените
Цитата
3. Запрещено
  3.2. Использовать в сообщениях, подписях и логинах на форумах нецензурную лексику, текст с пЕреМеНнЫм регистром или бессмысленным набором символов, заменять буквы другими символами.
Согласие есть продукт при полном непротивлении сторон
 
Цитата
написал:
ник смените
Прошу прощение, использую этот ник очень давно, проблен ни на одном сайте не было, обычно если нельзя использовать символы, сразу запрещают к регистрации. Вроде ник поменял
Изменено: Racercheg - 10.02.2026 15:30:41
Страницы: 1
Читают тему
Наверх