vlth
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
oshizelly
Цитата: Подскажите, как решить вот такую задачу. Если очень упрощенно: в столбце числовые значения, допустим, от 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 больше содержимого.
Учтите, что это только пример, требующий доводки под задачу.
Цитата: Можно ли при установлении условия условного форматировании для текстовых ячеек вместо критерия "равно" использовать критерий "включает" ("содержит")? Например, некоторые ячейки содержат текст "красные яблоки", а другие "зеленые яблоки", но нужно, чтобы и те, и другие отображались одинаково.
|
1. Выделяем диапазон (допустим, A10:A11)
2. Для активной ячейки (A10) пишем формулу условного форматирования
=НАЙТИ("яблоки";A10)>0
3. Ну и формат задаём там же.
Добавлено:
P.S. Вторая часть вопроса - для темы Excel FAQ
А вот Ваш вопрос об отмене формата шрифта нужно было разместить не там, а здесь...
Путаница получается  |
