Закраска фигуры по условию

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

Закраска фигуры по условию (Макросы/Sub)

denstyle

Дата: Пятница, 09.02.2018, 21:38 | Сообщение № 1

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

Ранг: Участник

Сообщений: 56

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

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

Excel 2010

Добрый вечер, подскажите пожалуйста, нужно чтобы закрашивались фигуры по нажатию кнопки "пуск" в зависимости от значения в табличке. Может есть статьи, а то проискал. где-то давно находил подобную статью и потерял ее.

К сообщению приложен файл: 6462232.xlsx (12.1 Kb)

С уважнием, Денис.

Ответить

fan-vba

Дата: Пятница, 09.02.2018, 22:06 | Сообщение № 2

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

Ранг: Новичок

Сообщений: 24

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

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

Excel 2007

[vba]

Код

Sub otvet()
If ActiveSheet.Range("c14") = 1 Then
ActiveSheet.Shapes("Группа 5").Fill.ForeColor.RGB = vbRed
Else
ActiveSheet.Shapes("Группа 5").Fill.ForeColor.RGB = vbGreen
End If
If ActiveSheet.Range("c15") = 1 Then
ActiveSheet.Shapes("Группа 15").Fill.ForeColor.RGB = vbRed
Else
ActiveSheet.Shapes("Группа 15").Fill.ForeColor.RGB = vbGreen
End If
If ActiveSheet.Range("c16") = 1 Then
ActiveSheet.Shapes("Группа 19").Fill.ForeColor.RGB = vbRed
Else
ActiveSheet.Shapes("Группа 19").Fill.ForeColor.RGB = vbGreen
End If
End Sub

[/vba]
можете отказаться в условиях от оператора Else и создать жесткое условие на цифру 2

Сообщение отредактировал fan-vba - Пятница, 09.02.2018, 22:09

Ответить

denstyle

Дата: Понедельник, 12.02.2018, 17:14 | Сообщение № 3

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

Ранг: Участник

Сообщений: 56

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

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

Excel 2010

fan-vba, Спасибо большое! Все работает четко! respect

С уважнием, Денис.

Ответить

Закраска фигуры по условию (Макросы/Sub)

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