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