Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Выборка данных и их группировка - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выборка данных и их группировка (Макросы/Sub)
Выборка данных и их группировка
Protorivatel Дата: Четверг, 15.09.2016, 18:11 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Здравствуйте!

В приложенном файле есть стобик "Данные" и соответствующие им "Значения". Используем цикл, в котором сравниваются значения в столбе "Значения" с эталонными 1, 2, 3. Находим данные, соответствующие значениям 1, 2, 3.
Подскажите пожалуйста, что добавить в цикл, что бы данные группировались в одну ячейку, как в столбце "Данные значений 1"?

Спасибо!
К сообщению приложен файл: 8873659.xlsx(8Kb)
 
Ответить
СообщениеЗдравствуйте!

В приложенном файле есть стобик "Данные" и соответствующие им "Значения". Используем цикл, в котором сравниваются значения в столбе "Значения" с эталонными 1, 2, 3. Находим данные, соответствующие значениям 1, 2, 3.
Подскажите пожалуйста, что добавить в цикл, что бы данные группировались в одну ячейку, как в столбце "Данные значений 1"?

Спасибо!

Автор - Protorivatel
Дата добавления - 15.09.2016 в 18:11
krosav4ig Дата: Четверг, 15.09.2016, 18:29 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1347
Репутация: 547 ±
Замечаний: 0% ±

Excel 2007, 2013
Здравствуйте
Функция (UDF) "СцепитьЕсли"

Код
=СцепитьЕсли($B2:$B9;ПРАВБ(E1);$A2:$A9;", ")
К сообщению приложен файл: 8873659.xlsm(16Kb)


(_)Õvõ(_)

Сообщение отредактировал krosav4ig - Четверг, 15.09.2016, 18:30
 
Ответить
СообщениеЗдравствуйте
Функция (UDF) "СцепитьЕсли"

Код
=СцепитьЕсли($B2:$B9;ПРАВБ(E1);$A2:$A9;", ")

Автор - krosav4ig
Дата добавления - 15.09.2016 в 18:29
Protorivatel Дата: Четверг, 15.09.2016, 19:22 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Спасибо!
 
Ответить
СообщениеСпасибо!

Автор - Protorivatel
Дата добавления - 15.09.2016 в 19:22
Protorivatel Дата: Пятница, 16.09.2016, 16:56 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
krosav4ig, ну хорошо, а если мне нужно в ручную задать диапазон и критерий в редакторе VBA, а потом использовать результат сцепления в дальнейшем, как это сделать?
 
Ответить
Сообщениеkrosav4ig, ну хорошо, а если мне нужно в ручную задать диапазон и критерий в редакторе VBA, а потом использовать результат сцепления в дальнейшем, как это сделать?

Автор - Protorivatel
Дата добавления - 16.09.2016 в 16:56
krosav4ig Дата: Пятница, 16.09.2016, 17:17 | Сообщение № 5
Группа: Друзья
Ранг: Старожил
Сообщений: 1347
Репутация: 547 ±
Замечаний: 0% ±

Excel 2007, 2013
[vba]
Код
Sub test()
    Dim rng As Range, col&, criteria$, delim$, str$
    Set rng = [Лист1!A2:A9]: col = 1: criteria = 1: delim = ", "
    str = СцепитьЕсли(rng.Offset(, col), criteria$, rng, delim)
End Sub
[/vba]


(_)Õvõ(_)

Сообщение отредактировал krosav4ig - Пятница, 16.09.2016, 17:18
 
Ответить
Сообщение[vba]
Код
Sub test()
    Dim rng As Range, col&, criteria$, delim$, str$
    Set rng = [Лист1!A2:A9]: col = 1: criteria = 1: delim = ", "
    str = СцепитьЕсли(rng.Offset(, col), criteria$, rng, delim)
End Sub
[/vba]

Автор - krosav4ig
Дата добавления - 16.09.2016 в 17:17
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выборка данных и их группировка (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!