Cómo: Agrupar filas de una hoja de cálculo

Artículo
08/10/2011

Puede agrupar una o más filas enteras. Para crear un grupo en una hoja de cálculo, utilice un control NamedRange o un objeto nativo de rango de Excel.

Se aplica a: la información de este tema se aplica a los proyectos de nivel de documento y los proyectos de nivel de aplicación para Excel 2007 y Excel 2010. Para obtener más información, vea Características disponibles por aplicación y tipo de proyecto de Office.

Usar un control NamedRange

Si agrega en tiempo de diseño un control NamedRange a un proyecto en el nivel del documento, puede utilizar el control para crear mediante programación un grupo. En el siguiente ejemplo se supone que hay tres controles NamedRange denominados data2001, data2002 y dataAll en la misma hoja de cálculo. Cada rango con nombre hace referencia a una fila entera de la hoja de cálculo.

Para crear un grupo de controles NamedRange en una hoja de cálculo

Agrupe tres rangos con nombre mediante llamadas al método Group de cada rango. Este código debe colocarse en una clase Sheet, no en la clase ThisWorkbook.

With Me
    .data2001.Group()
    .data2002.Group()
    .dataAll.Group()
End With

this.data2001.Group(missing, missing, missing, missing);
this.data2002.Group(missing, missing, missing, missing);
this.dataAll.Group(missing, missing, missing, missing);

Nota

Para desagrupar las filas, llame al método Ungroup.

Usar rangos de Excel nativos

En el ejemplo de código se supone que hay tres rangos de Excel denominados data2001, data2002 y dataAll en una hoja de cálculo.

Para crear un grupo de rangos de Excel en una hoja de cálculo

Agrupe tres rangos con nombre mediante llamadas al método Group de cada rango. En el siguiente ejemplo se supone que hay tres controles Microsoft.Office.Interop.Excel.Range denominados data2001, data2002 y dataAll en la misma hoja de cálculo. Cada rango con nombre hace referencia a una fila entera de la hoja de cálculo.

With Me.Application
    .Range("data2001").Group()
    .Range("data2002").Group()
    .Range("dataAll").Group()
End With

this.Application.get_Range("data2001", missing)
    .Group(missing, missing, missing, missing);

this.Application.get_Range("data2002", missing)
    .Group(missing, missing, missing, missing);

this.Application.get_Range("dataAll", missing)
    .Group(missing, missing, missing, missing);

Nota

Para desagrupar las filas, llame al método Ungroup.