Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как определить, что ячейка не имеет имени? / 4 сообщений из 4, страница 1 из 1
21.04.2009, 12:40:25
    #35943984
Infinity Creator
Infinity Creator
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как определить, что ячейка не имеет имени?
Здравствуйте.

Столкнулся с такой проблемой. Имею функцию, которая в зависимости от имени ячейки выполняет те или иные действия. Для считывания имени ячейки использую обращение к объекту вроде:

SearchedName = Cells(ActiveCell.Row, ActiveCell.Column).Name.Name

И все прекрасно работает, но только в том случае, если ячейка имеет присвоенное имя. А вот если имя не присвоено, то обращение описанным выше методом вызывает ошибку:

1004 Application-defined or object-defined error

Вопрос. Где можно посмотреть, имеет данная ячейка присвоенное имя или нет? По идее где-то должен быть флаг или тэг, но я его в ActiveWorksheet.Cells не нашел.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.04.2009, 13:07:00
    #35944108
Deggasad
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как определить, что ячейка не имеет имени?
Infinity CreatorЗдравствуйте.

Столкнулся с такой проблемой. Имею функцию, которая в зависимости от имени ячейки выполняет те или иные действия. Для считывания имени ячейки использую обращение к объекту вроде:

SearchedName = Cells(ActiveCell.Row, ActiveCell.Column).Name.Name

И все прекрасно работает, но только в том случае, если ячейка имеет присвоенное имя. А вот если имя не присвоено, то обращение описанным выше методом вызывает ошибку:

1004 Application-defined or object-defined error

Вопрос. Где можно посмотреть, имеет данная ячейка присвоенное имя или нет? По идее где-то должен быть флаг или тэг, но я его в ActiveWorksheet.Cells не нашел.

А зачем вообще все смотреть ячейки смотрите только те что с именами, т.е. по именам пробегайте или делайте что нужно?

Либо ошибку перехватывай

Код: plaintext
1.
2.
3.
4.
SearchedName = ""
On Error Resume Next
SearchedName = Cells(ActiveCell.Row, ActiveCell.Column).Name.Name
On Error GoTo  0 
If SearchedName <> "" Then Debug.Print SearchedName
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.04.2009, 14:56:11
    #35944549
Infinity Creator
Infinity Creator
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как определить, что ячейка не имеет имени?
Пробегать по именам неудобно очень, особенно, когда имя ячейки часто импользуется как триггер.
А отлов ошибки - штука чреватая...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.04.2009, 15:04:44
    #35944579
Infinity Creator
Infinity Creator
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как определить, что ячейка не имеет имени?
Deggasad

Спасибо. Помог
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как определить, что ячейка не имеет имени? / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 491ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2179561]:
 0ms
get settings:
 8ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 189ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 33ms
get tp. blocked users:
 1ms
others: 227ms
total:  491ms
x
x
Закрыть


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