[dickens]

Вопрос таков: как с помощью средств Vba выделить объекты опредеоённого типа. Например в книге excel на листе расположено n раскрывающихся списков (они создаются с помощью макросов и их порядковые номера, кроме первых трёх все время меняются). Нужно удалить эти списки с 4-го по n-ный. То есть я хочу создать кнопку, связанную с макросом, который каждый раз чистил бы лист от объектов с заданными параметрами. Как это возможно? Пробовал примитивно с циклом сделать, но при первом же ненахлждении макросом списка с i-ым номером, программа выдаёт ошибку. Я ОЧЕНЬ начинающий в этом деле, поэтому не особо владеюфишками vba. Прошу помочь, заранее благодарен!

[Кулик Алексей aka kpblc]

Для начала - VBA в каком ПО? Телепаты как-то кончились.
В Excel? В AutoCAD?

[dickens]

Алексей, будьте внимательней, написано же КНИГА EXCEL.

[Кулик Алексей aka kpblc]

Написано "например". Пример в студию. Вариантов создания выпадающих списков в Excel'e многовато, чтобы можно было сразу что-то предлагать.

[dickens]

Вот файл "примером". На листе 8 расположены раскрывающиеся списки. Кнопка "далее" запускает макрос, который создаёт несколько раскрывающихся списков (dropdown) с типом грунта. У этих списков есть собственные номера, но если их удалить и создать заново, номера будут меняться. Мне нужен макрос который бы удалял списки с номером большим, чем 100.

[Олег (jr.)]

Смотри здесь
http://www.experts-exchange.com/Prog..._22903682.html

[dickens]

Олег, что это? Шутка смешная?

[Кулик Алексей aka kpblc]

Олег (jr.), там нужна то ли подпись, то ли регистрация... Вдобавок похоже, что это дело платное. "Предупреждать надо" (с)

[Олег (jr.)]

Какие шутки сделай scrolldown в самый низ страницы
два предпоследних ответа как раз самое то решение

Вот например кусочек оттуда
как работать со списком

Код:

[Выделить все]

    'Target.Offset(0, 2).Select
Range("D22").Select
    With Selection.Validation
        .Delete
''удаляем ненужное..............
                .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
                xlBetween, Formula1:="Red,Amber,Green"
                .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
                xlBetween, Formula1:="мама,мыла,раму"

            .IgnoreBlank = True
            .InCellDropdown = True
            .InputTitle = ""
            .ErrorTitle = ""
            .InputMessage = ""
            .ErrorMessage = ""
            .ShowInput = True
            .ShowError = True
        End With

[dickens]

Олег, я конечно не гуру VBA, но что-то ко мне в голову вкрадываются сомнения что этот код не имеет ничего общего с тем, про который я говорю. Из сходства я заметил только то, что речь идёт о раскрывающемся списке, но дело в том что она идёт о списке внутри ячейки, а я говорю про раскрывающийся список как элемент управления формы.

[Олег (jr.)]

Тогда еще проще, жаль нет времени
Попробуй искать на гуглях:
Remove items from Combobox Excel VBA

[dickens]

Олег, мне нужно удалить не содержание списка, а сам элемент (сам список).

[Олег (jr.)]

Тут есть кое-что
http://www.rondebruin.nl/controlsobjectsworksheet.htm