Consejo: Otros idiomas son traducidos por Google. Puedes visitar el English versión de este enlace.
Iniciar sesión
x
or
x
x
Suscríbete
x

or

¿Cómo obtener la dirección de la celda activa en Excel?

Al usar Microsoft Excel, puede obtener fácilmente la ubicación de la celda actualmente seleccionada en el cuadro de nombre que aparece a la izquierda de la barra de fórmulas. Pero si la celda tiene un nombre, no puede examinar su ubicación en función de la visualización en el cuadro de nombre. Y si quiere mostrar directamente la dirección completa de la celda activa, o mostrar la dirección de la celda activa en una celda específica, ¿qué haría? En este tutorial, le mostraremos cómo obtener fácilmente la dirección de la celda activa con fórmula y métodos VBA.

Obtener la dirección de la celda activa con Fórmula

Obtener la dirección de la celda activa con el código VBA

Muestra la dirección de la celda activa en una celda especificada con código VBA


Combine varias hojas de trabajo / libros de trabajo en una hoja de trabajo / libro de trabajo:

Combine varias hojas de trabajo o libros de trabajo en una única hoja de trabajo o libro de trabajo puede ser una gran tarea en su trabajo diario. Pero, si tienes Kutools for Excel, su poderosa utilidad - Combinar puede ayudarlo a combinar rápidamente varias hojas de trabajo, libros de trabajo en una sola hoja de cálculo o libro de trabajo. ¡Descargue la función completa 60-day gratis de Kutools for Excel ahora!

Kutools for Excel: con más de 200 útiles complementos de Excel, de prueba sin límite en días 60. Descargue la versión de prueba gratuita Ahora!


Obtener la dirección de la celda activa con Fórmula


En esta sección, le proporcionaremos una fórmula para obtener fácilmente la dirección de la celda activa.

1. Seleccione una celda para activarla.

2. Copia y pega la fórmula = DIRECCIÓN (ROW (), COLUMN ()) en la celda y luego presione el entrar clave.

Luego puede ver que la dirección de la celda activa se muestra en la celda de inmediato.


Obtener la dirección de la celda activa con el código VBA

También puede obtener la dirección de la celda activa con código VBA. Por favor haz lo siguiente.

1. presione el otro + F11 simultáneamente para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. En el Microsoft Visual Basic para aplicaciones ventana, haga doble clic en el nombre de la hoja de trabajo actual en el panel izquierdo para abrir el editor de Código, luego copie y pegue el código de VBA a continuación en el editor de Código.

Código de VBA: obtener la dirección de la celda activa

Sub selectRange()
	MsgBox ActiveCell.Address
End Sub

3. Luego haz clic en corrida botón para ejecutar el código.

4. A continuación, aparecerá un cuadro de diálogo con la dirección de la celda activa que figura en el interior.


Muestra la dirección de la celda activa en una celda especificada con código VBA

En otra situación, le gustaría que la dirección de la celda activa se muestre en una celda específica. Cada vez que se mueve de una celda a otra, la dirección de la celda se cambiará automáticamente y se mostrará en la celda especificada. Por favor haz lo siguiente.

1. Por favor abre el Microsoft Visual Basic para aplicaciones ventana presionando otro + F11 al mismo tiempo.

2. Haga doble clic en el nombre de la hoja en el panel izquierdo para abrir el editor de código, luego copie y pegue el código a continuación.

Código de VBA: muestra la dirección de la celda activa en una celda especificada

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
	Range("A1").Value = ActiveCell.Address
End Sub

Notas: A1 es la celda donde desea colocar la dirección de la celda activa, puede cambiarla a la celda especificada para sus propias necesidades.

3. Luego haga clic Envíe el > Cerrar y volver a Microsoft Excel Para salir del Microsoft Visual Basic para aplicaciones ventana.

Puede ver la dirección de las pantallas de células activas en la celda A1, y la dirección cambiará automáticamente en función del cambio de la celda activa. Ver captura de pantalla:


Office Tab - Navegación con pestañas, edición y administración de libros en Excel:

Office Tab trae la interfaz con pestañas como se ve en los navegadores web como Google Chrome, nuevas versiones de Internet Explorer y Firefox a Microsoft Excel. Será una herramienta de ahorro de tiempo e irremplazable en su trabajo. Vea la demostración a continuación:

¡Haz clic para obtener una versión de prueba gratuita de Office Tab!

Pestaña Office para Excel



Herramientas de productividad recomendadas para Excel

Kutools para Excel lo ayuda a terminar el trabajo antes de tiempo y sobresalir de la multitud

  • Más que las potentes funciones avanzadas de 300, diseñadas para los escenarios de trabajo 1500, aumentando la productividad en un 70%, le dan más tiempo para cuidar de la familia y disfrutar de la vida.
  • Ya no es necesario memorizar fórmulas y códigos de VBA, dale un descanso a tu cerebro de ahora en adelante.
  • Conviértase en un experto en Excel en minutos 3. Las operaciones complicadas y repetidas se pueden realizar en segundos.
  • Reduzca miles de operaciones de teclado y mouse todos los días, despídase ahora de las enfermedades profesionales.
  • 110,000 personas altamente efectivas y 300 + elección de compañías de renombre mundial.
  • 60-day completo de prueba gratuita de características. Garantías de devolución del dinero de 60-day. 2 años de actualización y soporte gratis.

Trae la navegación y edición con pestañas a Microsoft Office, mucho más poderosa que las pestañas del navegador

  • La pestaña Office está diseñada para Word, Excel, PowerPoint y otras aplicaciones de Office: Publisher, Access, Visio y Project.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta tu productividad en un 50% y reduce cientos de clics de ratón por ti todos los días!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    RichEO · 2 months ago
    The first example does not display the address of the active cell but of the cell containing the formula. If you were to select a different cell the address would not change.
    Actually this is probably more useful information than gathering the active cell's address and harder to find if you need it. I was looking how to do this using VBA and could not find it for a while so I will include it here:

    Application.Caller.Address

    That will give you the address of the cell calling the function and not the active cell, useful for relative references.
  • To post as a guest, your comment is unpublished.
    Bill Schipper · 1 years ago
    Hello,

    Displaying the active cell reference is helpful. But how do I actually use that value? I'm reading exams, and have six columns (of which two will get filled in). The student name is in column A; I can extract the family name: LEFT(A7,(FIND(",")A7)-1))) [where A7 is the current address]. I can use the code for displaying the current active cell address provided above:

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Range("A1").Value = ActiveCell.Address
    End Sub

    But what I really want to do is have the cursor being somewhere in the current row (C3:H3), and extract the family name of the current student. Example:

    A B C D E F G H
    1 Name ID 1 2 3 4 5 6

    2 Smith, John 1234567

    When the active cell is between C1 and H1, I want to extract the student name from A2 ("Smith, John") [using LEFT(A2,(FIND(",")A2)-1)))], but with the values for the address supplied from the code above.

    Any suggestions would be welcome.


    Bill
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Dear Bill,
      If you want to use the cell reference of active cell, please apply below VBA code.
      (The active cell reference will be displayed in cell A1. Then you can copy the cell reference directely in A1 or do other operations as you need.)

      Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      On Error Resume Next
      If (Target.Count = 1) And (Intersect(Target, Range("A1")) Is Nothing) Then
      Range("A1").Value = ActiveCell.Address
      End If
      End Sub