Заливка автофигуры и значения ячеек

[Иванов_ДМ]

Помогите, плиз!
В приложенном файле Excel есть автофигура и значения в ячейках A1 от 0 до 5 и B1 от 1 до 3.

Необходимо:
1). Чтобы автофигура изменяла свою степень прозрачности заливки исходя из того значения, которое поставлено в ячейку.
Степень прозрачности должна соответствовать следующим значениям
0 - 100% прозрачности;
1 - 80%;
2 - 60%;
3 - 40%;
4 - 20%;
5 - 0%.

2). Чтобы автофигура поменяла цвет заливки исходя из значения в ячейке B1 в следующем соответствии:
1 - красный
2 - синий
3 - зеленый.

Немного ниже в файле представлен пример аналогичных фигуры, но с разной степенью прозрачности и вариантов цвета

[SAS888]

Посмотрите пример во вложении.

[EducatedFool]

Вот ещё вариант:

Private Sub Worksheet_Change(ByVal Target As Range)
    Select Case Target.Address
        Case [a1].Address
            If [a1] Like "#" And Val([a1]) < 6 Then
                Shapes("фигура").Fill.Transparency = (5 - [a1]) * 0.2
            End If
        Case [b1].Address
            If [b1] Like "#" And Val([b1]) < 4 And Val([b1]) > 0 Then
                Shapes("фигура").Fill.ForeColor.SchemeColor = Choose([b1] + 1, 55, 2, 48, 3)
            End If
    End Select
End Sub

Цвета можно подобрать здесь (из второй таблицы)

[Иванов_ДМ]

SAS888, EducatedFool спасибо!!! Все работает.

[Иванов_ДМ]

EducatedFool, SAS888 есть вопросы по автофигуре...

Если в ячейке, от значения которой зависит заливка автофигуры менять значение вручную, то все работает нормально...
А если там стоит формула и значение устанавливается формулой, то не работает... Причем ни в одном, ни в другом варианте...
Как поправить?

И еще вопрос: если автофигур скажем не 1, а 10, и значения для них расположены в интервале A1:B10 соответственно, то обычная конструкция выглядит очень массивной, можно ли как-нибудь ее оптимизировать?

Заранее спасибо!

[Aent]

Если во влияющих ячейках стоят формулы или используйте событие
Worksheet_Calculate или в Worksheet_Change анализируйте ячейки
влияющие на [a1] [b1]

[SAS888]

Посмотрите пример во вложении.

[Иванов_ДМ]

SAS888 спасибо, все работает отлично!

[Иванов_ДМ]

Только один вопрос: как определить, какая из 10 фигур имеет какой порядковый номер (i) если все они называются одинаково("Нашивка 10")? Как мне идентифицировать нужную ячейку к определенной автофигуре?

[SAS888]

Для примера из поста №7 выполните макрос:

Sub DetAuto()
    Dim Sh As Shape, i As Integer, Msg As String: i = 1
    For Each Sh In ActiveSheet.Shapes
        Msg = Msg & "Адрес фигуры " & i & " : " & Sh.TopLeftCell.Address & vbCrLf: i = i + 1
    Next
    MsgBox Msg
End Sub

После его работы в окне сообщений будут выведены все номера автофигур и адреса ячеек верхнего левого угла для каждой фигуры соответственно.