powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / переименование именовонных ячеек
49 сообщений из 49, показаны все 2 страниц
переименование именовонных ячеек
    #35048819
Ex232
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Добрый день! Проблема в следеющем. Существет файл Excel в нем 20 листов. Все строки от A1 до A100 каждого листа проименованы как I_1.. I_100. Мне нужно изменить имя именованной ячейки, чтобы имя включало номер листа, допустим List1_I_1.. List1_I_100, для второго List2_I_1.. List2_I_100. Все вроде бы понятно, только не могу получить имя именованной ячейки, не оригинальное, а именно именование. Рисунок прилагаю.
Буду очень признателен за наставление на путь истины.
...
Рейтинг: 0 / 0
переименование именовонных ячеек
    #35048855
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
смотри на коллекцию workbook.names
...
Рейтинг: 0 / 0
переименование именовонных ячеек
    #35048865
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Оно и так его включает, только так же как для адреса ячейки, который одинаковый на всех листах не отображается имя листа, так и для именованой формулы.
Если всё же не включает то задайте имя с именем листа
лист1!Имя1 , хотя в окошке отображается только Имя1, но на самом деле можно ссылаться на этот адрес со всех листов как лист1!Имя1 , так же как лист1!A5 например.
Для того чтобы проверить принадлежит ли ямя определённому листу или всей книги, нужно зайти в меню вставка - имя - присвоить и посмотреть есть ли напротив имени имя текущего листа или нет. Если нет, то значит оно принадлежит всей книге. И в данном случае если сослаться на это имя без указания имени листа, то при наличии на текущем листе такого имени, эксель возмёт его, а при отсутствии возмёт имя которое для всей книги.
...
Рейтинг: 0 / 0
переименование именовонных ячеек
    #35048889
Ex232
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Нет, вы не поняли ) У меня таких файлов 200 штук, мне нужно просто автоматизировать процесс переименования ячеек. В принципе вот и все. Вот что я не могу найти в доке - это как мне получить текущее имя именованной ячейки. Именно то самое I_1 и просто сделать из него List1_I_1. Вообщем так. А-то я так до 100 лет буду руками перебивать, а через 100 лет я буду уже точно на погосте )
...
Рейтинг: 0 / 0
переименование именовонных ячеек
    #35048896
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
DeggasadДля того чтобы проверить принадлежит ли ямя определённому листу или всей книги, нужно зайти в меню вставка - имя - присвоить и посмотреть есть ли напротив имени имя текущего листа или нет. Если нет, то значит оно принадлежит всей книге. И в данном случае если сослаться на это имя без указания имени листа, то при наличии на текущем листе такого имени, эксель возмёт его, а при отсутствии возмёт имя которое для всей книги.Вообще-то, имя области не может принадлежать либо тому, либо другому.
Имя области всегда принадлежит листу. А коллекция имен книги это автоматически склеенная коллекция из всех коллекций листов. Запусти макрос типа:
Код: plaintext
1.
activesheet.names.add Name:="aaa", refersto:=activesheet.range("a1")
debug.print activeworkbook.Names( 1 ).Name
и сам увидишь.
Когда ты ссылаешься на именованную область без указания листа - Эксель ищет эту область сначала на текущем листе, если не нашел - ищет по всей книге. А если на двух листах есть области с одинаковыми именами, то Эксель либо выругается либо возмет первую попавшийся лист (это зависит от контекста).
...
Рейтинг: 0 / 0
переименование именовонных ячеек
    #35048898
Ex232
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
скриптик, хоть пример, дальше я допетрю сам.
...
Рейтинг: 0 / 0
переименование именовонных ячеек
    #35048899
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ex232Вот что я не могу найти в доке - это как мне получить текущее имя именованной ячейки. Именно то самое I_1 и просто сделать из него List1_I_1. Вообщем так.А никак ты его не получишь. Пляши от коллекции имен. Делай по ней цикл, смотри куда очередное имя показывает и меняй соотвественно.
...
Рейтинг: 0 / 0
переименование именовонных ячеек
    #35048902
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Боюсь, что это может привести к тяжеловесным решениям типа:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Sub test()
    Dim n As Name
    For Each n In ThisWorkbook.Names
        If Not Intersect(ActiveCell, n.RefersToRange) Is Nothing Then
            'MsgBox n.Name
            n.Name = " List1_I_1"
        End If
    Next n
