Excel нужна помощь

[Andric]

Нужна помощь. Может кто знает.

Собственно дано:
3 диапазона (как выбирать диапазоны можно прочитать тут: http://www.planetaexcel.ru/tip.php?aid=34, использую способ №2: стандартный):
Диапазон 1 - базовый, состоит допустим из 2х пунктов выбора a и b.
При выборе диапазона 1a в ячейке (условно) 1А, в ячейке (условно) 3А, должен выбираться диапазон 2.
При выборе диапазона 1b в ячейке (условно) 1А, в ячейке (условно) 3А, должен выбираться диапазон 3.

[силентий]

На скорую руку набросал макрос, попутно гугля и разбираясь

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 And Target.Row = 1 Then     ' ячейка A1, здесь выбор
        If Target.Text = "1a" Then     ' проверяем, какой диапазон выбран
            Range("A3").Validation.Modify Formula1:="=Диапазон1A"     ' в формулу устанавливаем имя первого диапазона
        Else
            Range("A3").Validation.Modify Formula1:="=Диапазон1B"     ' или второго
        End If
    End If
End Sub

Код омерзителен, ибо используются адресация и стандартная, и числовая, и по имени, но, вроде бы, работоспособен. Думаю, можно причесать, но не силен в экселевском бейсике.

[Andric]

На скорую руку набросал макрос, попутно гугля и разбираясь

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 And Target.Row = 1 Then     ' ячейка A1, здесь выбор
        If Target.Text = "1a" Then     ' проверяем, какой диапазон выбран
            Range("A3").Validation.Modify Formula1:="=Диапазон1A"     ' в формулу устанавливаем имя первого диапазона
        Else
            Range("A3").Validation.Modify Formula1:="=Диапазон1B"     ' или второго
        End If
    End If
End Sub

Код омерзителен, ибо используются адресация и стандартная, и числовая, и по имени, но, вроде бы, работоспособен. Думаю, можно причесать, но не силен в экселевском бейсике.

А без макросов, другими путями нельзя сделать? Макросы как то пугают сильно, хотя может и проще, чем кажется.

UPD:
нашел, называется если по правильному, то связанные динамические списки.
Как делают: http://www.planetaexcel.ru/tip.php?aid=64