Заливка цветом фигуры

[kovich7]

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

[Aleksandr H.]

Сойдет за подсказку. Ищи дальше сам/а/ое

Sub wJOBka()
    Dim sh1 As Worksheet
    Dim R, G, B, C, FindString, Rng
    Set sh1 = Sheets("Настройки")
    FindString = LCase(InputBox("Введи код статуса"))
    With sh1.Range("B:B")
            Set Rng = .Find(What:=FindString, _
                            After:=.Cells(.Cells.Count), _
                            LookIn:=xlValues, _
                            LookAt:=xlWhole, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlNext, _
                            MatchCase:=False)
            If Not Rng Is Nothing Then
                C = Rng.Offset(0, 1).Interior.color
                R = C Mod 256
                G = C \ 256 Mod 256
                B = C \ 65536 Mod 256
                
                ' сам найди как определить фигуру
                '
                Shapes("Figure_NAME").Fill.ForeColor.RGB = RGB(R, G, B)
                '================================
            Else
                MsgBox "Нет такого статуса"
            End If
        End With
   
End Sub

[kovich7]

Спасибо!