Как изменять цвет ячеек по условию / Microsoft Office

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как изменять цвет ячеек по условию

15 сообщений из 15, страница 1 из 1

Как изменять цвет ячеек по условию

#34256197

evshi

Гость

Надо:
если в ячейке значение от 0 до 10 - цвет зеленый
если в ячейке значение от 10 до 20 - цвет красный
...
если в ячейке значение от 90 до 100 - цвет черный

Пытался сделать с помощью условного форматирования, но там максимально можно сделать 3 условия. Как быть, подскажите?

...

Рейтинг:

0 / 0

15.01.2007, 15:58:32

| Ответить | Цитировать | Написать

Как изменять цвет ячеек по условию

#34256451

srxp1154

Гость

Посмотри тут:

http://www.sql.ru/forum/actualthread.aspx?tid=350862&hl=%f6%e2%e5%f2+%ff%f7%e5%e9%ea%e8

...

Рейтинг:

0 / 0

15.01.2007, 16:55:42

| Ответить | Цитировать | Написать

Как изменять цвет ячеек по условию

#34257867

evshi

Гость

srxp1154Посмотри тут:

http://www.sql.ru/forum/actualthread.aspx?tid=350862&hl=%f6%e2%e5%f2+%ff%f7%e5%e9%ea%e8

Посмотрел, к сожалению для меня осталось больше вопросов, чем ответов
Код, который приведен там:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$5" Then
If Target.Value = "40" Then
Range("K5:V5").Interior.Color = vbRed
ElseIf Target.Value = "60" Then
Range("K5:V5").Interior.Color = vbGreen
End If
End If
End Sub
Для моего случая не совсем подходит. Этот код, насколько я понял, делает следующее: если в ячейке $E$5 встречается значение 40 или 60, то изменяется цвет заданного диапазона ячеек.
Мне же надо следующее: есть большая таблица, в которой много колонок. Две из них (содержат процентные данные) формируются на основе четырех других. Мне надо, что бы цвет фона ячеек этих колонок изменялся бы в зависимости от значения ячеек. Значения следующие:
если значение от -100% до -50% или 50% до 100%, то красный цвет
если значение от -50% до -20% или 20% до 50%, то оранжевый цвет
если значение от -20% до -10% или 10% до 20%, то желтый цвет.

Пробовал адаптировать код под себя, но незнание visualbаsic сказывается - при изменении значения ячеек постоянно вылетает ошибка "несоответствие типов"

...

Рейтинг:

0 / 0

16.01.2007, 11:03:30

| Ответить | Цитировать | Написать

Как изменять цвет ячеек по условию

#34257922

vbapro

Участник

Сообщения: 1 112

Рейтинг: 0 / 0

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim MyColor As Long

    If Not Intersect(Range("MyRng"), Target) Is Nothing Then
        If Target.Value >  0  And Target.Value <=  10  Then
            MyColor =  1 
        ElseIf Target.Value >  10  And Target.Value <=  20  Then
            MyColor =  2 
        ElseIf Target.Value >  20  And Target.Value <=  30  Then
            MyColor =  3 
        ElseIf Target.Value >  40  And Target.Value <=  50  Then
            MyColor =  4 
        End If
    End If
    Target.Interior.ColorIndex = MyColor
End Sub

дай название диапозону, где должно срабатывать это форматирование "MyRng", а код помести в код листа. Ну, и, конечно подправь под себя номера цветов и условия :)

...

Рейтинг:

0 / 0

16.01.2007, 11:15:56

| Ответить | Цитировать | Написать

Как изменять цвет ячеек по условию

#34257934

vbapro

Участник

Сообщения: 1 112

Рейтинг: 0 / 0

vbapro

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim MyColor As Long

    If Not Intersect(Range("MyRng"), Target) Is Nothing Then
        If Target.Value >  0  And Target.Value <=  10  Then
            MyColor =  1 
        ElseIf Target.Value >  10  And Target.Value <=  20  Then
            MyColor =  2 
        ElseIf Target.Value >  20  And Target.Value <=  30  Then
            MyColor =  3 
        ElseIf Target.Value >  40  And Target.Value <=  50  Then
            MyColor =  4 
        End If
    End If
    Target.Interior.ColorIndex = MyColor
End Sub

