ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Изменить цвет
14 сообщений из 14, страница 1 из 1
Изменить цвет
    #37017987
гость25
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
гость25
Гость
В ячейках есть повторяющийся текст
таких слов-повторов от 7 и выше
как сделать так, чтобы в экслеле находя такую ячейку с данным текстом, красился бы только нужный нам текст

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

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

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

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

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

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

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

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

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

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

=(((
...
Рейтинг: 0 / 0
21.12.2010, 19:58
| Ответить | Цитировать | Написать  
Изменить цвет
    #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
21.12.2010, 22:21
| Ответить | Цитировать | Написать  
Изменить цвет
    #37030309
гость25
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
гость25
Гость
спасибо всем
всё понял
...
Рейтинг: 0 / 0
22.12.2010, 18:41
| Ответить | Цитировать | Написать  
14 сообщений из 14, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Изменить цвет
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=37018198&tid=2177325]:
 0ms
get settings:
 5ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 146ms
get topic data:
 6ms
get forum data:
 1ms
get page messages:
 28ms
get tp. blocked users:
 1ms
others: 192ms
total:  393ms
созд. / загр.: 393ms
x
x
Закрыть


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