oshizelly
Gold Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
vlth 28-06-2010 18:55
Цитата:
Цитата: Если очень упрощенно: в столбце числовые значения, допустим, от 1 до 9, надо, чтобы каждое число отображалось своим цветом.
Первая мысль, конечно, условное форматирование, но Excel 2003 не позволяет задать более 3-х условий, а в этом примере их нужно 9. |
В модуле листа:
Код: Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Not Intersect(Target, Range(Me.Cells(1, 1), Me.Cells(9, 1))) Is Nothing Then
For Each c In Target
With c.Font
Select Case c
Case 1: .ColorIndex = c + 2
Case 2: .ColorIndex = c + 2
Case 3: .ColorIndex = c + 2
Case 4: .ColorIndex = c + 2
Case 5: .ColorIndex = c + 2
Case 6: .ColorIndex = c + 2
Case 7: .ColorIndex = c + 2
Case 8: .ColorIndex = c + 2
Case 9: .ColorIndex = c + 2
Case Else: .ColorIndex = xlAutomatic
End Select
End With
Next
End If
End Sub
|
Пояснение: здесь для каждой ячейки, содержащей натур. число от 1 до 9, задаётся
индекс цвета шрифта на 2 больше содержимого.
|
Решил разобраться с этим кодом получше - и понял, что совсем уже запутался, где что. Прошу дать один совсем конкретный пример, чтобы его можно было тупо скопировать через буфер обмена и оно бы заработало. Задача следующая:
В столбце D, а также в дипазоне ячеек от C2 до C100, надо присвоить красный цвет (желательно, с болдом) всем ячейкам, значения которых попадают в интервал от 0 до 14 999.
Казалось бы совсем несложная задачка, если ее делать на приведенном выше примере, но у меня не получается  |
В чём ошибка, почему метод не поддерживается?
Цель в основном была другая: посмотреть, как будут выглядеть шрифты разных цветов на экране.