End Sub


KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
переименование именовонных ячеек
    #35048904
Ex232
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
White Owl, это добавить именованную ячейку. Я так пробовал. Но мне нужно примерно так.
1) OldSellName = Получить имя именованной ячейки в текущем листе по индексу допустим 1,1 или по Range)
2) newName ="List_"+ номер листа преобразованный в строку+"_"+OldSellName
3) Переименовать OldSellName на newName ( или сперва удалить OldSellName и присвоить newName)

Вообщем-то понимаю? что как-то тривиально , но в VBA не силен, докопаюсь конечно, но нужно это сделать как обычно - ВЧЕРА :(
...
Рейтинг: 0 / 0
переименование именовонных ячеек
    #35048907
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
KL (XL)Боюсь, что это может привести к тяжеловесным решениям типа:Если от ячейки плясать, то да. А если сразу от имени, то все намного проще будет :)
...
Рейтинг: 0 / 0
переименование именовонных ячеек
    #35048912
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
White Owl DeggasadДля того чтобы проверить принадлежит ли ямя определённому листу или всей книги, нужно зайти в меню вставка - имя - присвоить и посмотреть есть ли напротив имени имя текущего листа или нет. Если нет, то значит оно принадлежит всей книге. И в данном случае если сослаться на это имя без указания имени листа, то при наличии на текущем листе такого имени, эксель возмёт его, а при отсутствии возмёт имя которое для всей книги.Вообще-то, имя области не может принадлежать либо тому, либо другому.
Имя области всегда принадлежит листу. А коллекция имен книги это автоматически склеенная коллекция из всех коллекций листов. Запусти макрос типа:
Код: plaintext
1.
activesheet.names.add Name:="aaa", refersto:=activesheet.range("a1")
debug.print activeworkbook.Names( 1 ).Name
и сам увидишь.
Когда ты ссылаешься на именованную область без указания листа - Эксель ищет эту область сначала на текущем листе, если не нашел - ищет по всей книге. А если на двух листах есть области с одинаковыми именами, то Эксель либо выругается либо возмет первую попавшийся лист (это зависит от контекста).

У меня складывается впечатление что половину этого говорил я, а во второйполовине вы ошибаетесь. Посмотрите мой файл.
1)2 именю одинаковых для книги быть не может. Только одно может быть для книги, второе уже автоматом ставится только для листа.
2)если есть имя Name1 , которое принадлежит определённому листу, т.е. Sh1!Name1 ? то написав на другом листе в ячеке =Name1 , вы получите лишь ошибку, ничего эксель не найдет, т.к. на имя принадлежащее листу нужно ссылаться с других листов только так =Sh1!Name1
3) Возможно я неправильно называю термин принадлежащее листу, просто я это сам придумал, т.к. правильных определений не знаю.
...
Рейтинг: 0 / 0
переименование именовонных ячеек
    #35048916
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
White OwlЕсли от ячейки плясать, то да. А если сразу от имени, то все намного проще будет :)Ты об этом?

Код: plaintext
ThisWorkbook.Names("I_1").Name = "List1_I_1"

Да, это было бы легко, но похоже задача несколько другая :-)
...
Рейтинг: 0 / 0
переименование именовонных ячеек
    #35048919
Ex232
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
White Owl, ага они проименованы, нужно их просто чуток подправить. Вот и все. Им не нужно присваивать новое имя их нужно просто переименовать по правилам которые я оприсал, вернне просто приписать порядковый номер листа. Это нужно для того чтобы дурацкая система отчетнсьти легла по данным. Сейчас ячеки называються просто I_xxx, а нужно их трасформировать в L1I_xxx, вот и все... Тока для меня пока это загадка века. Я не программист, я бухгалтер.
...
Рейтинг: 0 / 0
переименование именовонных ячеек
    #35048920
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Если есть закономерность именования ячеек или несколько закономерностей или шаблон имен для всех листов, то на...замеч вообще старое имя ячейки узнавать. Задавай новые имена для всех, да и всё.
...
Рейтинг: 0 / 0
переименование именовонных ячеек
    #35048922
