Option ExplicitPrivate Sub Worksheet_Change(ByVal Target As Range) Dim books As Range Set books = ActiveWorkbook.Names("bookbase").RefersToRange If Not Intersect(books, Target) Is Nothing Then Select Case books.Cells(4, 3) Case "пружина" books.Cells(3, 5).Value = "длина пружины" books.Cells(3, 6).Value = "диаметр" Case "скрепка" books.Cells(3, 5).Value = "кол-во скрепок" books.Cells(3, 6).Value = Null Case Else books.Cells(3, 5).Value = Null books.Cells(3, 6).Value = Null End Select End IfEnd Sub
books.Cells(3, 5).Value = "диаметр пружины"books.Cells(3, 6).Value = "длина"
Private Sub Worksheet_Change(ByVal Target As Range)
Case "пружина"
books.Cells(3, 5).Value = "диаметр пружины"
If Not Intersect(books.Range("C4"), Target) Is Nothing Then
Private Sub Worksheet_Change(ByVal Target As Range) Dim books As Range Set books = ActiveWorkbook.Names("bookbase").RefersToRange If Not Intersect(books, Target) Is Nothing Then Application.EnableEvents = False Select Case books.Cells(4, 3) Case "пружина" books.Cells(3, 5).Value = "диаметр пружины" books.Cells(3, 6).Value = "длина" Case "скрепка" books.Cells(3, 5).Value = "кол-во скрепок" books.Cells(3, 6).Value = Null Case Else books.Cells(3, 5).Value = Null books.Cells(3, 6).Value = Null End Select End If Application.EnableEvents = TrueEnd Sub
Dim Mass1(1) As StringMass1(0) = "диаметр пружины"Mass1(1) = "ширина"... Case "пружина" books.Cells(3, 5).Range("A1").Resize(, 2) = Mass1