Excel создание отчета с элементами анимации

@bms_ · Регистрация: 30.01.2014

Author24 — интернет-сервис помощи студентам

Ребят подскажите как воплотить в жизнь такое:
задача на листе excel создать отчет, в котором имеется рисунок некого объекта, разделенный на участки.
Имеется таблица, при изменении значений которой при вводе меняется цвет участков объекта с отображением на участке объекта соответствующего значения таблицы. Как это реализовать ?

@OLEGOFF · 01.02.2014, 00:40

Посмотри в примере может где-то так?

@bms_ · 01.02.2014, 10:20 **[ТС]**

как то так

@OLEGOFF · 02.02.2014, 03:09

Тогда вот так

@Alex77755 · 02.02.2014, 09:08

Трохи короче

Visual Basic

Private Sub Worksheet_Change(ByVal Target As Range)
    If Application.Intersect(Range("R12:R17"), Target) Then
        reg = Array("Путинцево", "Медведково", "Зюгановка", "Жириновкино", "Казаково", "Рогозкино")
        Select Case Target.Value
        Case Is < 70
            ActiveSheet.Shapes(reg(Target.Row - 12)).Select
            Selection.ShapeRange.Fill.ForeColor.SchemeColor = 3
        Case 70 To 80
            ActiveSheet.Shapes(reg(Target.Row - 12)).Select
            Selection.ShapeRange.Fill.ForeColor.SchemeColor = 4
        Case 80 To 90
            ActiveSheet.Shapes(reg(Target.Row - 12)).Select
            Selection.ShapeRange.Fill.ForeColor.SchemeColor = 6
        Case Is > 90
            ActiveSheet.Shapes(reg(Target.Row - 12)).Select
            Selection.ShapeRange.Fill.ForeColor.SchemeColor = 2
        End Select
    End If
End Sub

@KoGG · 07.02.2014, 11:58

А зачем Select ?

Visual Basic

Private Sub Worksheet_Change(ByVal Target As Range)
    If Application.Intersect(Range("R12:R17"), Target) Then
        reg = Array("Путинцево", "Медведково", "Зюгановка", "Жириновкино", "Казаково", "Рогозкино")
        With ActiveSheet.Shapes(reg(Target.Row - 12)).Fill.ForeColor
            Select Case Target.Value
                Case Is < 70
                    .SchemeColor = 3
                Case 70 To 80
                    .SchemeColor = 4
                Case 80 To 90
                    .SchemeColor = 6
                Case Is > 90
                    .SchemeColor = 2
            End Select
        End With
    End If
End Sub

@KoGG · 07.02.2014, 15:04

Унаследовал ошибку в случае изменения нецелевой ячейки.

Visual Basic

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Range("R12:R17"), Target) Is Nothing Then
        reg = Array("Путинцево", "Медведково", "Зюгановка", "Жириновкино", "Казаково", "Рогозкино")
        With ActiveSheet.Shapes(reg(Target.Row - 12)).Fill.ForeColor
            Select Case Target.Value
                Case Is < 70
                    .SchemeColor = 3
                Case 70 To 80
                    .SchemeColor = 4
                Case 80 To 90
                    .SchemeColor = 6
                Case Is > 90
                    .SchemeColor = 2
            End Select
        End With
    End If
End Sub

В файле более широкий способ анимации по значениям из ячеек.

@bms_ 0 / 0 / 0 Регистрация: 30.01.2014 Сообщений: 2
		1
	Excel создание отчета с элементами анимации 30.01.2014, 21:25. Показов 3421. Ответов 6 Метки нет (Все метки) Ребят подскажите как воплотить в жизнь такое: задача на листе excel создать отчет, в котором имеется рисунок некого объекта, разделенный на участки. Имеется таблица, при изменении значений которой при вводе меняется цвет участков объекта с отображением на участке объекта соответствующего значения таблицы. Как это реализовать ? 0

	07.02.2014, 15:04

Excel создание отчета с элементами анимации

Решение