Ex232
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Deggasad, нельзя, это добро потом выгружаеться в центр учета, а он итоговый отччет раситывает именно по именам ячеек. Вот тока так и никак иначе.
...
Рейтинг: 0 / 0
переименование именовонных ячеек
    #35048923
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
DeggasadУ меня складывается впечатление что половину этого говорил я, а во второйполовине вы ошибаетесь. Посмотрите мой файл.
1)2 именю одинаковых для книги быть не может. Только одно может быть для книги, второе уже автоматом ставится только для листа.
2)если есть имя Name1 , которое принадлежит определённому листу, т.е. Sh1!Name1 ? то написав на другом листе в ячеке =Name1 , вы получите лишь ошибку, ничего эксель не найдет, т.к. на имя принадлежащее листу нужно ссылаться с других листов только так =Sh1!Name1
3) Возможно я неправильно называю термин принадлежащее листу, просто я это сам придумал, т.к. правильных определений не знаю.

Усложним задачу (см. приложение). Посмотри на всех 3х листах и найди 3 отличия при наличии лишь одного имени.
...
Рейтинг: 0 / 0
переименование именовонных ячеек
    #35048929
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ex232Deggasad, нельзя, это добро потом выгружаеться в центр учета, а он итоговый отччет раситывает именно по именам ячеек. Вот тока так и никак иначе.
Так я и предлагаю вам имена всех ячеек по новой назначить, вы же знаете как они должны называться.
...
Рейтинг: 0 / 0
переименование именовонных ячеек
    #35048933
Ex232
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Deggasad, допустим так. Вы что предлагаете ? Руками все перебить ? Легко )
Все ячеки, старый удалить, а новые присвоить, это при условии что на каждом листе их ( мы называем это показателями около 1500 штук, листов 20, файлов 200) :) Что тогда я тут делаю ? =)
...
Рейтинг: 0 / 0
переименование именовонных ячеек
    #35048939
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ex232Deggasad, допустим так. Вы что предлагаете ? Руками все перебить ? Легко )
Все ячеки, старый удалить, а новые присвоить, это при условии что на каждом листе их ( мы называем это показателями около 1500 штук, листов 20, файлов 200) :) Что тогда я тут делаю ? =)

Епти, да не руками а макросом, перебрать все нужные ячейки и задать имена которые нужно, при условии что есть шаблон по которому нужно задавать имена.
Например
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
for each sh in thisworkbook.shrrts
 n =  1 
 for each iCell in range("A1:A10")
   iCell.name = sh.name & "name" & format(n, "00")
   n = n+ 1 
 next iCell
 n= 0 
next sh

Ведь есть же какая-то закономерность имён, или шаблон из которого имена для ячеек можно дёргать.
...
Рейтинг: 0 / 0
переименование именовонных ячеек
    #35048942
Ex232
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Ну самое простое, что вы должны знать. Как мне получить имя именованной ячейки ? не реальное имя, а именно присвоенное мной ? Дальше сам разберусь.
...
Рейтинг: 0 / 0
переименование именовонных ячеек
    #35048943
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Deggasad
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
for each sh in thisworkbook.sheets
 n =  1 
 for each iCell in range("A1:A10")
   iCell.name = sh.name & "_name_" & format(n, "00")
   n = n+ 1 
 next iCell
 n= 0 
next sh


исправления
...
Рейтинг: 0 / 0
переименование именовонных ячеек
    #35048944
Ex232
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Deggasad, а вот iCell.name возвращает реальное имя ячейки :) А вот мне нужно получить старое присвоенное ячейке имя. Я до этого сам допетрил. Не подходит.
...
Рейтинг: 0 / 0
переименование именовонных ячеек
    #35048946
Ex232
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Возвращает так:
'415050110440032131'!$A$16
а мне нужно, просто I_145. Вот так-то. Че и маюсь.
...
Рейтинг: 0 / 0
переименование именовонных ячеек
    #35048949
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
KL (XL)
Усложним задачу (см. приложение). Посмотри на всех 3х листах и найди 3 отличия при наличии лишь одного имени.

