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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Подстановка заголовка у списка в строку (Формулы/Formulas)
Подстановка заголовка у списка в строку
Diadar Дата: Вторник, 07.05.2019, 12:31 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
Есть таблица с данными.
В колонке B там идут данные в виде списков раскрывающихся. То есть заголовок и далее подвиды.

например B13 Бретель Dentelle А 024
и в B14 B15 B16 - подвиды.

Нужно чтобы напротив каждого подвида в строку в колонку F встал заголовок.

Как нужно показал в файле в колонке F - она выделена желтым (изначально эта колонка пустая).
К сообщению приложен файл: 7194926.xlsx (11.4 Kb)
 
Ответить
СообщениеЕсть таблица с данными.
В колонке B там идут данные в виде списков раскрывающихся. То есть заголовок и далее подвиды.

например B13 Бретель Dentelle А 024
и в B14 B15 B16 - подвиды.

Нужно чтобы напротив каждого подвида в строку в колонку F встал заголовок.

Как нужно показал в файле в колонке F - она выделена желтым (изначально эта колонка пустая).

Автор - Diadar
Дата добавления - 07.05.2019 в 12:31
sboy Дата: Вторник, 07.05.2019, 14:35 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
Добрый день.
Можно пользовательской функцией
[vba]
Код
Function diadar(r As Range) As String
    If r.Cells(r.Count).IndentLevel < 5 Then Exit Function
        For i = r.Cells.Count - 1 To 1 Step -1
            If r.Cells(i).IndentLevel = 4 Then
                diadar = r.Cells(i).Value
                Exit For
            End If
        Next
End Function
[/vba]
К сообщению приложен файл: 7194926.xlsm (19.2 Kb)


Яндекс: 410016850021169

Сообщение отредактировал sboy - Вторник, 07.05.2019, 14:35
 
Ответить
СообщениеДобрый день.
Можно пользовательской функцией
[vba]
Код
Function diadar(r As Range) As String
    If r.Cells(r.Count).IndentLevel < 5 Then Exit Function
        For i = r.Cells.Count - 1 To 1 Step -1
            If r.Cells(i).IndentLevel = 4 Then
                diadar = r.Cells(i).Value
                Exit For
            End If
        Next
End Function
[/vba]

Автор - sboy
Дата добавления - 07.05.2019 в 14:35
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Подстановка заголовка у списка в строку (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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