дай название диапозону, где должно срабатывать это форматирование "MyRng", а код помести в код листа. Ну, и, конечно подправь под себя номера цветов и условия :)

Target.Interior.ColorIndex = MyColor лучше внести в if:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim MyColor As Long

    If Not Intersect(Range("MyRng"), Target) Is Nothing Then
        If Target.Value >  0  And Target.Value <=  10  Then
            MyColor =  1 
        ElseIf Target.Value >  10  And Target.Value <=  20  Then
            MyColor =  2 
        ElseIf Target.Value >  20  And Target.Value <=  30  Then
            MyColor =  3 
        ElseIf Target.Value >  40  And Target.Value <=  50  Then
            MyColor =  4 
        End If
        Target.Interior.ColorIndex = MyColor
    End If
End Sub

...

Рейтинг:

0 / 0

16.01.2007, 11:17:20

| Ответить | Цитировать | Написать

Как изменять цвет ячеек по условию

#34258030

evshi

Гость

vbapro vbapro

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim MyColor As Long

    If Not Intersect(Range("MyRng"), Target) Is Nothing Then
        If Target.Value >  0  And Target.Value <=  10  Then
            MyColor =  1 
        ElseIf Target.Value >  10  And Target.Value <=  20  Then
            MyColor =  2 
        ElseIf Target.Value >  20  And Target.Value <=  30  Then
            MyColor =  3 
        ElseIf Target.Value >  40  And Target.Value <=  50  Then
            MyColor =  4 
        End If
    End If
    Target.Interior.ColorIndex = MyColor
End Sub

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim MyColor As Long

    If Not Intersect(Range("MyRng"), Target) Is Nothing Then
        If Target.Value >  0  And Target.Value <=  10  Then
            MyColor =  1 
        ElseIf Target.Value >  10  And Target.Value <=  20  Then
            MyColor =  2 
        ElseIf Target.Value >  20  And Target.Value <=  30  Then
            MyColor =  3 
        ElseIf Target.Value >  40  And Target.Value <=  50  Then
            MyColor =  4 
        End If
        Target.Interior.ColorIndex = MyColor
    End If
End Sub

Спасибо, все работает, но только с целыми числами. А мне необходимо с процентами. Пробовал в коде менять, но VB автоматом их удаляет. Пробовал дробные числа ставить, начинает ругаться "Compile error"...

...

Рейтинг:

0 / 0

16.01.2007, 11:31:39

| Ответить | Цитировать | Написать

Как изменять цвет ячеек по условию

#34258053

vbapro

Участник

Сообщения: 1 112

Рейтинг: 0 / 0

если на листе процентный формат, то значение нужно делить на 100:
на листе 64%
.value = 0.64

...

Рейтинг:

0 / 0

16.01.2007, 11:37:46

| Ответить | Цитировать | Написать

Как изменять цвет ячеек по условию

#34258330

evshi

Гость

vbaproесли на листе процентный формат, то значение нужно делить на 100:
на листе 64%
.value = 0.64

Спасибо большое. Я по невнимательности ставил запятую, поэтому были проблемы.

Vbapro, скажите, каким образом вы узнаете цвет по значению цифры в своей работе?

...

Рейтинг:

0 / 0

16.01.2007, 12:40:40

| Ответить | Цитировать | Написать

Как изменять цвет ячеек по условию

#34258361

vbapro

Участник

Сообщения: 1 112

Рейтинг: 0 / 0

evshi vbaproесли на листе процентный формат, то значение нужно делить на 100:
на листе 64%
.value = 0.64

Спасибо большое. Я по невнимательности ставил запятую, поэтому были проблемы.

Vbapro, скажите, каким образом вы узнаете цвет по значению цифры в своей работе?
способов несколько, самый простой - включить макрорекордер и делать для разных ячеек разную заливку, там же, в ячейках, можно название указывать.
Второй способ через функцию RGB(R,G,B), или через константы (наберите в поиске помощи "Color Constants")

...

Рейтинг:

0 / 0

16.01.2007, 12:46:14

| Ответить | Цитировать | Написать

Как изменять цвет ячеек по условию

#34258406

evshi

Гость

Еще такой вопрос:
Сейчас у меня уже есть готовая таблица со всеми значениями. Цвет ячейки перекрашивается, если только значение заново вбить, но у меня они уже вбиты. Что мне сделать, что бы ячейки закрасились уже на основе набитых данных?