ШАМАН
правильно я понял, что перед адресом нужно добавить ! (вскл зн) и стереть имя листа?

Шаман, но только моё высказывание эта уловочка не опровергает по той простой причине, что это одно имя (просто замудрёное), а я говорил, что не может быть несколько одинаковых имён в колеекции имён книги, принадлежащих всей книге, а не отдельному листу.
...
Рейтинг: 0 / 0
переименование именовонных ячеек
    #35048951
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ex232Возвращает так:
'415050110440032131'!$A$16
а мне нужно, просто I_145. Вот так-то. Че и маюсь.

Вы так совсем замаетесь
Неужели я непонятно изъясняюсь
НАЗОВИ ЕГО ПО НОВОЙ ДА И ВСЁ

Если у тебя есть какакя-то закономерность имён, а если её нет, нах они вообще нужны.
...
Рейтинг: 0 / 0
переименование именовонных ячеек
    #35048953
Ex232
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
листов 20 и I_145 пвторяется 20 раз, на текущий момент. раньше точное распознование ячейки в личсте было по настройке, сейчас от этого отошли и нужно уникально все переименовать. Вот я не могу понять как это сделать. Данные с ячеки - да, записать - да, добавит - да, удалить - да и прочую муть, а вот как получить имя именовааной ячейки - НЕТ.
...
Рейтинг: 0 / 0
переименование именовонных ячеек
    #35048956
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Deggasad1)2 именю одинаковых для книги быть не может. Только одно может быть для книги, второе уже автоматом ставится только для листа.Не верно, может.
Deggasad2)если есть имя Name1 , которое принадлежит определённому листу, т.е. Sh1!Name1 ? то написав на другом листе в ячеке =Name1 , вы получите лишь ошибку, ничего эксель не найдет, т.к. на имя принадлежащее листу нужно ссылаться с других листов только так =Sh1!Name1 А вот тут неверно. Ты забываешь что два листа МОГУТ содержать одинаковые имена. Но задать их через диалог Name->Define Экселя невозможно . Этот диалог будет всегда прятать дубли. Зато через VBA можно создать и потом использовать области-тезки. Вот сделай пустую книгу с одним листом и запусти макрос start_here
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Sub add_name(sheet_name As String)
    Worksheets(sheet_name).Names.Add Name:="aaa", RefersTo:=Worksheets(sheet_name).Range("A1")
    Worksheets(sheet_name).Range("B2") = "=aaa"
    Worksheets(sheet_name).Range("aaa") = sheet_name
End Sub

Sub start_here()
    add_name ActiveSheet.Name
    Worksheets.Add
    add_name ActiveSheet.Name
    Worksheets.Add
    ActiveSheet.Range("B2") = "=aaa"
End Sub
А теперь побегай по листам и посмотри на ячейки B2.
Потом можешь поиграться с макросом типа
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Sub a()
    Worksheets("Sheet1").Activate
    Debug.Print Application.Range("aaa")
    Worksheets("Sheet2").Activate
    Debug.Print Application.Range("aaa")
    Worksheets("Sheet3").Activate
    Debug.Print Application.Range("Sheet1!aaa")
    Debug.Print Worksheets("Sheet1").Range("aaa")
    Debug.Print Application.Range("aaa")
End Sub
Прогони его пошагово и поудивляйся :)

Deggasad3) Возможно я неправильно называю термин принадлежащее листу, просто я это сам придумал, т.к. правильных определений не знаю.Это правильный термин.
...
Рейтинг: 0 / 0
переименование именовонных ячеек
    #35048960
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ex232Deggasad, а вот iCell.name возвращает реальное имя ячейки :) А вот мне нужно получить старое присвоенное ячейке имя. Я до этого сам допетрил. Не подходит.Тебе сколько раз повторять: Нельзя узнать имя присвоенное ячейке. Можно узнать куда имя показывает.
...
Рейтинг: 0 / 0
переименование именовонных ячеек
    #35048966
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2 White Owl
Не подумайте, что я хочу поспорить, но ваш макрос всего лишь подтверждает мою правоту. Он создаёт 2 имени принадлежащих листу, таких одинаковых имён может быть столько же сколько листов. А вот имён принадлежащих всей книги с одинаковым именем может быть только ОДНО.
...
Рейтинг: 0 / 0
переименование именовонных ячеек
    #35049319
