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

Вход

Регистрация

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

 

= Мир MS Excel/Создание списка паспортов по типу изделия - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Создание списка паспортов по типу изделия (Формулы/Formulas)
Создание списка паспортов по типу изделия
san4ezz Дата: Воскресенье, 04.09.2016, 22:38 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Прошу прощения, если нарушаю правила форума, очень спешу. Завтра нужно сделать списки паспортов на изделия, что вручную нереально. Так вот в чем дело: необходимо сделать список паспортов через точку с запятой(;) по типу изделия и этаж-секции (пример в файле). Заранее благодарю за любую помощь
К сообщению приложен файл: 1301038.xlsx(88Kb)


Сообщение отредактировал san4ezz - Воскресенье, 04.09.2016, 22:39
 
Ответить
СообщениеПрошу прощения, если нарушаю правила форума, очень спешу. Завтра нужно сделать списки паспортов на изделия, что вручную нереально. Так вот в чем дело: необходимо сделать список паспортов через точку с запятой(;) по типу изделия и этаж-секции (пример в файле). Заранее благодарю за любую помощь

Автор - san4ezz
Дата добавления - 04.09.2016 в 22:38
buchlotnik Дата: Воскресенье, 04.09.2016, 23:05 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 2049
Репутация: 613 ±
Замечаний: 0% ±

2010, 2013, 2016 RUS / ENG
кусок пришлось отрезать - много данных -сначала последовательно сортируем по типу, секции, этажу, далее вынималка чисто формульная, далее фильтр по этажу
К сообщению приложен файл: 1301038.xlsb(87Kb)


платная помощь:
ЯД: 410012595572239; WM: 311017577133
buchlotnik@mail.ru


Сообщение отредактировал buchlotnik - Воскресенье, 04.09.2016, 23:08
 
Ответить
Сообщениекусок пришлось отрезать - много данных -сначала последовательно сортируем по типу, секции, этажу, далее вынималка чисто формульная, далее фильтр по этажу

Автор - buchlotnik
Дата добавления - 04.09.2016 в 23:05
buchlotnik Дата: Понедельник, 05.09.2016, 00:36 | Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 2049
Репутация: 613 ±
Замечаний: 0% ±

2010, 2013, 2016 RUS / ENG
ну или макросом: [vba]
Код
Sub sort_()
    f = Cells.SpecialCells(xlLastCell).Row
    j = 0
    For i = 1 To f
        If [a1].Offset(i, 2) <> [a1].Offset(i - 1, 2) Or [a1].Offset(i, 3) <> [a1].Offset(i - 1, 3) Then
            j = j + 1
            [g1].Offset(j, 0) = ""
            j = j + 1
            [g1].Offset(j, 0) = "Этаж " & [a1].Offset(i, 2)
            j = j + 1
            [g1].Offset(j, 0) = "Секция " & [a1].Offset(i, 3)
         End If
            If [a1].Offset(i, 4) <> [a1].Offset(i - 1, 4) Then
            j = j + 1
            [g1].Offset(j, 0) = [a1].Offset(i, 4)
            End If
            If [g1].Offset(j, 1) = "" Then
             [g1].Offset(j, 1) = [a1].Offset(i, 1)
            Else
            [g1].Offset(j, 1) = [g1].Offset(j, 1) & "; " & [a1].Offset(i, 1)
            End If
    Next i
End Sub

[/vba]
К сообщению приложен файл: 1301038-1-.xlsb(59Kb)


платная помощь:
ЯД: 410012595572239; WM: 311017577133
buchlotnik@mail.ru


Сообщение отредактировал buchlotnik - Понедельник, 05.09.2016, 00:41
 
Ответить
Сообщениену или макросом: [vba]
Код
Sub sort_()
    f = Cells.SpecialCells(xlLastCell).Row
    j = 0
    For i = 1 To f
        If [a1].Offset(i, 2) <> [a1].Offset(i - 1, 2) Or [a1].Offset(i, 3) <> [a1].Offset(i - 1, 3) Then
            j = j + 1
            [g1].Offset(j, 0) = ""
            j = j + 1
            [g1].Offset(j, 0) = "Этаж " & [a1].Offset(i, 2)
            j = j + 1
            [g1].Offset(j, 0) = "Секция " & [a1].Offset(i, 3)
         End If
            If [a1].Offset(i, 4) <> [a1].Offset(i - 1, 4) Then
            j = j + 1
            [g1].Offset(j, 0) = [a1].Offset(i, 4)
            End If
            If [g1].Offset(j, 1) = "" Then
             [g1].Offset(j, 1) = [a1].Offset(i, 1)
            Else
            [g1].Offset(j, 1) = [g1].Offset(j, 1) & "; " & [a1].Offset(i, 1)
            End If
    Next i
End Sub

[/vba]

Автор - buchlotnik
Дата добавления - 05.09.2016 в 00:36
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Создание списка паспортов по типу изделия (Формулы/Formulas)
Страница 1 из 11
Поиск:

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