Макрос перестает работать через определенным период времени.

Пользователь

Сообщений: 6 Регистрация: 20.11.2016

20.11.2016 19:25:13

Добрый вечер, господа! Будьте добры, не откажите в помощи. Вот такая у меня ситуация. В файле примера с помощью макросов сделана форма, которая вызывается двойным кликом по ячейкам столбца L. Форма предназначена облегчить заполнение таблицы (выбор курсов для обучения персонала). Пустой шаблон работал на ура. После направления его персоналу для заполнения, через определенное время вызов формы не срабатывает и выбивает ошибку. Не могу понять с чем это связано и как исправить. В макросах новичок... Буду благодарен за любую помощь.

Прикрепленные файлы

Пример.xlsm (81.61 КБ)

Hugo Пользователь Сообщений: 26361 Регистрация: 22.12.2012	#2 20.11.2016 19:37:02 Как один из вариантов - на англоязычных машинах может не быть объекта Лист2.

Roodbont Пользователь Сообщений: 6 Регистрация: 20.11.2016	#3 20.11.2016 19:40:54 Да вроде нет таких. На предприятии все операционки и машины русифицированы. Единственное на что я еще пеняю, так это разница в версиях экселя, но уверенности нет.

kuklp

Пользователь

Сообщений: 14868 Регистрация: 21.12.2012

E-mail и реквизиты в профиле.

20.11.2016 19:48:16

Исправьте строку так, например(В UserForm_Initialize):

Код
cbList.ListIndex = cbList.ListCount - 1 'Int([NumListColumn]) - 1

Я сам - дурнее всякого примера! ...

SuperCat

Пользователь

Сообщений: 2737 Регистрация: 21.12.2012

20.11.2016 19:50:11

Код
cbList.ListIndex = Int([NumListColumn]) - 1 ?cbList.ListCount 11 ?[NumListColumn] 12

Ошибка. Вы присваиваете ListIndex'у значение 11, а максимально возможное - 10 (так как индексы начинаются с 0, а не с 1).

There is no knowledge that is not power

Roodbont

Пользователь

Сообщений: 6 Регистрация: 20.11.2016

20.11.2016 20:01:52

Цитата
kuklp написал: cbList.ListIndex = cbList.ListCount - 1 'Int([NumListColumn]) - 1

Благодарю. Помогло. А не подскажите что служило так сказать "триггером" для этой ошибки?

kuklp Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#7 20.11.2016 20:04:08 См. ответ SuperCat. Я сам - дурнее всякого примера! ...

Roodbont Пользователь Сообщений: 6 Регистрация: 20.11.2016	#8 20.11.2016 20:06:53 SuperCat, прошу прощения, не совсем понимаю в какой части кода находятся эти строки?

Roodbont

Пользователь

Сообщений: 6 Регистрация: 20.11.2016

20.11.2016 20:15:19

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

SuperCat Пользователь Сообщений: 2737 Регистрация: 21.12.2012	#10 20.11.2016 20:26:13 Если ошибок нет, то никаких манипуляций делать не надо There is no knowledge that is not power

Roodbont Пользователь Сообщений: 6 Регистрация: 20.11.2016	#11 20.11.2016 20:44:39 Я когда ее рассылал тоже ошибок не было)))) Ну я Вас понял. kuklp, SuperCat, огромное спасибо за помощь!!!

Читают тему