Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Изменить цвет / 14 сообщений из 14, страница 1 из 1
16.12.2010, 12:33
    #37017987
гость25
гость25
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Изменить цвет
В ячейках есть повторяющийся текст
таких слов-повторов от 7 и выше
как сделать так, чтобы в экслеле находя такую ячейку с данным текстом, красился бы только нужный нам текст

например:
ищем слова
вода - красить в ячейке тока ее красным шрифтом
печенье - красить синим

засчет условного форматирования, не реально, т.к. маленький выбор
вижу вариант через макрос, вот только как не знаю, в этом не силен =(
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.12.2010, 13:36
    #37018198
exp98
exp98
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Изменить цвет
гость25,

моя копеечка:
Есть подводные камни.
Как я понял текст сидит в одной ячейке и имеет повторяющиеся слова.
А как вам случай, если искомое слово входит как часть в другое слово?

Или такая экзотика: надо найти zaza, а есть слово zazazazaz - чего красим?
А дальше уж сами.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.12.2010, 14:28
    #37018359
Shamanus
Shamanus
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Изменить цвет
гость25,

пробуйте
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.12.2010, 18:55
    #37019226
гость25
гость25
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Изменить цвет
Shamanus,
класс спасибо
а если надо не только для выделенной ячейки, а например для всей страницы?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.12.2010, 19:08
    #37019257
гость25
гость25
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Изменить цвет
и как сделать цвета например оранжевый, желтый и т.п.? =(
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.12.2010, 18:54
    #37021624
Shamanus
Shamanus
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Изменить цвет
гость25,

цвет можно узнать макрорекордером
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.12.2010, 12:36
    #37024420
гость25
гость25
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Изменить цвет
.Font.ColorIndex = ...
тока так понял, тока потом ругается, как быть
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.12.2010, 12:47
    #37024455
Shamanus
Shamanus
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Изменить цвет
гость25,

кто такая "тока"?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.12.2010, 15:24
    #37024886
гость25
гость25
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Изменить цвет
Shamanus,
тока - это только =)))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.12.2010, 01:05
    #37025949
AndreTM
AndreTM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Изменить цвет
Эндрю, Эндрю... Вы же признавались, что Excel - не ваша стихия. Зачем же тогда так категорично спрашивать?

Вот, кому пригодится - табличка основных цветовых значений Excel/2003 под 32-битный цвет.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.12.2010, 08:43
    #37026116
Shamanus
Shamanus
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Изменить цвет
гость25Shamanus,
тока - это только =)))
я имел ввиду что вопрос не понятен

только понял только ругается,
кто ругается? кто понял?

Используйте таблицу цветов, которую Вам выложил AndreTM.
Только мой код недоработан, необходимо сделать так, чтобы он все слова в тексте красил, а не первое найденное.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.12.2010, 19:58
    #37028154
гость25
гость25
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Изменить цвет
теперь понял
тока не разобрался как применять цвета не к выбранной ячейке а например к строке
например a1:a20

=(((
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.12.2010, 22:21
    #37028347
AndreTM
AndreTM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Изменить цвет
Ну, вместо ActiveCell используйте цикл по нужным вам ячейкам. Например,
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
...
For Each c In Range("A1:A20")
 For i =  1  To UBound(ИскомыеСловаИИхЦвета,  1 )

 If InStr( 1 , c.Value, CStr(ИскомыеСловаИИхЦвета(i,  1 )), vbTextCompare) >  0  Then _
                c.Characters(Start:=InStr( 1 , c.Value, _
                ИскомыеСловаИИхЦвета(i,  1 ), vbTextCompare), _
                Length:=Len(ИскомыеСловаИИхЦвета(i,  1 ))).Font.Color = _
                ИскомыеСловаИИхЦвета(i,  2 )
    
 Next i
Next
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.12.2010, 18:41
    #37030309
гость25
гость25
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Изменить цвет
спасибо всем
всё понял
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Изменить цвет / 14 сообщений из 14, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 469ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2177325]:
 0ms
get settings:
 7ms
get forum list:
 18ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 156ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 61ms
get tp. blocked users:
 1ms
others: 204ms
total:  469ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]