Как получить имя ячейки в Excele?

[Saper]

Пишу так:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Target.name = "name"
MsgBox Target.name
End Sub

При двойном клике имя ячейки меняется на нужное, но возвращается почему-то типа =Лист1!$A$2.
Как при программно получить имя ячейки?

[corgi]

activecell.row
activecell.column

[Vitaly1]

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

[Saper]

Дело в том, что ячейки именовать будут пользователи ручками, а я должен, при двойном клике на ячейке, прочитать имя, выбрать из него имя листа и показать расшифровку значения ячейки на этом листе.

[Vitaly1]

Ну, имя активного листа: ActiveSheet.Name
А зачем обязательно знать имя выбранной ячейки, помойму, достаточно адреса:Activecell.Address

[corgi]

вот так сработает
Target.Name = "name"
MsgBox Target.Name.Name
только name должен быть обя зательно задан а то ошибка

[Saper]

Я не знаю заране, для каких ячеек понадобится расшифровка, а по имени это можно было бы определить.

[Vitaly1]

Ну тогда я предлагаю сделать функцию:

Код: Выделить всё


Function ActivecellName()
s = ""
On Error Resume Next
s = ActiveCell.Name.Name
ActivecellName = s

End Function



[RayShade]

А что, просто

Код: Выделить всё

Код:
Function ActivecellName()
On Error Resume Next
ActivecellName = ActiveCell.Name.Name
End Function


Не пойдет?

[Vitaly1]

Впринципе пойдет, но тогда надо тип функции задать строковый, что бы в случаи отсутствия имени функция выдавала пустую строку, а не пустое значение.

[Saper]

О, то что надо

[Vitaly1]

Надо говорить спасибо, всем тем, кто помог

[Saper]

ОГРО-О-ОМНОЕ спасибо