А при чем тут А1, В1, С1, если нужно анализировать ячейку В2?

{quote}{login=** ТУРБО-ЁЖ ** *ЕХСЕL@ХАКЕР.RU* ==============}{date=09.08.2008 19:06}{thema=Re: "пишем" цветами}{post}Dim i As Long, SColor As Byte{/post}{/quote}  
 
Поправка: SColor As Double

{quote}{login=** ТУРБО-ЁЖ ** *ЕХСЕL@ХАКЕР.RU* ==============}{date=09.08.2008 07:33}{thema=Re: "пишем" цветами}{post}{quote}{login=** ТУРБО-ЁЖ ** *ЕХСЕL@ХАКЕР.RU* ==============}{date=09.08.2008 19:06}{thema=Re: "пишем" цветами}{post}Dim i As Long, SColor As Byte{/post}{/quote}  
 
Поправка: SColor As Double{/post}{/quote}  
 
я забыл сказать что у меня русская версия MS Office 2003.  
Надеюсь этот код там сработает

{quote}{login=** ТУРБО-ЁЖ ** *ЕХСЕL@ХАКЕР.RU* ==============}{date=10.08.2008 12:38}{thema=Re: "пишем" цветами}{post}{quote}{login=CEPBAHTEC}{date=10.08.2008 12:24}{thema=Re: Re: "пишем" цветами}{post}Я забыл сказать что у меня русская версия MS Office 2003.  
Надеюсь этот код там сработает{/post}{/quote}  
 
чтобы пользователь мог писать любым способом, хоть цветами :){/post}{/quote}  
 
понятно. :) а ты не мог бы файл приложить с работающим вариантом?  
а то я в B2 и xyz вписывал и abc - на втором листе ничего не изменяется

видишь я может не так как то думаю..  
в общем я файл приложил.  
суть в том что в B2 текст - xyzzyx  
так вот алгоритм такой - берем этот текст из B2 и посимвольно его парсим.  
То есть первый символ у нас x. Ищем этот символ в range01 - и когда находим, то смотрим какого цвета бэкграунд в ячейке, где находится этот символ.  
Бэкграунд у x у нас красный, значит на втором листе A1 закрашиваем в красный

{quote}{login=** ТУРБО-ЁЖ ** *ЕХСЕL@ХАКЕР.RU* ==============}{date=10.08.2008 05:34}{thema=Re: "пишем" цветом}{post}{quote}{login=CEPBAHTEC}{date=10.08.2008 05:13}{thema=Re: Re: Re: "пишем" цветами}{post}видишь я может не так как то думаю..{/post}{/quote}  
 
PS: Ещё раз (третий) напомню, что код должен быть в модуле листа.  
PPS: Если ячейки первого листа проименовать, то можно воспользоваться условным форматированием, вместо кода.{/post}{/quote}  
 
спасибо!  
я вообще то и в первый раз понял где код писать :)  
обычно я через Alt F11 туда заходил, буду теперь и так как посоветовали.  
сейчас как нужно работает, просто режим безопасности был высокий... вот собака :)

{quote}{login=** ТУРБО-ЁЖ ** *ЕХСЕL@ХАКЕР.RU* ==============}{date=10.08.2008 06:52}{thema=Re: "пишем" цветом}{post}{quote}{login=CEPBAHTEC}{date=10.08.2008 06:40}{thema=Re: Re: "пишем" цветом}{post}Спасибо! Я, вообще-то, и в первый раз понял где код писать :){/post}{/quote}  
 
Пожалуйста! Кстати, вначале Вы поместили код в обычный модуль (Insert -> Module). Не знаю как гласит теория, но я классифицирую размещение кода в след. местах:  
- в модуле приложения;  
- в модуле книги;  
- в модуле листа;  
- в имени диапазона (для VB4);  
- на листе (для Excel'97).{/post}{/quote}  
 
Скажите, пожалуйста, а это как то будет влиять на то сработает код или нет? например, если я размещу его на первом листе и попытаюсь выполнить макрос во втором - значит ли это, что макрос не сработает?  
А насчет теории - у меня есть книги по Excel, но в них как назло именно эта часть - программирование на VBA злостно обходится стороной... или ей уделяется совсем мало места, да и то про то как записать простые макросы. :)  
 
Потому хотел спросить - не подскажете ли Вы где можно найти соответствие цветов и их кодов? Я понял что 3 - красный, 10 - зелёный, 5 - синий. А остальная таблица цветов есть где?

{quote}{login=** ТУРБО-ЁЖ ** *ЕХСЕL@ХАКЕР.RU* ==============}{date=10.08.2008 08:47}{thema=Re: "пишем" цветом}{post}{quote}{login=CEPBAHTEC}{date=10.08.2008 07:25}{thema=Re: Re: "пишем" цветом}{post}А это как то будет влиять на то сработает код или нет?{/post}{/quote}  
Обратите внимание на заголовок (то, что между Sub и ()) – он выбран не случайно: происходит рекция на событие изменения значения ячейки листа (Change), в то время как "обычным" модулям на это плевать, если это в них явно не прописано.  
{/post}{/quote}  
 
Обратил. Я попытался переделать этот код под свой макрос, чтобы не событийно происходило, а именно по явному вызову.  
В итоге вот что получилось:  
Sub Макрос1()  
Dim i, j, k As Long, SColor As Double  
   j = 1  
   k = 1  
   With Selection  
   If Selection.Address = "$B$2" Then  
       Sheets(2).Range("$A$1:$AA$100").Interior.ColorIndex = xlNone  
       For i = 1 To Len(Selection)  
           Select Case Mid(Selection, i, 1)  
               Case "a": SColor = 3  
               Case "b": SColor = 10  
               Case "c": SColor = 5  
               Case Else: SColor = -4142  
           End Select  
           Sheets(2).Cells(j, k).Interior.ColorIndex = SColor  
           k = k + 1  
           If k > 5 Then  
               j = j + 1  
               k = 1  
           End If:  
       Next:  
   End If:  
   End With  
End Sub  
 
здесь модификация в том, что при достижении столбца Е раскрашивание начинается со следующей строки.  
 
{quote}  
PS: Таблицу цветов Вы можете получить экспериментируя с макрорекордером.{/quote}  
 
Действительно :) Спасибо за совет