@Nik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
White OwlТебе сколько раз повторять: Нельзя узнать имя присвоенное ячейке. Можно узнать куда имя показывает.
Всё можно.... Например так: :-)
OldCellName = Range("A1").Name.Name
...
Рейтинг: 0 / 0
переименование именовонных ячеек
    #35049390
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
@Nik White OwlТебе сколько раз повторять: Нельзя узнать имя присвоенное ячейке. Можно узнать куда имя показывает.
Всё можно.... Например так: :-)
OldCellName = Range("A1").Name.Name

ГЫ :-)
...
Рейтинг: 0 / 0
переименование именовонных ячеек
    #35049533
Ex232
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Всем спасибо, разобрался.
...
Рейтинг: 0 / 0
переименование именовонных ячеек
    #35050741
@Nik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
KL, а что это за фокус с "!" ? Почему, когда очищаешь ячейку С8, ячейка С10 сразу не обновляется ? Нужно зайти в неё и дать "ввод".
...
Рейтинг: 0 / 0
переименование именовонных ячеек
    #35050794
sqrk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Работать будет если имя есть в каждой ячейке. Если имени где-то может не быть надо бобработку ошибок делать

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Dim n As Integer
    Dim old_name As String

    
    For Each sh In ThisWorkbook.Sheets
        n =  1 
        For Each cls In sh.Range("A1:A100")
                old_name = cls.Name.Name
                cls.Name.Name = sh.Name & "_name_" & Format(n, "000")
                n = n +  1 
        Next cls
        n =  0 
    Next sh

...
Рейтинг: 0 / 0
переименование именовонных ячеек
    #35050801
sqrk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
))

не сразу заметила второй лист форума. Молодец, что разобрался.
...
Рейтинг: 0 / 0
переименование именовонных ячеек
    #35051097
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Deggasadправильно я понял, что перед адресом нужно добавить ! (вскл зн) и стереть имя листаДа, именно так, и тогда имя будет привязано к листу, на котором находится вызывающая формула.

White OwlТы забываешь что два листа МОГУТ содержать одинаковые имена. Но задать их через диалог Name->Define Экселя невозможно .Это не совсем так, просто при создании имени через данный диалог надо эксплицитно указывать лист рядом с именем, например:
Лист1!ТЕСТ

@NikKL, а что это за фокус с "!" ? Почему, когда очищаешь ячейку С8, ячейка С10 сразу не обновляется ? Нужно зайти в неё и дать "ввод".Это одно из свойств именованых формул. Нельзя забывать о том, что в конечном счете именованный диапазон - это не что иное как именованая формула. Насчет пересчета, думаю, что у тебя по какой либо причине установлен ручной режим пересчета (может перед этим открыл файл с этой настройкой, а она задается первым файлом для всех последующих). У меня все считает в реальном времени.
...
Рейтинг: 0 / 0
переименование именовонных ячеек
    #35051114
@Nik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Нет, вычисления стоят "автоматически". Не хотело обновляться даже по Ф9 (Шифт Ф9)
...
Рейтинг: 0 / 0
переименование именовонных ячеек
    #35051118
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
@Nik White OwlТебе сколько раз повторять: Нельзя узнать имя присвоенное ячейке. Можно узнать куда имя показывает.
Всё можно.... Например так: :-)
OldCellName = Range("A1").Name.Name

Классное решение! Есть правда один подводный камень - что если, по оплошности или преденамеренно, ячейке присвоено более одного имени?
...
Рейтинг: 0 / 0
переименование именовонных ячеек
    #35051143
@Nik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Думаю, ничего страшного не произойдёт, оно так и останется болтаться...
...
Рейтинг: 0 / 0
переименование именовонных ячеек
    #35051147
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
@NikНет, вычисления стоят "автоматически". Не хотело обновляться даже по Ф9 (Шифт Ф9)
Вот зараза! Ты прав - в 2003 версии все как ты говоришь, а в 2007 считает корректно.
...
Рейтинг: 0 / 0
переименование именовонных ячеек
    #35051162
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
@NikДумаю, ничего страшного не произойдёт, оно так и останется болтаться...
Да, но может быть переименовано не то имя (я так понял, что первенство определяется по алфавиту). Предположим две разных программы ссылаются на одну и ту же ячейку но под разными именами, эдак можно хорошее имя повредить, а плохое оставить. А при том размахе с каким используют имена у Ex232 это становиться вполне реальной возможностью.
В любом случае это не критика, а обычный процесс "дебаггинга" ;-)
...
Рейтинг: 0 / 0
переименование именовонных ячеек
    #35051425
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
@Nik White OwlТебе сколько раз повторять: Нельзя узнать имя присвоенное ячейке. Можно узнать куда имя показывает.
Всё можно.... Например так: :-)
OldCellName = Range("A1").Name.NameЭкхм.... однако....
...
Рейтинг: 0 / 0
переименование именовонных ячеек
    #35051480
Ex232
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Примерно так. Скрипт на фоксе, ка ни странно для вас :
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
oExcel=CreateObject('Excel.Application')
oDoc = oExcel.Workbooks.Open("g:\XXX\20080108\XXXXX.xlt")
FOR nItem =   1  TO  odoc.Sheets.Count 
cSheet  = "L"+ALLTRIM(STR(nItem ))
 sh = odoc.Sheets(nItem)
 for n =   0  TO  1322 
  rng = "D"+ALLTRIM(STR(n))
  IF EMPTY(sh.Range(rng).NoteText)
   Loop
  endif
  obj_cell = sh.Range(rng).Name
  IF NOT ("L"$obj_cell.Name)
	 obj_cell.Name  =  SUBSTR(obj_cell.Name, 1 ,ATC("!",obj_cell.Name))+cSheet +SUBSTR(obj_cell.Name,ATC("!",obj_cell.Name)+ 1 )
  endif
  endfor
Endfor
oDoc.Save()
oExcel.Visible = .t.
...
Рейтинг: 0 / 0
переименование именовонных ячеек
    #35059852
@Nik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Deggasad и White Owl, так вы до конца разобрались с именами или нет... ? Хочу немного подлить масла в огонь, а то он, смотрю, стал тухнуть :-)
Посмотрите куда указывает имя на Листе 1 и куда указывает ТАКОЕ ЖЕ имя на других листах....
Как вы такое можете объяснить ? А главное, как вы такое можете повторить ?
...
Рейтинг: 0 / 0
переименование именовонных ячеек
    #35060591
sqrk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
я только одно видимое имя в книге нашла
...
Рейтинг: 0 / 0
переименование именовонных ячеек
    #35060796
@Nik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
sqrkя только одно видимое имя в книге нашла
Ещё раз:
@NikПосмотрите куда указывает имя на Листе 1 и куда указывает ТАКОЕ ЖЕ имя на других листах....
Нет, там 2 видимых имени, называются они одинаково, но ссылаются на разные диапазоны...

А вот ещё прикол: Почему тут имя видно только на Листе 1 ? А других листах вообще нет никаких имён :-))) Кто повторит этот фокус ? :-)
...
Рейтинг: 0 / 0
переименование именовонных ячеек
    #35060826
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2 @Nik
Вынужден Вас огорчить - именно это мы сдесь и обсуждали, т.е. имена принадлежащие отдельному листу и имена принадлежащие всей книге!
...
Рейтинг: 0 / 0
переименование именовонных ячеек
    #35060833
@Nik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Да не надо меня огорчать... я просто хотел подтвердить твою правоту этим примером :-)
...
Рейтинг: 0 / 0
переименование именовонных ячеек
    #35061699
sqrk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
я вижу одно имя - aaa.
...
Рейтинг: 0 / 0
49 сообщений из 49, показаны все 2 страниц
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / переименование именовонных ячеек
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]