Раскрывающийся список значений, макросом.

[Flangini]

Добрый день!

Подскажите пожалуйста, как описать макросом следующую задачу:
Если в яцейке А2 написать "ЛА", то в ячейке В2 из раскрывающегося списка можно будет выбрать: "Волга" или "Жигули". Если в ячейке А2 написать "ГА", то в ячейке В2 из раскрывающегося списка можно будет выбрать: "Газон" или "Газель".

[SAS888]

Макросом можно сделать все, что угодно. Для этого вовсе не обязательно, чтобы в ячейке "B2" был список. А Вам как нужно?

[Flangini]

Именно список нужен, чтобы пользователь мог выбрать значение и не в коем случаи не мог написать отсебятину Я думаю и для А2 создать через "Проверку" список: "ЛА" или "ГА", а вот как создать в В2 два разных списка не знаю. То есть в А2 выбирается "ЛА" или "ГА" и в зависимости от выбора - в В2 можно будет выбрать "Волга" или "Жигули" при "ЛА", "Газон" или "Газель" при "ГА".

[EducatedFool]

А зачем Вам макросы?
Чем Вас не устраивают встроенные возможности Excel?

Про создание таких списков можно почитать здесь: http://www.planetaexcel.ru/tip.php?aid=64

[Flangini]

Этим способом у меня уже реализовано и при этом пустой файл (не заполненный) стал весить 2 Мб. Учитывая что в нём предполагается заполнить до 1000 строк и пересылать его по электронке, полюс в файле автоматически рисуются графики и при заполнении 20 строк вес файла становится уже 5 Мб, это всё становится просто не реальным. Вот я и подумал перенесение условий заполнения формы в макрос не позволит ли мне съэкономить дрогоценные мегабайты.

[SAS888]

перенесение условий заполнения формы в макрос не позволит ли мне съэкономить дрогоценные мегабайты.

Позволит. Большое количество формул (если еще и длинных, или с пользовательскими функциями) очень "раздувают" объем.
Прикрепите пример того, что нужно получить по всем ячейкам и листам. Можно все делать макросом, который займет минимум места в файле.

[Flangini]

Заполнять форму необходимо сторого по строкам начиная с ячейки В2 последовательно внося данные, а то глючит и выдаёт либо пустые списки, либо вообще их не раскрывает. Соответственно в рабочем варианте у меня стрыты столюцы с Р по IV.

[Flangini]

Расскажите пожалуйста принцып создания раскрывающихся списков макросом (код), дальше я сам попробую написать .

[EducatedFool]

А что, поиск по форуму не работает?
http://www.programmersforum.ru/showt...ght=validation
http://www.programmersforum.ru/showt...ght=validation

Ключевое слово для поиска - validation

[Flangini]

Sub test()
    FormatConfirmationCell [a2]
End Sub

Sub FormatConfirmationCell(ByRef ce As Range)
    With ce
        .HorizontalAlignment = xlCenter
        With .Validation ' формируем выпадающий список
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertInformation, Operator:= _
                 xlBetween, Formula1:=ce.Value & ", Выполнено, Не выполнено"
            .IgnoreBlank = True: .InCellDropdown = True
        End With
        .FormatConditions.Delete ' условное форматирование
        .FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=""Выполнено"""
        .FormatConditions(1).Interior.ColorIndex = 35    '4
        .FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=""Не выполнено"""
        .FormatConditions(2).Interior.ColorIndex = 38    '3
    End With
End Sub

А как можно распространить этот код ни на одну яцейку А2, а на диапазон А2:А100?