0 / 0 / 0
Регистрация: 21.10.2014
Сообщений: 6
1

Изменение цвета фигуры

23.10.2014, 22:42. Показов 4459. Ответов 4
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Ребятки! Помогите, пожалуйста!

Во вложении пример того, что мне нужно сделать:
Есть кнопочки-фигурки (Январь, Ферваль, Март), а рядом таблица, где для каждого месяца в соседнем столбце есть оценка (хорошо, плохо, удовлетворительно) с соответствующей цветовой заливкой.

Как сделать так, чтобы в зависимости от оценки изменялся цвет фигуры?

Спасибо!
Вложения
Тип файла: xlsx Изменение цвета фигуры.xlsx (9.3 Кб, 63 просмотров)
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.10.2014, 22:42
Ответы с готовыми решениями:

Изменение цвета фигуры при заполнении ячейки
Здравствуйте. Помогите разобраться и возможно ли это для фигур. В кратце, сделан план зала клуба,...

Изменение цвета фигуры по клику
всем доброго времени суток! проблема следующая: есть форма, на ней квадрат, по клику на квадрат...

Изменение цвета фигуры в Excel через COM
Никак не могу изменить цвет линии Excel в C++. В самом экселе макрос выглядит так:...

Изменение цвета фигуры в зависимости от положения на форме
Условие такое. Есть формула по изменению цвета(в данном случае от жёлтого к красному):...

4
0 / 0 / 0
Регистрация: 21.10.2014
Сообщений: 6
24.10.2014, 10:10  [ТС] 2
Откликнитесь, пожалуйста, кто-нибудь!... Очень надо!

Такое возможно сделать?...
0
3901 / 2305 / 777
Регистрация: 02.11.2012
Сообщений: 6,137
24.10.2014, 11:50 3
в модуль листа
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sha As Shape, n&
If Target.Cells.Count > 1 Then Exit Sub 'если выделено больше одной ячейки то выход
 If Intersect(Range("H3:H5"), Target) Is Nothing Then Exit Sub
 n = 3
    For Each sha In Sheets("Лист1").Shapes    ' перебираем все фигуры на листе
    sha.Fill.Visible = msoTrue
    sha.Fill.ForeColor.RGB = Range("H" & n).Interior.Color
    n = n + 1
    Next
 End Sub
макрос срабатывает при изменении в одной из ячеек диапазона "H3:H5".
П.С. если изменение происходит с помощью формулы то работать не будет. Можно немного поправить и повесить на кнопку.
0
0 / 0 / 0
Регистрация: 21.10.2014
Сообщений: 6
26.10.2014, 17:09  [ТС] 4
Ок, спасибо!

А как изменить, чтоб к кнопке прицепить? У меня значение в ячейке должно с помощью формулы меняться.
Только, правда, для этой кнопки уже один макрос записан? Можно два макроса для одной кнопки?..
0
3901 / 2305 / 777
Регистрация: 02.11.2012
Сообщений: 6,137
26.10.2014, 17:27 5
Visual Basic
1
2
3
4
5
6
7
8
9
Sub Zalivka()
Dim sha As Shape, n&
 n = 3
    For Each sha In Sheets("Лист1").Shapes    ' перебираем все фигуры на листе
    sha.Fill.Visible = msoTrue
    sha.Fill.ForeColor.RGB = Range("H" & n).Interior.Color
    n = n + 1
    Next
 End Sub
Цитата Сообщение от KsCh Посмотреть сообщение
Можно два макроса для одной кнопки?
как минимум нужно знать что за макрос на кнопке. может и получится к мену привязаться.
0
26.10.2014, 17:27
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.10.2014, 17:27
Помогаю со студенческими работами здесь

Изменение цвета названия файла/папки (либо цвета подсветки)
Привет супер уважаемые супер форумчане!) Очень интересно, есть ли какой-то способ изменить цвет...

Изменение цвета текста, когда код цвета берется с сервера
Есть задание : Отправить на сервер название цвета, получить от сервера цвет в формате RGB и...

Изменение цвета прямоугольника, увеличивая или уменьшая составляющие цвета (почему не работает программа?)
2.2 Работа с кнопками и цветом Приложение позволяет изменять цвет прямоугольника, увеличивая или...

Задайте изменение цвета кнопок и цвета шрифта на кнопках формы в ходе выполнения программы
1. Задайте изменение цвета кнопок и цвета шрифта на кнопках формы в ходе выполнения программы. 2....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru