Макрос Cell Name

[Foxx]

Здравствуйте! В этом файле содержатся именованные ячейке. Использую макрос Cell Name. В файле задейстовованы 600 строк и столбцы от A до Q. Курсор в ячейке A10. Вставляю строку, ввожу данные в ячейки потом жму выполнение макроса. Занимает около 4 минут. Если не ошибаюсь, этот макрос перебирает заново все ячейки, которые использованы и пересматривает их имена. Если имен нет, он присваивает. Видимо из-за этого при больших программах с большим количеством строк и столбцов занятых, это будет очень долго. Есть ли способ ускорить процесс выполнения макроса (может чтобы он пересматривал только вставленные ячейки).

[kuklp]

А зачем это нужно? У каждой ячейки и так есть уникальное имя в виде адреса. С Вашими экзорсисами пустой файл весит почти мегабайт. Вас это не смущает?

[Foxx]

kuklp
Программу стер, так как не имеет принципиального значения. Пока я ее писал постепенно вставлял строки и столбцы. В итоге счетчик в ячейке A1 дошел до 23 (скрытый лист Temp). Уникальное имя в виде адреса A1 не закрепляется за ячейкой. Устанавливаю связь в виде неформатированного текста в Word на ячейку. При вставке строк или столбцов, этот адрес будет уже на другой ячейке. Имена же ячеек сохраняются и следовательно связь будет с той ячейкой, которая необходима. Для этого и нужно именовать ячейки.
http://www.programmersforum.ru/showthread.php?t=88411

[VictorM]

Имена же ячеек сохраняются и следовательно связь будет с той ячейкой, которая необходима. Для этого и нужно именовать ячейки.

все это так, но имена, да еще в ТАКОМ количестве, значительно утяжеляют файл, о чем заметил выше kuklp. Да и скорость работы Excel с именоваными ячейками меньше. Вот и тормоза у Вас.
а

постепенно вставлял строки и столбцы. В итоге счетчик в ячейке A1 дошел до 23 (скрытый лист Temp). Уникальное имя в виде адреса A1 не закрепляется за ячейкой.

ИМХО говорит о непродуманности проекта на начальной стадии разработки.

[Foxx]

VictorM
Все продумать досканально и в полной степени не всегда бывает возможным.

[Foxx]

Если ввести данные в ячейку A1 и D10 и запустить макрос, то имена присваиваются всем ячейка в диапазоне A1:D10.

[kuklp]

Foxx, а ничего, что Ваш макрос присваивает имена включая тот самый адрес? Т.е. после вставки строки внутри таблицы, все ячейки так же поменяют имена в соответствии с адресами? И чего Вы добились, кроме пустой траты времени? Не, дело Ваше...

[Foxx]

Сообщение от kuklp

Т.е. после вставки строки внутри таблицы, все ячейки так же поменяют имена в соответствии с адресами?

Вводим в A1=1 и в D4=2. Запускаем макрос. Имена ячеек будут типа имя_1A1. Далее курсор на 3 строке. Втставляем строку. Снова запускаем макрос. Имена ячеек новой строки имя_2А3. Имена других ячеек не изменились.

[kuklp]

А теперь посмотрите, сколько имен ссылаются на ячейку А1. При цифре 7 в temp - 8 имен(если не менять ее расположение). Т.е. при каждом проходе программы к каждой ячейке добавляется еще одно имя. А все это вес и тормоз.

[Foxx]

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

Sub CellNames()
For Each cell In ActiveSheet.UsedRange
        cell.Name = "имя_" & Sheets("Temp").[A1] & cell.Address(RowAbsolute:=False, ColumnAbsolute:=False)
    Next: Sheets("Temp").[A1] = Sheets("Temp").[A1] + 1
End Sub