Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Выделение одного слова в текстовой ячейке
 
#1
20.10.2015 14:10:11
Добрый день, помогите пожалуйста. Приходится работать с большим количеством текста. Необходимо создать правило, чтобы каким то образом выделять , например цветом или шрифтом определенные слова. Текст в excell. т.к. очень много расчетов, помимо текста
 
 
 
#2
20.10.2015 14:13:03
Добрый день.
Скажите пожалуйста, как вы сами думаете - не видя данных (где, как расположены, какие по типу и прочие "мелочи"), - можно дать ответ на Ваш вопрос?
Ваше мнение?
Кому решение нужно - тот пример и рисует.
 
 
 
#3
20.10.2015 14:25:30
Я конечно с Вами согласен,извините :D
 
 
 
#4
20.10.2015 14:36:34
А что именно надо выделять и как? (легче всего - либо цветом шрифта, либо начертанием - полужирный, курсив и т.д.).
И да, "создать правило" - это иносказание некое, или имеется в виду строго инструмент "условное форматирование"?
В середине текста в ячейке что-то выделить - это, наверное, макросом. Вот если весь текст в ячейке в зависимости от чего-то - то можно и правилами УФ.
Изменено: Пытливый - 20.10.2015 14:38:55
Кому решение нужно - тот пример и рисует.
 
 
 
#5
20.10.2015 14:41:06
Пытливый,необходимо выделять бренд: Index и Sponsor
 
 
 
#6
20.10.2015 14:52:52
Как-то так
Код
Sub tt()
Dim L As String
Dim cell As Range
Application.ScreenUpdating = False
For Each cell In Range("B1:B" & Cells(Rows.Count, 2).End(xlUp).Row)
    With cell
        L = InStr(.Value, "INDEX")
        If L <> 0 Then
            .Characters(L, 5).Font.Bold = True
        Else
            L = InStr(.Value, "Sponsor")
            If L <> 0 Then .Characters(L, 7).Font.Bold = True
        End If
    End With
Next
Application.ScreenUpdating = True
End Sub
 
 
 
#7
20.10.2015 14:59:15
МВТ, спасибо, только ничего не произошло к сожалению после того как я вставил, может  я что то не так сделал?
 
 
 
#8
20.10.2015 15:04:13
Вполне возможно, не так. Почитайте про макросы, а потом вставьте и запустите код, как там описано

Приложил файл
Изменено: МВТ - 20.10.2015 15:08:21
 
 
 
#9
20.10.2015 15:21:19
МВТ, огромное спасибо все заработало. а скажите возможно чтобы слова разными цветами выделялись
 
 
 
#10
20.10.2015 15:23:15
Цитата
serg1606 написал: возможно чтобы слова разными цветами выделялись
Возможно. Вместо Bold используйте Color, а какое значение присвоить - это сами разберитесь.

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#11
20.10.2015 15:23:35
Красным и зеленым, для примера
Код
Sub tt()
Dim L As String
Dim cell As Range
Application.ScreenUpdating = False
For Each cell In Range("B1:B" & Cells(Rows.Count, 2).End(xlUp).Row)
    With cell
        L = InStr(.Value, "INDEX")
        If L <> 0 Then
            .Characters(L, 5).Font.Color = vbRed
        Else
            L = InStr(.Value, "Sponsor")
            If L <> 0 Then .Characters(L, 7).Font.Color = vbGreen
        End If
    End With
Next
Application.ScreenUpdating = True
End Sub
 
 
 
#12
20.10.2015 15:24:18
МВТ, ну, вот... всю учёбу испортили. :)

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#13
20.10.2015 15:41:33
МВТ, в принципе я так и начал делать только цвета без vb писал. Спасибо большое за помощь  :D
 
 
 
Страницы: 1
Читают тему
Наверх