Не могу изменить значение константы. Excel падает

Добрый день.
Константа ge148 - нужно поменять значение.
Попытка что-либо делать с нею приводит к падению Ексель при попытке откомпиллировать или сохранить проект после изменений.

Вложения

АО8 RF B15 377 Логпрог.zip (4.73 Мб, 48 просмотров)

0

Значение константы нельзя изменить программно. Можно менять значения переменных.

А... Речь про установку нового значения... Я поменял 10 на 20 и сохранил. Проблем нет. Возможно, дело в Вашем Excel.
Как вариант, могу предложить следующее. Сохраните модуль, в котором задана константа, в файл с расширением ".bas". Потом текстовым редактором задайте нужное значение и подключите к проекту новый модуль. А еще лучше - соберите все определения констант в отдельный модуль.

1

Логично. Но про программное изменение вопроса не было.

Добавлено через 16 минут
Catstail, Буду признателен, если сохраните файл с изменением и выложите сюда назад. Мне не удается ничего сделать с этой константой. Ни переименовать, ни удалить ни изменить значение. Последующая попытка сохранить изменения ведет к падению Ексель. Перезагрузка тоже не помогает.

Добавлено через 12 минут
Спасибо, проблему уже решил сам.
Експортировал модуль и удалил из проекта после.
Подправил как надо в обычном текстовом редакторе.
Импортировал назад подправленный.
Так и компильнулось и сохранилось без проблем.
Глюк моего Ексель какой-то .

0

Сообщение от Сфалерит Так и компильнулось и сохранилось без проблем.

сомневаюсь в вашей компиляции - как минимум 10+ необъявленных переменных в правой части строк кода
вы ведь в серьезной задаче решились игнорировать Option Explicit

1

А я не сомневаюсь. Это не вопрос веры. Это вопрос Ткнуть по опции "Compile VBAProject" или не ткнуть. Есть минимум сотня локальных переменных второстепенного значения, которым идет присвоение и тут же локальное использование в ближайших строках и не далее. Использованы они для разбиения длинного кода на части во время отладки. Они не объявлялись и даже не по правилам моим именовались. Ошибок компиляции они не вызывают. Для быстрой отладки и проверки промежуточных значений это очень удобно. Option Explicit потому и не пользую. Остальное - сомневаюсь, что хоть одну основную, именованную по моим правилам, переменную найдете не объявленной где-либо.
Правило формирования переменной: Аббревиатура имени подпрограммы, в которой переменная потребовалась + порядковый номер переменной с такой аббревиатурой. Чтобы дать имя переменной, нужно найти ее номер, то есть перейти в раздел описания переменных подпрограммы и там ее объявить. Соответственно, у меня использование каких-либо переменных без их объявления исключается концептом присвоения имен переменным. Без объявления не присвоить номера - читай - имени.
В любом случае, речь не об исполнении кода, а о его Компилляции. Ексель не в состоянии осилить ее и выдать корректное сообщение об ошибке, если таковая обнаружена в коде. Боле того, простая выгрузка модуля и его повторная заливка, проблемы решают. Стало быть, вопрос далеко не в не объявленных переменных. Это, прежде всего, глюк редактора кода или компиллятора.

0

Сообщение от Сфалерит Компилляции. Ексель не в состоянии осилить ее и выдать корректное сообщение об ошибке, если таковая обнаружена в коде. .

бедняжка Ексель -- трудно ему правильно отработать, когда
- размер модуля1 более 2мб
- модуль1 состоит из 200+ процедур и 100+ функций

0

Сообщение от shanemac51 - размер модуля1 более 2мб - модуль1 состоит из 200+ процедур и 100+ функций

Да да, вложенность нерекуррентных вызовов которых может достигать 15 уровней.
Это универсальный командный интерфейс для не ограниченного количества независимых баз данных, создаваемых под любые нужды.
Он дорабатывается уже почти 20 лет каждый раз все под новые и новые базы данных и потребности. От того и такое большое изобилие функций.

0

Сфалерит, Да тут у вас не то что

Сообщение от Сфалерит к падению Ексель

- тут скоро вся ваша книга упадёт. Будете потом сюда писать - спрашивать как востановить данные из данной книги. Смотрите скриншот ниже если вы понимаете о чём речь идёт.

Миниатюры

 

2

Попахивает жесткачем, 100ни каких то локальных переменных, отказ от Option Explicit и кончно же все в одном модуле. Без сомнения все

Сообщение от Сфалерит очень удобно

осталось только пожелать успехов!

1

Я как-то не задумывался о том, что код может существовать отдельно от уже не существующих листов. Не понимаю, как в книге могут быть листы, которые не отображены никак в интерфейсной части книги? Они ни в закладках ярлыков листов ни в скрытых листах не существуют. Что это за тип объекта такой?
Так же мне не понятно, каким образом удалить эти объекты? Функция Remove для них не активна!

0

Сообщение от Сфалерит каким образом удалить эти объекты? Функция Remove для них не активна!

переименуйте файл в zip и откройте архиватором. Там многое возможно. Потом верните расширение назад. (желательно сделать копию для экспериментов)

1

Идея понятна. Благодарю!

Добавлено через 5 минут
Есть проблемка. Попробовал zip потрошить. Там только 16 листов отражается. Я так понимаю, это именнно листы, реально существующие в интерфейсной части. А вот всех листов инспектора объектов там не нахожу.

Добавлено через 10 минут
Видимо отдельным макросом типа: worksheets(78).delete можно от них избавиться?
- Шиш там. 79 лист так не идет. Ошибка 9.
worksheets("Лист79").delete - тоже не идет!
For Each a In ThisWorkbook.Worksheets - тоже не берет их - не попадают они в коллекцию.

0

Сфалерит, оброс ракушками ваш файл. Пробуйте в пустой файл перенести все нужное. Авось не нужное отвалится...

2

Да уж думаю об этом тоже. Правда, переносить муторно тоже.

Добавлено через 49 минут
Ура, перегрузка в новый файл прошла успешно. Работает. От двух мегов ракушек избавился!

0

Сообщение от Сфалерит Ура, перегрузка в новый файл прошла успешно.

М-да, видать всё же вы не поняли сразу о чём я вам выше намекнул. Эх...

0

Ну, я понял только, что это лишние объекты, которые являются мусором. Но я никогда не задумывался об их присутствии. Да и не знал, что такое явление вообще бывает. Ведь соответствующие этим объектам листы фактически же были зачищены в интерфейсной части. И я был уверен, что вместе с их уничтожением и соответствующие хвосты кода должны были исчезать. А в инспектре объектов мне они никогда глаза не мозолили. Я смотрел сквозь них, выискивая нужное и даже не задумывался о их существовании. Тем более я вобще стараюсь это окно держать скрытым, ибо в основном в одном и том же модуле пишу весь код и мне прыгать куда-то еще приходится не часто.

0