Форматирование последних значений текста в ячейках

Вход

Регистрация

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

= Мир MS Excel/Форматирование последних значений текста в ячейках - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Форматирование последних значений текста в ячейках (Макросы/Sub)

Форматирование последних значений текста в ячейках

ovechkin1973

Дата: Воскресенье, 17.12.2017, 20:59 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 429

Репутация: 1 ±

Замечаний: 0% ±

Excel 2010

есть таблица, в которой в столбце перечисляются определенные данные и в конце текста идет наименование. Это наименование стоит всегда в конце текста, оно пишется без пробелов и разделено от остального текста пробелом. А так же оно начинается с цифры 4. Есть необходимость это наименование форматировать жирным текстом. Т.е. выделил нужный диапазон или целый столбец в все сразу отформатировал..

К сообщению приложен файл: na_forum_2.xlsx (12.3 Kb)

Плохо когда не знаешь, да еще забудешь. Правильно сформулированный вопрос содержит половину ответа.

Ответить

nilem

Дата: Воскресенье, 17.12.2017, 21:17 | Сообщение № 2

Группа: Авторы

Ранг: Старожил

Сообщений: 1613

Репутация: 563 ±

Замечаний: 0% ±

Excel 2013, 2016

[vba]

Код

Sub Макрос1()
Dim r As Range, i&
For Each r In Intersect(Selection, ActiveSheet.UsedRange)
i = InStr(r, " 4")
If i > 0 Then r.Characters(i).Font.Bold = True
Next
End Sub

[/vba]

Яндекс.Деньги 4100159601573

Ответить

ovechkin1973

Дата: Воскресенье, 17.12.2017, 21:20 | Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 429

Репутация: 1 ±

Замечаний: 0% ±

Excel 2010

nilem, Спасибо! То, что надо!

Плохо когда не знаешь, да еще забудешь. Правильно сформулированный вопрос содержит половину ответа.

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Форматирование последних значений текста в ячейках (Макросы/Sub)

Страница 1 из 1
1