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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Форматирование части текста в ячейке (Макросы/Sub)
Форматирование части текста в ячейке
Leojse Дата: Суббота, 06.06.2020, 19:20 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 148
Репутация: 1 ±
Замечаний: 0% ±

2010/2013
Здравствуйте, уважаемые форумчане!
Снова прошу у Вас помощи.
Есть текст в ячейке, часть которого хотелось бы отформатировать.
Необходимо придать полужирный шрифт и подчеркивание, начиная со слов "Наши услуги" и до конца текста. Эта часть по числу символов всегда постоянна.
Записал макрорекордером, но не знаю, как мне вычислить "Start", так как количество символов в ячейках всегда разное.
Приложил файл с записанным кодом.
Заранее огромное спасибо за любую помощь!
К сообщению приложен файл: 0484925.xls (35.0 Kb)
 
Ответить
СообщениеЗдравствуйте, уважаемые форумчане!
Снова прошу у Вас помощи.
Есть текст в ячейке, часть которого хотелось бы отформатировать.
Необходимо придать полужирный шрифт и подчеркивание, начиная со слов "Наши услуги" и до конца текста. Эта часть по числу символов всегда постоянна.
Записал макрорекордером, но не знаю, как мне вычислить "Start", так как количество символов в ячейках всегда разное.
Приложил файл с записанным кодом.
Заранее огромное спасибо за любую помощь!

Автор - Leojse
Дата добавления - 06.06.2020 в 19:20
Pelena Дата: Суббота, 06.06.2020, 19:31 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19160
Репутация: 4412 ±
Замечаний: ±

Excel 365 & Mac Excel
Здравствуйте.
как мне вычислить "Start"

[vba]
Код
Start:=InStr(ActiveCell.Value, "Наши услуги")
[/vba]


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеЗдравствуйте.
как мне вычислить "Start"

[vba]
Код
Start:=InStr(ActiveCell.Value, "Наши услуги")
[/vba]

Автор - Pelena
Дата добавления - 06.06.2020 в 19:31
krosav4ig Дата: Суббота, 06.06.2020, 19:38 | Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 2346
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Добрый вечер
макрос для выделенного диапазона
[vba]
Код
Sub x()
    Dim c As Range
    With Selection.Font
        .Bold = 0
        .Underline = xlNone
        For Each c In .Parent
            Dim pos%: pos = InStr(c.Value, "Наши услуги")
            If pos > 0 Then
                With c.Characters(pos, Len(c.value)).Font
                    .Bold = 1
                    .Underline = xlUnderlineStyleSingle
                End With
            End If
        Next
    End With
End Sub
[/vba]


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Суббота, 06.06.2020, 19:43
 
Ответить
СообщениеДобрый вечер
макрос для выделенного диапазона
[vba]
Код
Sub x()
    Dim c As Range
    With Selection.Font
        .Bold = 0
        .Underline = xlNone
        For Each c In .Parent
            Dim pos%: pos = InStr(c.Value, "Наши услуги")
            If pos > 0 Then
                With c.Characters(pos, Len(c.value)).Font
                    .Bold = 1
                    .Underline = xlUnderlineStyleSingle
                End With
            End If
        Next
    End With
End Sub
[/vba]

Автор - krosav4ig
Дата добавления - 06.06.2020 в 19:38
Leojse Дата: Суббота, 06.06.2020, 19:44 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 148
Репутация: 1 ±
Замечаний: 0% ±

2010/2013
Pelena, krosav4ig, Большое Вам спасибо за ответы!
 
Ответить
СообщениеPelena, krosav4ig, Большое Вам спасибо за ответы!

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

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