Добрый день есть задача сделать группировку в прайсе по двум параметрам "группа" и "под группа"
в старом прайсе была группировка тока по "группе", подскажите как добавить еще сортировку по "под группе" ?
вот что было в прошлом прайсе:
[vba]
Код
Dim y As Integer Dim s As String y = 2 s = "" Do While Sheets(1).Cells(y, "B").Value <> Empty j = y s = Worksheets(1).Cells(y, "B").Value Worksheets(1).Cells(y, "B").EntireRow.Insert If y <> 2 Then Rows(y).Ungroup End If Worksheets(1).Cells(y, "B").FormulaR1C1 = s Worksheets(1).Cells(y, "B").Font.Bold = True Do While Sheets(1).Cells(y, "B").Value = Sheets(1).Cells(y + 1, "B").Value Worksheets(1).Cells(y, "B").FormulaR1C1 = " " Rows(y + 1).Group j y = y + 1 Loop Worksheets(1).Cells(y, "B").FormulaR1C1 = " " Select Case s Case "ACSESSORIE", s = "фенечки"
End Select
[/vba]
прикрепляю файл как должно быть отгрупировано после запуска макроса. (до этого выкачаевается все списком из базы)
[admin] Используйте теги при оформлении кода![/admin]
Добрый день есть задача сделать группировку в прайсе по двум параметрам "группа" и "под группа"
в старом прайсе была группировка тока по "группе", подскажите как добавить еще сортировку по "под группе" ?
вот что было в прошлом прайсе:
[vba]
Код
Dim y As Integer Dim s As String y = 2 s = "" Do While Sheets(1).Cells(y, "B").Value <> Empty j = y s = Worksheets(1).Cells(y, "B").Value Worksheets(1).Cells(y, "B").EntireRow.Insert If y <> 2 Then Rows(y).Ungroup End If Worksheets(1).Cells(y, "B").FormulaR1C1 = s Worksheets(1).Cells(y, "B").Font.Bold = True Do While Sheets(1).Cells(y, "B").Value = Sheets(1).Cells(y + 1, "B").Value Worksheets(1).Cells(y, "B").FormulaR1C1 = " " Rows(y + 1).Group j y = y + 1 Loop Worksheets(1).Cells(y, "B").FormulaR1C1 = " " Select Case s Case "ACSESSORIE", s = "фенечки"
End Select
[/vba]
прикрепляю файл как должно быть отгрупировано после запуска макроса. (до этого выкачаевается все списком из базы)
[admin] Используйте теги при оформлении кода![/admin]Dyakov
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