...

Рейтинг:

0 / 0

16.01.2007, 12:53:55

| Ответить | Цитировать | Написать

Как изменять цвет ячеек по условию

#34258435

vbapro

Участник

Сообщения: 1 112

Рейтинг: 0 / 0

evshiЕще такой вопрос:
Сейчас у меня уже есть готовая таблица со всеми значениями. Цвет ячейки перекрашивается, если только значение заново вбить, но у меня они уже вбиты. Что мне сделать, что бы ячейки закрасились уже на основе набитых данных?
можно в-лоб:

Код: plaintext

1.
2.
3.
4.
5.

Sub recolor()
Dim cell As Range
    For Each cell In Range("MyRng")
        Worksheet_Change cell
    Next cell
End Sub

...

Рейтинг:

0 / 0

16.01.2007, 12:58:27

| Ответить | Цитировать | Написать

Как изменять цвет ячеек по условию

#34258491

evshi

Гость

vbapro evshiЕще такой вопрос:
Сейчас у меня уже есть готовая таблица со всеми значениями. Цвет ячейки перекрашивается, если только значение заново вбить, но у меня они уже вбиты. Что мне сделать, что бы ячейки закрасились уже на основе набитых данных?
можно в-лоб:

Код: plaintext

1.
2.
3.
4.
5.

Sub recolor()
Dim cell As Range
    For Each cell In Range("MyRng")
        Worksheet_Change cell
    Next cell
End Sub

Ругается, пишет "Нельзя установить свойство ColorIndex класса Interior":(

...

Рейтинг:

0 / 0

16.01.2007, 13:11:43

| Ответить | Цитировать | Написать

Как изменять цвет ячеек по условию

#34258511

vbapro

Участник

Сообщения: 1 112

Рейтинг: 0 / 0

а так:

Код: plaintext

1.
2.
3.
4.
5.

Sub recolor()
Dim cell As Range
    For Each cell In Range("MyRng")
        cell.Value = cell.Value
    Next cell
End Sub

...

Рейтинг:

0 / 0

16.01.2007, 13:13:54

| Ответить | Цитировать | Написать

Как изменять цвет ячеек по условию

#34293341

evshi

Гость

vbaproа так:

Код: plaintext

1.
2.
3.
4.
5.

Sub recolor()
Dim cell As Range
    For Each cell In Range("MyRng")
        cell.Value = cell.Value
    Next cell
End Sub

В общем-то работает, но если я заполняю рядом расположенные ячейки через перетаскивание мышкой, то иногда вылетает ошибка:
"
Run-time error '13':

Type mismatch
"
Можно ли как-нибудь сделать, что бы окно с ошибкой не появлялось?

...

Рейтинг:

0 / 0

30.01.2007, 15:45:34

| Ответить | Цитировать | Написать

Как изменять цвет ячеек по условию

#34294152

KL (XL)

Участник

Откуда: Madrid

Сообщения: 2 087

Рейтинг: 0 / 0

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range, c As Range
    
    On Error GoTo ExitSub
    Set rng = Intersect(Range("A1:A20"), Target)
    
    For Each c In rng
        Select Case c.Value
        Case  0 
            c.Interior.ColorIndex =  0 
        Case  0  To  0 . 1 
            c.Interior.ColorIndex =  1 
        Case  0 . 1  To  0 . 2 
            c.Interior.ColorIndex =  2 
        Case  0 . 2  To  0 . 3 
            c.Interior.ColorIndex =  3 
        Case  0 . 3  To  0 . 5 
            c.Interior.ColorIndex =  4 
        Case Else
            c.Interior.ColorIndex =  0 
        End Select
    Next c
    
ExitSub:
End Sub

KL
[MVP - Microsoft Excel]

...

Рейтинг:

0 / 0

30.01.2007, 19:25:45

| Ответить | Цитировать | Написать

15 сообщений из 15, страница 1 из 1

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как изменять цвет ячеек по условию

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=61&msg=34257934&tid=2183538]:	0ms
get settings:	9ms
get forum list:	15ms
check forum access:	3ms
check topic access:	3ms
track hit:	20ms
get topic data:	8ms
get forum data:	2ms
get page messages:	33ms
get tp. blocked users:	1ms
others:	208ms

total:	302ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы