Usar una macro para aplicar el formato de sombreado de celda a todas las demás filas de un rango seleccionado en Excel

• Se aplica a:

  Microsoft Excel

Resumen

Microsoft Excel da formato automáticamente a los nuevos datos que escriba al final de una lista para que coincidan con las filas anteriores. También puede dar formato a una lista mediante programación. Este artículo contiene un procedimiento de ejemplo de Microsoft Visual Basic para Aplicaciones para sombrear cada otra fila de una selección.

Más información

Microsoft proporciona ejemplos de programación con fines ilustrativos únicamente, sin ninguna garantía, ya sea expresa o implícita. Esto incluye, entre otras, las garantías implícitas de comerciabilidad e idoneidad para un fin determinado. Se considera que está familiarizado con el lenguaje de programación que se muestra y con las herramientas para crear y depurar procedimientos. Los ingenieros 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 adaptados a sus necesidades específicas.

Para ver los patrones disponibles en Microsoft Office Excel 2003 y en versiones anteriores, haga clic en Celdas en el menú Formato y, a continuación, haga clic en la pestaña Patrones .

Para ver los patrones disponibles en Microsoft Office Excel 2007, siga estos pasos:

1. En la pestaña Inicio , haga clic en Formato en el grupo Celdas . A continuación, haga clic en Formatear celdas.
2. En el cuadro de diálogo Formato de celdas , haga clic en la pestaña Relleno .

La lista desplegable Patrón muestra los patrones disponibles. El patrón que se usa en la siguiente macro, a la que hace referencia su nombre constante, xlGray16, es el quinto de la derecha de la primera fila.

La macro siguiente establece el patrón en cada otra fila de la selección actual en xlGray16.

Muestra de procedimiento de Visual Basic

VB

Sub ShadeEveryOtherRow()
    Dim Counter As Integer

   'For every row in the current selection...
    For Counter = 1 To Selection.Rows.Count
        'If the row is an odd number (within the selection)...
        If Counter Mod 2 = 1 Then
            'Set the pattern to xlGray16.
            Selection.Rows(Counter).Interior.Pattern = xlGray16
        End If
    Next

End Sub

Nota

Esta macro solo se ejecuta en las filas del intervalo seleccionado. Si agrega nuevas filas de datos después de ejecutar la macro, debe volver a ejecutar la macro con todas las nuevas filas de datos seleccionadas.

Este proceso también se puede realizar manualmente mediante el formato condicional.

Para obtener más información sobre cómo dar formato a cada otra fila mediante el formato condicional, vea Aplicar sombreado a filas alternativas en una hoja de cálculo.

También puede dar formato a una lista mediante el comando de menú Formato automático . En Excel 2003 y en Microsoft Excel 2002, el comando de menú Formato automático se encuentra en el menú Formato . En Excel 2007, tiene que agregar el comando de menú Formato automático a la barra de herramientas de acceso rápido. Para ello, siga estos pasos:

1. Haga clic en el botón Microsoft Office y, a continuación, haga clic en Opciones de Excel.
2. Haga clic en Personalización de diseño.
3. Haga clic para seleccionar todos los comandos en elegir comandos.
4. Haga clic en Formato automático, haga clic en Agregary, a continuación, haga clic en Aceptar.