Как получить имя «Ячейка имени» ячейки Excel?

Question

У меня есть ячейка в Excel, для которой я назначил имя переменной, this_cells_name, в ячейку D2, используя поле имени Excel.

Вот пример того, что Excel Name Box является:

Я хочу быть в состоянии указать на эту ячейку и получить имя переменной в качестве возвращаемого значения.

Я знаю, как сделать следующее:

• использование =CELL("address",D2) и получить "$D$2" в качестве возвращаемого значения,
• использование =CELL("address",this_cells_name) и получить "$D$2" в качестве возвращаемого значения.

Я хочу сделать следующее:

• использования =some_function(D2) и получить "this_cells_name" в качестве возвращаемого значения.

Как это сделать? Решение VBA будет прекрасным.

Answer 1

Вы также можете использовать

Dim var as variant 
on error Resume Next 
var=Range("D2").Name.Name 
on error goto 0 
if IsEmpty(var) then msgbox "Cell has no name" 

Захват ошибки обрабатывать случай, когда клетка не имеет имени

Answer 2

Рассмотрим:

Public Function WhatsInAName(r As Range) As String 
    WhatsInAName = "" 
    For Each n In ThisWorkbook.Names 
     If Range(n).Address(0, 0) = r.Address(0, 0) Then 
      WhatsInAName = n.Name 
     End If 
    Next n 
End Function 

Например: