Страницы: 1
RSS
Вставка картинки по нескольким значениям
 
Добрый день!
Имеется два поля ввода, параметра(10 и 11). При объединении получается 1011. Как осуществить появление рисунка при вводе параметров 1011,1012?.
Код
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Shp As Shape
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("B2")) Is Nothing Then
        For Each Shp In Sheets("Лист1").Shapes
            Shp.Visible = False
        Next
    End If
    With Sheets("Лист1")
    Select Case Target
        Case Is = "1011"
            .Shapes("Рисунок 1").Visible = True
        Case Is = "1012"
            .Shapes("Рисунок 2").Visible = True
    End Select
    End With
End Sub
 
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$C$12" Or Target.Address = "$C$13" Then
        Me.DrawingObjects.Visible = False
        Select Case Range("$C12") & Range("$C13")
        Case "1011"
            Me.Shapes("Рисунок 1").Visible = True
        Case "1012"
            Me.Shapes("Рисунок 2").Visible = True
        End Select
    End If
End Sub
 
RAN, Спасибо
Страницы: 1
Наверх