Добрый день!
Имеется два поля ввода, параметра(10 и 11). При объединении получается 1011. Как осуществить появление рисунка при вводе параметров 1011,1012?.
Имеется два поля ввода, параметра(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 |