Форум программистов, компьютерный форум, киберфорум
MS Office Excel
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
0 / 0 / 0
Регистрация: 10.03.2017
Сообщений: 11

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

05.01.2018, 22:47. Показов 1415. Ответов 6
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Здравствуйте, уважаемые форумчане!
Нужна Ваша помощь. Имеется прайс состоящий из 8000 позиций. Все позиции относятся к определенной группе. Хотелось бы чтобы при выборе группы из выпадающего списка в прайсе оставались только те товары которые относятся к группе которая выбрана из выпадающего списка.
Пример прилагается.
Вложения
Тип файла: xlsx пример.xlsx (13.4 Кб, 7 просмотров)
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
05.01.2018, 22:47
Ответы с готовыми решениями:

Как создать выпадающий список по категории товаров
Как создать выпадающий список который будет брать название из категории,имеются три города Иванова-категория А,Москва категория B ,Казань...

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

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

6
15155 / 6428 / 1731
Регистрация: 24.09.2011
Сообщений: 9,999
05.01.2018, 23:39
тив, пробуйте, код модуля листа (правый клик на ярлычке листа - Исходный текст)
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i, j, k
  If Target.Address <> "$C$3" Then Exit Sub
  Application.ScreenUpdating = False
  Rows.Hidden = False
  k = Cells(Rows.Count, "C").End(xlUp).Row
  i = Application.Match(Range("C3"), Range("C4:C" & k), 0)
  If IsError(i) Then Exit Sub
  i = i + 3
  j = Cells(i + 1, "B").End(xlDown).Row
  Rows("4:" & k).Hidden = True
  Rows(i & ":" & j).Hidden = False
End Sub
Вложения
Тип файла: zip примерY.zip (17.0 Кб, 8 просмотров)
1
0 / 0 / 0
Регистрация: 10.03.2017
Сообщений: 11
06.01.2018, 00:13  [ТС]
Большущее Вам спасибо, Добрый человек!!!
0
15155 / 6428 / 1731
Регистрация: 24.09.2011
Сообщений: 9,999
08.01.2018, 21:19
Лучший ответ Сообщение было отмечено тив как решение

Решение

тив, с учетом случая, когда группа состоит из одной позиции
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i, j, k
  If Target.Address <> "$C$3" Then Exit Sub
  Application.ScreenUpdating = False
  Rows.Hidden = False
  k = Cells(Rows.Count, "C").End(xlUp).Row
  i = Application.Match(Range("C3"), Range("C4:C" & k), 0)
  If IsError(i) Then Exit Sub
  i = i + 3
  If IsEmpty(Cells(i + 2, "B")) Then
    j = i + 1
  Else
    j = Cells(i + 1, "B").End(xlDown).Row
  End If
  Rows("4:" & k).Hidden = True
  Rows(i & ":" & j).Hidden = False
End Sub
Вложения
Тип файла: zip примерY.zip (17.4 Кб, 10 просмотров)
1
0 / 0 / 0
Регистрация: 10.03.2017
Сообщений: 11
08.01.2018, 21:30  [ТС]
Всё шикарно работает! Еще раз Вас благодарю!
0
0 / 0 / 0
Регистрация: 10.03.2017
Сообщений: 11
05.09.2018, 14:58  [ТС]
Добрый день! Скажите пожалуйста, реально ли написать код чтобы в выпадающем списке можно было выбрать несколько строк одновременно. И ещё интересует можно ли сделать два либо три выпадающих связанных между собой.
0
0 / 0 / 0
Регистрация: 10.03.2017
Сообщений: 11
06.09.2018, 18:13  [ТС]
Может кто знает как сделать два выпадающих списка связанными. И можно ли в списке выбрать одновременно несколько строк.
Вложения
Тип файла: zip примерY (2).zip (16.6 Кб, 5 просмотров)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
06.09.2018, 18:13
Помогаю со студенческими работами здесь

Создать выпадающий список
Добрый день! Подскажите пож-та есть ли возможность запустить к примеру: Влияние = InputBox(&quot;Опишите влияние.&quot;) Чтобы...

Создать выпадающий список
подскажите как правильно составить код, чтоб при выборе выпадающего списка рубрик, выводились записи на данной странице?

Можно ли инициализировать выпадающий список перечислением?
Всем здравствуйте. Dim a As String() = {&quot;aaa&quot;, &quot;bbb&quot;, &quot;ccc&quot;} ComboBox1.Items.AddRange(a) тут список заполняется, а если у нас...

Можно ли сделать выпадающий список в DBGrid?
я использую Acess для создания БД. подключаю таблицы и вывожу их через компонент TDBGrid есть поле там типа &quot;логический&quot;...

Как создать выпадающий список?
Windows 7, VS 2012, WPF. (Опыта использования WPF у меня нет). У сущности (POCO) есть строковое (один символ) свойство Position. Я...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве
8Observer8 02.02.2026
Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .
Философия технологии
iceja 01.02.2026
На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf
8Observer8 01.02.2026
Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли
8Observer8 30.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm
8Observer8 30.01.2026
Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .
SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 29.01.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT
bedvit 28.01.2026
Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 28.01.2026
Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru