antonsf
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору to humanunique Цитата: Цитата: antonsf Можешь пояснить, если не затруднит, как его встроить в свой проект. А то не пашет что-то... | | Хм, это я пример привёл. Как встроить в проект? Хоть я и понимаю что ты имеешь ввиду, но могу сказать только то, что это тебе виднее, приведу более наглядный пример: "Начертим" данные для примера: Создаём лист, обзываем его "Лист1", В первом столбце "А", со строки "1" по строку "3" вбиваем данные: "Желтый" "Зеленый" "Красный" Пишем макрос: Public Sub ExampleRecolor() Dim DataRange as Range Dim RowIndex as Integer Dim Value as String Set DataRange = Range("Лист1!A1:A5") For RowIndex = 1 To DataRange.Rows.Count Value = DataRange(RowIndex, 1).Value Select Case Value Case "Желтый" DataRange(RowIndex, 1).Interior.Color = RGB(255, 255, 0) Case "Зеленый" DataRange(RowIndex, 1).Interior.Color = RGB(0, 255, 0) Case "Красный" DataRange(RowIndex, 1).Interior.Color = RGB(255, 0, 0) End Select Next End Sub Запускаем макрос на выполнение и смотрим на результаты. | Всего записей: 13 | Зарегистр. 13-04-2007 | Отправлено: 00:27 19-06-2010 | Исправлено: antonsf, 00:32 19-06-2010 |
|