|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
14.05.2020, 15:29 | #1 |
Форумчанин
Регистрация: 21.10.2012
Сообщений: 143
|
Перестал работать код
Здравствуйте. Нашёл в интернете код для редактирования прямоугольника макросом. Прямоугольников у меня будет много, начал копировать макросы и добавлять в Private Sub Worksheet_SelectionChange(ByVal Target As Range) названия новых макросов. После третьего макроса появилась ошибка Type mismatch. Сам не разберусь. Прошу помочь.
Код:
|
14.05.2020, 15:41 | #2 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Давайте файл с этим листом с прямоугольниками и листами "Выбор вставок" и "Расчёт дверей"
webmoney: E265281470651 Z422237915069 R418926282008
|
14.05.2020, 18:24 | #3 |
Форумчанин
Регистрация: 21.10.2012
Сообщений: 143
|
Приложил файл
|
14.05.2020, 18:56 | #4 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
У меня отработало без сбоев. Насколько правильно - не в курсе, но все макросы отработали.
webmoney: E265281470651 Z422237915069 R418926282008
|
14.05.2020, 19:01 | #5 |
Форумчанин
Регистрация: 21.10.2012
Сообщений: 143
|
Мистика. Открыл файл - работает. Днем закрывал файл и снова открывал, всё-равно всплывала ошибка. Как-бы то ни было, поработаю дальше, посмотрю куда кривая вывезет. Вам спасибо
|
14.05.2020, 19:03 | #6 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
На какой строке ошибку выбивает?
webmoney: E265281470651 Z422237915069 R418926282008
|
15.05.2020, 13:06 | #7 |
Форумчанин
Регистрация: 21.10.2012
Сообщений: 143
|
Было на четвёртой. Сегодня сделал для одной двери - 20 макросов. Пока всё работает нормально. Всего будет сто макросов. Не будет глюков при таком количестве?
Хотелось бы, что бы при увеличении размера прямоугольника увеличивался шрифт текста на нём. Может напишите что добавить в код. В опциях фигур есть "подстроить фигуру под текст", но нет обратного "подстроить текст под фигуру". |
15.05.2020, 13:38 | #8 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
глюков не будет, главное - мозгами не поехать
(зачем они нужны 100 шт.???)))
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
15.05.2020, 13:48 | #9 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
таких запросов как в 1-ом сообщении?
Тогда следует обратить внимание на параметры процедур. Зачем 100 макросов, если можно 1 в цикле вызыватть? https://docs.microsoft.com/ru-ru/dot...-and-arguments
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
15.05.2020, 14:06 | #10 |
Форумчанин
Регистрация: 21.10.2012
Сообщений: 143
|
Сегодня всплыла ошибка на 18-м макросе. Заметил что в момент изменения формулы в ячейке. Было ЕСЛИ(....., то пусто) заменил на "то ноль" - ошибка ушла.
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Перестал работать Intellisense | ninja2 | Visual C++ | 25 | 20.10.2015 16:34 |
Перестал работать код | Оксана33 | Microsoft Office Excel | 6 | 07.10.2015 21:10 |
Перестал работать css | impulsgraw | HTML и CSS | 8 | 22.08.2011 21:28 |
Перестал работать код | Mikuro | Microsoft Office Excel | 6 | 12.11.2010 15:24 |
перестал работать cd-rom | Betty | Компьютерное железо | 7 | 22.08.2009 09:10 |