2015-08-06 2 views
0

У меня довольно простой вопрос относительно Excel и VBA, но поскольку я новичок в VBA, я понятия не имею, как его реализовать.Условное кодирование цвета в Excel

У меня есть целая колонка, полная цветового кода. Ячейки в этой колонке говорят, что либо R, G, либо Y.

Мне нужен макрос, который пересечет этот столбец, измените все ячейки, которые говорят «R», чтобы заполнить красный цвет, измените все ячейки, которые говорят «Y «чтобы заполнить желтый цвет и изменить все ячейки, которые говорят« G », чтобы заполнить зеленый цвет.

Я знаю, что это также можно сделать, просто отсортировав строки по алфавиту, а затем изменив цвета вручную, но я ищу автоматический способ сделать это.

+0

Можете дать вам несколько идей для начала. Если вы не приложите усилий, другие могут не беспокоиться. – pnuts

+0

Позвольте пояснить: у меня есть огромная электронная таблица, которая в основном формирует себя, чтобы включать всю полезную информацию и исключать всю бесполезную информацию. Уже есть довольно обширный пользовательский макрос, который делает выше. Я надеялся добавить к этому макросу, который позаботится об условном цветовом кодировании. Таким образом, пользователь может просто открыть электронную таблицу и сделать макрос всю работу для них, сводя к минимуму, сколько кликов они должны сделать. Именно поэтому я не хочу использовать встроенное условное форматирование Excel. Я хочу, чтобы все это выполнялось легко, когда пользователь запускает макрос. – zaanwar

ответ

0

Выделите столбец своими R, Y и G и примените условное форматирование. | Главная вкладка> Условное форматирование> Выделите правила ячейки> Равно ... | Введите свое письмо и выберите соответствующую цветовую схему!

1

Просто используйте условное форматирование. Вы можете изменить как текст, так и ячейку одного цвета.

+0

См. Мое редактирование выше. Я знаю, что я могу использовать условное форматирование, но это касается минимизации пользовательских кликов. Мне нужен программа просмотра Excel, чтобы иметь возможность нажимать макрос, который они будут запускать в любом случае, и пусть на этом этапе будет учитываться цветовая кодировка. – zaanwar

+0

Это будет с условным форматированием ... Не могли бы вы объяснить, что вы хотите сделать, и почему условное форматирование этого не сделает. – exussum

+0

Ahh, теперь я понимаю, что вы говорили. Оно работает. Благодарю. – zaanwar

0

Пожалуйста, попробуйте следующее:

Range("A1").Interior.Color = RGB(0, 0, 0)` 

For R = 0 To 255 
    For G=0 To 255 
     For B=0 to 255 
    Cells(1 , 1).Interior.Color = RGB(R, G, B)` 
Next R 

Вы можете использовать еще один цикл изменения ячеек строки и столбца.

Смежные вопросы