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

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:

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

MsgBox rangeToUse.Areas(1).Count

Resultado:

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

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

Resultado:

Para obtener un ejemplo práctico de la colección de áreas, consulte nuestro programa de ejemplo Compare Rangos .

13/14 ¡Completado! Más información sobre el objeto de rango>
Siguiente capítulo: Variables