ser - Recuperando el nombre de la celda en Excel

pasos para asignar nombre a un rango en excel 2016

Question

¿Hay alguna manera de mostrar el nombre de la celda de una celda en particular en otra celda? Me gustaría mostrar el nombre de la celda en la celda adyacente para que el usuario pueda identificar el nombre de la célula sin hacer clic en ella.

Gracias...

Answer 1

Esto funcionará en circunstancias muy básicas:

Public Function CellName(cel As Range) As Variant
Dim nm As Name
For Each nm In Names
If nm.RefersTo = "=" & cel.Parent.Name & "!" & cel.Address Then
CellName = nm.Name
Exit Function
End If
Next
CellName = CVErr(xlErrNA)
End Function

No funcionará si la celda es parte de un rango con nombre, no mostrará múltiples nombres para la celda, no funcionará para las celdas incluidas en las fórmulas nombradas (como los rangos =OFFSET() , por ejemplo).

los

"=" & cel.Parent.Name & "!" & cel.Address

La cosa es bastante torpe, también. Puede haber una mejor manera de hacer el cheque. Crear un objeto Range desde RefersTo y usar Intersect () podría funcionar.

Answer 2

Excel tiene una función "Cell ()" de la que puede obtener ciertas propiedades.

Puede usar = Celda ("fila", K9) y recuperar la fila número 9 y hay un parámetro "col" equivalente pero devuelve el número de columna (11) en lugar de la letra.

Answer 3

No parece posible, lo cual es extraño. Uno pensaría que la función cell() debería proporcionar una forma de obtener el nombre, pero no es así. Gorrón.

Answer 4

Esta función daría el nombre del NamedRange al que pertenece la celda:

Public Function CellName(oCell As Range) As Variant
Dim oName As Name
For Each oName In ThisWorkbook.Names
If oName.RefersToRange.Parent Is oCell.Parent Then
If Not Intersect(oCell, oName.RefersToRange) Is Nothing Then
CellName = oName.Name
Exit Function
End If
End If
Next
CellName = CVErr(xlErrNA)
End Function

Recorre todos los nombres en el libro de trabajo y luego, para cada nombre, comprueba si se refiere a cualquier cosa de la que sea el parámetro de entrada de la hoja. Si es así, comprueba si la celda de entrada y las furias mencionadas por el nombre se cruzan. Si lo hacen, devuelve el nombre del rango.

Answer 5

Tomé algún ''consejo'' de la respuesta anterior de Adarsha. Obtuve un resultado similar al siguiente código, con ese ciclo y algunos refinamientos. Sin embargo, mi "punta de herramientas para macros" es hacer que tu depurador sea tu mejor amigo.

''
Functionname_of(clls)
''
name_of = ""
''
Dim nam As String
Dim rg As Range
Set rg = clls
''
nam = rg.Name.Name
''
name_of = nam
''
End Function ''name_of
''

Un poco de paciencia y perseverancia, me dieron exactamente lo que estaba buscando: una función definida por el usuario para darme el nombre definido de una celda. ¿Qué sucede si la misma Celda tiene más de un nombre? Prueba eso y mira. Es una prueba simple, así que quiero dejar eso para que experimentes, aprendas y transmitas tus nuevos conocimientos.

Disfruta, ... W

Answer 6

ActiveWorkbook.Sheets.Item (1) .Cells (fila, col) .Name.Name

Answer 7

Haga referencia a la celda nombrada en otra celda, E12 en este caso, y luego use esta fórmula: = "''" & FORMULATEXT (E12). Esto coloca un apóstrofo delante, por lo que mostrará el nombre o la fórmula como texto.

Answer 8

ADDRESS(ROW(),COLUMN()) le dará la dirección, por ejemplo $ A $ 1 de la celda actual. Sumar / restar de los valores de fila / columna (números) para hacer referencia a la celda que está buscando.

Si no quiere el $, puede encontrarlo y reemplazarlo por SUBSTITUTE(ADDRESS(ROW(),COLUMN()),"$","") y obtener solo A1 por ejemplo

Answer 9

Puede colocar el cursor en una celda vacía, escribir = y luego hacer clic en la celda nombrada. Mostrará el contenido de la celda. Luego cambia el formato de la celda a texto y mostrará =

Answer 10

En Excel 2013, y quizás también en algunas versiones anteriores, ADDRESS () acepta un tercer parámetro que define el formato de la dirección que se devolverá con los siguientes valores:

1 - Absoluto (predeterminado)

2 - Columna absoluta / Columna relativa

3 - Fila relativa / Columna absoluta

4 - Relativo

así que digamos en la celda A1

ADDRESS(ROW();COLUMN()) //outputs $A$1
ADDRESS(ROW();COLUMN();1) //outputs $A$1
ADDRESS(ROW();COLUMN();2) //outputs A$1
ADDRESS(ROW();COLUMN();3) //outputs $A1
ADDRESS(ROW();COLUMN();4) //outputs A1

Si desea mostrar el nombre de la celda D3 en la celda A1, escriba:

ADDERSS(ROW(D3);COLUMN(D3);4) //outputs text D3 in cell A1