Создание выпадающего списка

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Создание выпадающего списка (Макросы/Sub)

Anna90

Дата: Вторник, 14.11.2017, 11:11 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Добрый день!
при создании выпадающего списка возникла ошибка (скриншоты приложены), помогите разобраться в чем причина?
Получается что список работает какое то время, а потом ошибка

К сообщению приложен файл: 6147871.jpg (56.0 Kb) · 0287536.jpg (56.0 Kb)

Сообщение отредактировал Anna90 - Вторник, 14.11.2017, 11:17

Ответить

китин

Дата: Вторник, 14.11.2017, 11:36 | Сообщение № 2

Группа: Модераторы

Ранг: Экселист

Сообщений: 7014

Репутация: 1073 ±

Замечаний: 0% ±

Excel 2007;2010;2016

Anna90, тут по фото не лечат. файл нужен а не картинка

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

Anna90

Дата: Вторник, 14.11.2017, 17:36 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

китин, спасибо за подсказку, приложила файл!

К сообщению приложен файл: magazin_elki.xlsm (68.0 Kb)

Ответить

Pelena

Дата: Вторник, 14.11.2017, 18:29 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 19174

Репутация: 4413 ±

Замечаний: ±

Excel 365 & Mac Excel

Пока выявила только один источник ошибки - использование прокрутки Листбокса.
Проверьте так

К сообщению приложен файл: 2577481.xlsm (79.1 Kb)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

krosav4ig

Дата: Вторник, 14.11.2017, 18:33 | Сообщение № 5

Группа: Друзья

Ранг: Старожил

Сообщений: 2347

Репутация: 989 ±

Замечаний: 0% ±

Excel 2007,2010,2013

Цитата Anna90, 14.11.2017 в 11:11, в сообщении № 1 ()

какое то время

какое?

Цитата Anna90, 14.11.2017 в 11:11, в сообщении № 1 ()

а потом ошибка

после каких действий?
если ошибка возникает при прокрутке ListBox, то нужно сделать проверку значения ListIndex[vba]

Код

Sub DropDown_click()
    SetVariables
    If DropDown.ListIndex Then
        Range(TextBox.LinkedCell) = DropDown.List(DropDown.Value)
        DeleteElements
    End If
End Sub

[/vba]