Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Закраска фигуры по условию - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Закраска фигуры по условию (Макросы/Sub)
Закраска фигуры по условию
denstyle Дата: Пятница, 09.02.2018, 21:38 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 40
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Добрый вечер, подскажите пожалуйста, нужно чтобы закрашивались фигуры по нажатию кнопки "пуск" в зависимости от значения в табличке. Может есть статьи, а то проискал. где-то давно находил подобную статью и потерял ее.
К сообщению приложен файл: 6462232.xlsx(12Kb)


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

Автор - denstyle
Дата добавления - 09.02.2018 в 21:38
fan-vba Дата: Пятница, 09.02.2018, 22:06 | Сообщение № 2
Группа: Пользователи
Ранг: Новичок
Сообщений: 22
Репутация: 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
 
Ответить
Сообщение[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:06
denstyle Дата: Понедельник, 12.02.2018, 17:14 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 40
Репутация: 0 ±
Замечаний: 0% ±

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


С уважнием, Денис.
 
Ответить
Сообщениеfan-vba, Спасибо большое! Все работает четко! respect

Автор - denstyle
Дата добавления - 12.02.2018 в 17:14
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Закраска фигуры по условию (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2018 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!