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

Вход

Регистрация

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

 

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

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Форматирование последних значений текста в ячейках (Макросы/Sub)
Форматирование последних значений текста в ячейках
ovechkin1973 Дата: Воскресенье, 17.12.2017, 20:59 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 283
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
есть таблица, в которой в столбце перечисляются определенные данные и в конце текста идет наименование. Это наименование стоит всегда в конце текста, оно пишется без пробелов и разделено от остального текста пробелом. А так же оно начинается с цифры 4. Есть необходимость это наименование форматировать жирным текстом. Т.е. выделил нужный диапазон или целый столбец в все сразу отформатировал..
К сообщению приложен файл: na_forum_2.xlsx(12.3 Kb)


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

Автор - ovechkin1973
Дата добавления - 17.12.2017 в 20:59
nilem Дата: Воскресенье, 17.12.2017, 21:17 | Сообщение № 2
Группа: Авторы
Ранг: Старожил
Сообщений: 1461
Репутация: 515 ±
Замечаний: 0% ±

Excel 2013
[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
 
Ответить
Сообщение[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]

Автор - nilem
Дата добавления - 17.12.2017 в 21:17
ovechkin1973 Дата: Воскресенье, 17.12.2017, 21:20 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 283
Репутация: 0 ±
Замечаний: 0% ±

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


Плохо когда не знаешь, да еще забудешь.
 
Ответить
Сообщениеnilem, Спасибо! То, что надо!

Автор - ovechkin1973
Дата добавления - 17.12.2017 в 21:20
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Форматирование последних значений текста в ячейках (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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