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

Вход

Регистрация

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

 

= Мир MS Excel/Макрос выделения части текста диапазона ячеек жирным шрифтом - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Макрос выделения части текста диапазона ячеек жирным шрифтом
Xpert Дата: Среда, 19.05.2021, 14:27 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 117
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Уважаемые форумчане, приветствую!
Задача следующая: есть диапазон ячеек, часть текста в каждой из которых нужно выделить жирным шрифтом(в данном случае, всё, что находится после двоеточия)
Накидал макрос, но он работает не совсем корректно.
Прилагаю файл примера и прошу вашей помощи!

P.S. Диапазон ячеек для редактирования может быть расширен, хотелось бы учесть и этот момент.
К сообщению приложен файл: 9307740.xlsm (15.5 Kb)


Сообщение отредактировал Xpert - Среда, 19.05.2021, 14:28
 
Ответить
СообщениеУважаемые форумчане, приветствую!
Задача следующая: есть диапазон ячеек, часть текста в каждой из которых нужно выделить жирным шрифтом(в данном случае, всё, что находится после двоеточия)
Накидал макрос, но он работает не совсем корректно.
Прилагаю файл примера и прошу вашей помощи!

P.S. Диапазон ячеек для редактирования может быть расширен, хотелось бы учесть и этот момент.

Автор - Xpert
Дата добавления - 19.05.2021 в 14:27
Pelena Дата: Среда, 19.05.2021, 14:42 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19404
Репутация: 4555 ±
Замечаний: ±

Excel 365 & Mac Excel
Диапазон ячеек для редактирования может быть расширен
вариант для выделенного диапазона
[vba]
Код
Sub Test()
    Dim cell As Range, i&
    For Each cell In Selection
        i = InStr(cell, ":")
        If i > 0 Then cell.Characters(Start:=i + 1, Length:=Len(cell)).Font.Bold = True
    Next
End Sub
[/vba]


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
Сообщение
Диапазон ячеек для редактирования может быть расширен
вариант для выделенного диапазона
[vba]
Код
Sub Test()
    Dim cell As Range, i&
    For Each cell In Selection
        i = InStr(cell, ":")
        If i > 0 Then cell.Characters(Start:=i + 1, Length:=Len(cell)).Font.Bold = True
    Next
End Sub
[/vba]

Автор - Pelena
Дата добавления - 19.05.2021 в 14:42
Xpert Дата: Среда, 19.05.2021, 14:53 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 117
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Елена, спасибо большое!
 
Ответить
СообщениеЕлена, спасибо большое!

Автор - Xpert
Дата добавления - 19.05.2021 в 14:53
  • Страница 1 из 1
  • 1
Поиск:

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