Este ejemplo ilustra la colección Áreas en Excel VBA. A continuación hemos bordeado Range ( «B2: C3, C5: E5»). Esta gama cuenta con dos áreas. La coma separa las dos zonas.

Areas Collection in Excel VBA

Coloque un botón de comando en la hoja de trabajo y añadir las líneas de código siguientes:

  1. En primer lugar, declaramos dos objetos Range. Llamamos a los objetos de rango rangeToUse y singleArea.

Dim rangeToUse As Range, singleArea As Range

  1. inicializar el objeto Range con rangeToUse Range ( «B2: C3, C5: E5»)

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

  1. Para contar el número de áreas de rangeToUse, añada la línea siguiente código:

MsgBox rangeToUse.Areas.Count

Resultado:

Count Areas

  1. Se puede hacer referencia a las diferentes áreas de rangeToUse mediante el uso de los valores del índice. La siguiente línea de código cuenta el número de células de la primera zona.

MsgBox rangeToUse.Areas(1).Count

Resultado:

Count Cells

  1. También puede bucle a través de cada área de rangeToUse y contar el número de células de cada zona. La macro siguiente hace el truco.

For Each singleArea In rangeToUse.Areas

MsgBox singleArea.Count

Next singleArea

Resultado:

Count Cells

Count Cells

Para un ejemplo práctico de la colección de zonas, consulte nuestro ejemplo programa `enlace: / VBA ejemplos rangos comparar Comparar [Rangos] ‘.