XL2000: Cómo hacer referencia a una celda en el encabezado o pie de página

Seleccione idioma Seleccione idioma
Id. de artículo: 273028 - Ver los productos a los que se aplica este artículo
Expandir todo | Contraer todo

En esta página

Resumen

Este artículo contiene un ejemplo de Microsoft Visual Basic para aplicaciones macro que hace referencia a una celda para el encabezado o pie de página de una hoja de cálculo.

Más información

Microsoft proporciona ejemplos de programación con fines ilustrativos únicamente, sin ninguna garantía tanto expresa como implícita, incluyendo, pero sin limitarse a, las garantías implícitas de comerciabilidad e idoneidad para un propósito determinado. En este artículo se supone que está familiarizado con el lenguaje de programación que se muestra y las herramientas utilizadas para crear y depurar procedimientos. Los profesionales de soporte técnico de Microsoft pueden explicarle la funcionalidad de un determinado procedimiento, pero no modificarán estos ejemplos para ofrecer mayor funcionalidad ni crearán procedimientos a necesidades específicas.
Si tiene poca experiencia en programación, desea póngase en contacto con un Microsoft Certified Partner o servicios de consultoría de Microsoft. Para obtener más información, visite estos sitios Web de Microsoft:

Microsoft certificado Partners - https://partner.microsoft.com/global/30000104

Servicios de asesoramiento de Microsoft - http://support.microsoft.com/gp/advisoryservice

Para obtener más información acerca de las opciones de soporte técnico que están disponibles y cómo ponerse en contacto con Microsoft, visite el siguiente sitio Web de Microsoft: http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMSLa siguiente macro de ejemplo agrega los datos de la celda A1 en el pie de la hoja de cálculo activa:
Sub UpdateFooter()
   ActiveSheet.PageSetup.Leftfooter = Range("A1").Value
End Sub
				
la siguiente macro de ejemplo agrega los datos desde la celda A1 en el encabezado de la hoja de cálculo activa.
Sub UpdateHeader()
   ActiveSheet.PageSetup.Leftheader = Range("A1").Value
End Sub
				
para crear una macro de Visual Basic, siga estos pasos:
  1. Inicie Microsoft Excel.
  2. Presione ALT+F11 para iniciar el Editor de Visual Basic.
  3. En el menú Insertar , haga clic en módulo .
  4. Escriba el código que desee en la hoja de módulo.
  5. Presione ALT+F11 para volver a Excel.
Para ejecutar la macro, siga estos pasos:
  1. Inicie Excel, abra el libro que desee y, a continuación, a la hoja que desee.
  2. En el menú Herramientas , elija macro y, a continuación, haga clic en macros .
  3. Seleccione la macro que desee y, a continuación, haga clic en Ejecutar . Nota : después de ejecutar la macro de UpdateFooter, el pie de página debe contener los datos contenidos en la celda A1.

Método alternativo

También puede utilizar el evento de libro BeforePrint para ejecutar una macro que agrega los datos de la celda A1 pie izquierdo de la hoja de cálculo activa antes de que se imprime el libro.

Para crear la macro en el libro activo, siga estos pasos:
  1. Inicie el Editor de Visual Basic.
  2. En la ventana de proyecto (parte superior izquierda) del Editor de Visual Basic, haga doble clic en ThisWorkbook en el proyecto actual.

    Abre una hoja de módulo que está asociada con el libro.
  3. En la lista objeto (por encima de la hoja de módulo y a la izquierda) para este módulo, seleccione libro .
  4. En la lista procedimiento (por encima de la hoja de módulo y a la derecha) para este módulo, seleccione BeforePrint .
  5. Escriba el siguiente ejemplo de código en el módulo:
    Private Sub Workbook_BeforePrint(Cancel As Boolean)
       ActiveSheet.PageSetup.LeftFooter = Range("a1").Value
    End Sub
    					
  6. En el menú archivo , haga clic en Cerrar y volver a Microsoft Excel .
Cuando imprime el libro, el pie de página se actualiza automáticamente antes de imprime el libro.

Utilizando una y comercial (&) en el encabezado o pie de página

Si los datos en una celda que se hace referencia contienen una "y" comercial (&), es posible que no se muestren correctamente. Excel trata la y comercial como un carácter especial en el encabezado y pie de página. Para mostrar una y comercial en el encabezado y pie de página, repita dos veces el signo &. Para ello en la macro, utilice elfunción Reemplazar en Visual Basic para aplicaciones, como en el siguiente ejemplo de código:
Sub UpdateFooter()
    ActiveSheet.PageSetup.LeftFooter = Replace(Range("a1").Value, "&","&&")
End Sub
				

Referencias

Para obtener más información acerca de la propiedad LeftFooter o LeftHeader (propiedad), en el Editor de Visual Basic, haga clic en Ayuda de Microsoft Visual Basic en el menú Ayuda , escriba propiedad leftfooter o propiedad leftheader en el Ayudante de Office o el Asistente para Ayuda y, a continuación, haga clic en Buscar para ver el tema.

Propiedades

Id. de artículo: 273028 - Última revisión: jueves, 23 de noviembre de 2006 - Versión: 3.5
La información de este artículo se refiere a:
  • Microsoft Excel 2000 Standard Edition
Palabras clave: 
kbmt kbhowto kbinfo KB273028 KbMtes
Traducción automática
IMPORTANTE: Este artículo ha sido traducido por un software de traducción automática de Microsoft (http://support.microsoft.com/gp/mtdetails) en lugar de un traductor humano. Microsoft le ofrece artículos traducidos por un traductor humano y artículos traducidos automáticamente para que tenga acceso en su propio idioma a todos los artículos de nuestra base de conocimientos (Knowledge Base). Sin embargo, los artículos traducidos automáticamente pueden contener errores en el vocabulario, la sintaxis o la gramática, como los que un extranjero podría cometer al hablar el idioma. Microsoft no se hace responsable de cualquier imprecisión, error o daño ocasionado por una mala traducción del contenido o como consecuencia de su utilización por nuestros clientes. Microsoft suele actualizar el software de traducción frecuentemente.
Haga clic aquí para ver el artículo original (en inglés): 273028

Enviar comentarios

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com