Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Microsoft Office и VBA > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы
Старый 28.06.2018, 14:30   #1
kwns
 
Регистрация: 13.05.2010
Сообщений: 7
Репутация: 10
По умолчанию Группировка значений по критерию и их объединение и запись в строку

Доброго времени суток!
Очень нуждаюсь в Вашей помощи!
Суть проблемы которую я уже более недели решить пытаюсь но ни как не получается, состоит в следующем:
у меня есть две таблицы (расположены на одном листе в одних строках). В левой таблице находится перечень оборудования в зависимости от подразделения для каждой нормы.
Задача состоит в том, чтобы для каждой нормы в первую строку второй таблицы (расположенной рядом), вывести через "/" список оборудования, находящегося в подразделении. Максимальное значение оборудования для каждого № нормы -12.
Этот перечень оборудования мне надо привязывать динамически к численным значениям норм в другом файле для каждого подразделения.
Прилагаю файл примера
Вложения
Тип файла: xlsx Поиск и группировка данных по строкам.xlsx (10.8 Кб, 2 просмотров)
kwns вне форума   Ответить с цитированием
Старый 29.06.2018, 00:37   #2
Aleksandr H.
2 the Nation Glory
Профессионал
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Адрес: Wild West Ukraine
Сообщений: 2,400
Репутация: 874

skype: aleksandr.gryb
По умолчанию

Код:

'
' searchRange - где ищем. 3 столбца
' nr - Номер нормы. Крайний левый столбец
' dep - подразделение. Крайний правый столбец.
' USAGE: [G3] =GetMachines($A$2:$C$28;A5;G2)
'
Function GetMachines(searchRange As Range, nr As String, dep As String)
    Dim r As Integer
    Dim result As String
    If searchRange.Columns.Count <> 3 Then
        MsgBox "Ошибка диапазона поиска. 3 столбца допустимо"
        GetMachines = "Error"
        Exit Function
    End If
    result = ""
    For r = 1 To searchRange.Rows.Count
        If searchRange(r, 1) = nr And searchRange(r, 3) = dep Then
            result = result & searchRange(r, 2) & "/"
        End If
    Next r
    result = Left(result, Len(result) - 1)
    GetMachines = result
End Function

__________________
Mailto: media.project@ukr.net
Aleksandr H. вне форума   Ответить с цитированием
Ответ

Опции темы

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

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Группировка значений 123456678 Microsoft Office Excel 13 06.01.2015 03:27
Выборка значений по критерию Proton-x Microsoft Office Excel 3 16.11.2012 12:11
Формула выборки уникальных значений по критерию strannick Microsoft Office Excel 11 23.05.2012 23:00
выбор значений по критерию Volodymyr Microsoft Office Access 3 30.08.2011 12:29


03:15.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru