Заливка ячеек в зависимости от значения другой ячейки

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Заливка ячеек в зависимости от значения другой ячейки (Макросы/Sub)

axelbeer69

Дата: Четверг, 16.02.2017, 17:35 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Ребят помогите с такой проблемой. Есть вот такой код:
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A1:T50")) Is Nothing Then
Call Макрос500
End If
End Sub

[/vba]
и собственно сам Макрос500:
[vba]

Код

Sub Макрос500()
If Application.WorksheetFunction.CountIf(Range("B7:С7"), "1000") > 0 Then
Range("D7:K7").Interior.ColorIndex = 6
Else
Range("D7:K7").Interior.ColorIndex = xlNone
End If
If Application.WorksheetFunction.CountIf(Range("B6:С6"), "1000") > 0 Then
Range("D6:K6").Interior.ColorIndex = 6
Else
Range("D6:K6").Interior.ColorIndex = xlNone
End If
If Application.WorksheetFunction.CountIf(Range("B5:С5"), "1000") > 0 Then
Range("D5:K5").Interior.ColorIndex = 6
Else
Range("D5:K5").Interior.ColorIndex = xlNone
End If

End Sub

[/vba]
То есть при изменении ячейки из указанного диапазона (A1:T50) запускается Макрос, который проверяет есть ли в диапазоне (B7:C7) число 1000, если есть то заливает диапазон (d7:K7) желтым цветом. В чем задача:
1. нужно, чтоб он как то сам определял в какой строке стоит число 1000 и в этой же строке заливал ячейки с D по K (потому что ячеек штук 50,думал вручную перечислить их все в коде но потом понял что это плохая идея)
2. и еще, если 1000 ввели в ячейку то диапазон окрашивается с D по K, если 500 то закрашивается с D по M, если 700 то с D по X.

Пример выложить не могу, там данные клиентов. Заранее благодарен за помощь.

Сообщение отредактировал axelbeer69 - Четверг, 16.02.2017, 19:40

Ответить

СообщениеРебят помогите с такой проблемой. Есть вот такой код:
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A1:T50")) Is Nothing Then
Call Макрос500
End If
End Sub

[/vba]
и собственно сам Макрос500:
[vba]

Код

Автор - axelbeer69
Дата добавления - 16.02.2017 в 17:35

buchlotnik

Дата: Четверг, 16.02.2017, 18:38 | Сообщение № 2

Группа: Заблокированные

Ранг: Участник клуба

Сообщений: 3442

Репутация: 929 ±

Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG

axelbeer69, а чем условное форматирование не устраивает? Да и в примере данные клиентов можно заменить на что угодно

Сообщение отредактировал buchlotnik - Четверг, 16.02.2017, 18:49

Ответить

axelbeer69

Дата: Четверг, 16.02.2017, 19:09 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

buchlotnik, с УФ не получается создать сразу несколько условий для строки и не получается скопировать на остальные строки (а вручную это нереально долго). Да и по сути есть полуготовый макрос, ему только обьяснить надо чтоб закрашивал нужное количество ячеек в строках где эти цифры стоят. Пример прилагаю, 1 и 2 строки работают через макрос, хочется чтоб 3 и 4 работали по аналогии но не вручную

К сообщению приложен файл: 2825901.xlsm (17.2 Kb)

Ответить

Pelena

Дата: Четверг, 16.02.2017, 22:17 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 19184

Репутация: 4420 ±

Замечаний: ±

Excel 365 & Mac Excel

Не уверена, что правильно поняла. Проверьте

К сообщению приложен файл: 0920233.xlsm (16.5 Kb)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Страница 1 из 1
1