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

Вход

Регистрация

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

 

= Мир MS Excel/Выбрать данные из таблицы, которые выделенные полужирным. - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Выбрать данные из таблицы, которые выделенные полужирным. (Формулы/Formulas)
Выбрать данные из таблицы, которые выделенные полужирным.
Chelovekov Дата: Воскресенье, 01.07.2018, 12:26 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 66
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Здравствуйте, Гуры Ексель. Прошу Вас помочь, решить следующую проблему, из исходной таблицы нужно выбрать данные (текст), которые выделенные полужирным начертанием. Можно если это возможно, макросом или формулой.
Заранее благодарен.
Пример прилагаю.
К сообщению приложен файл: 1492516.xlsx(14.7 Kb)
 
Ответить
СообщениеЗдравствуйте, Гуры Ексель. Прошу Вас помочь, решить следующую проблему, из исходной таблицы нужно выбрать данные (текст), которые выделенные полужирным начертанием. Можно если это возможно, макросом или формулой.
Заранее благодарен.
Пример прилагаю.

Автор - Chelovekov
Дата добавления - 01.07.2018 в 12:26
abtextime Дата: Воскресенье, 01.07.2018, 12:43 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 828
Репутация: 117 ±
Замечаний: 0% ±

Excel 2010
Привет!

Код
=BoldFill(Данные!$B$14:$B$62;СТРОКА()-2)


UDF BoldFill

[vba]
Код
Public Function BoldFill(RR As Range, N As Long) As String

For Each R In RR

    If R.Font.Bold = True Then
        Counter = Counter + 1
        If Counter = N Then
            BoldFill = R.Value
            Exit Function
        End If
    End If

Next R

BoldFill = ""

End Function
[/vba]
К сообщению приложен файл: 1492516.xlsm(20.8 Kb)
 
Ответить
СообщениеПривет!

Код
=BoldFill(Данные!$B$14:$B$62;СТРОКА()-2)


UDF BoldFill

[vba]
Код
Public Function BoldFill(RR As Range, N As Long) As String

For Each R In RR

    If R.Font.Bold = True Then
        Counter = Counter + 1
        If Counter = N Then
            BoldFill = R.Value
            Exit Function
        End If
    End If

Next R

BoldFill = ""

End Function
[/vba]

Автор - abtextime
Дата добавления - 01.07.2018 в 12:43
Chelovekov Дата: Воскресенье, 01.07.2018, 15:29 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 66
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Спасибо hands
 
Ответить
СообщениеСпасибо hands

Автор - Chelovekov
Дата добавления - 01.07.2018 в 15:29
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Выбрать данные из таблицы, которые выделенные полужирным. (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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