/ / Excel VBA Areas Collection

Colección Excel Areas VBA

Este ejemplo ilustra la Colección de áreas en Excel VBA. Abajo tenemos el rango bordeado ("B2: C3, C5: E5"). Esta gama tiene dos áreas. La coma separa las dos áreas.

Colección de Áreas en Excel VBA

Coloque un botón de comando en su hoja de trabajo y agregue las siguientes líneas de código:

1. Primero, declaramos dos objetos Range. Llamamos a los objetos Range rangeToUse y singleArea.

Dim rangeToUse As Range, singleArea As Range

2. Inicializamos el objeto Range RangeToUse con Range ("B2: C3, C5: E5")

Set rangeToUse = Range("B2:C3,C5:E5")

3. Para contar el número de áreas de rangeToUse, agregue la siguiente línea de código:

MsgBox rangeToUse.Areas.Count

Resultado:

Áreas de conteo

4. Puede referirse a las diferentes áreas de rangeToUse utilizando los valores de índice. La siguiente línea de código cuenta los números de celdas de la primera área.

MsgBox rangeToUse.Areas(1).Count

Resultado:

Conde Células, Primera Área

5. También puede recorrer cada área de rangeToUse y contar el número de celdas de cada área. La macro de abajo hace el truco.

For Each singleArea In rangeToUse.Areas
    MsgBox singleArea.Count
Next singleArea

Resultado:

Conde Células, Primera Área

Conde Células, Segunda Zona

Para ver un ejemplo práctico de la colección de áreas, vea nuestro programa de ejemplo Comparar rangos.

Lea también: