Este ejemplo ilustra la colección Areas en Excel VBA . Abajo hemos bordeado el rango («B2:C3,C5:E5»). Este rango tiene dos áreas. La coma separa las dos áreas.
Coloca un botón de comando en tu hoja de trabajo y añade las siguientes líneas de código:
1. Primero, declaramos dos objetos de rango. Llamamos a los objetos Range RangeToUse y singleArea.
Dim rangeUtilizar como rango, singleArea como rango
2. Inicializamos el rango de objetos RangeToUse con Range(«B2:C3,C5:E5»)
Establecer rangoUsar = Rango («B2:C3,C5:E5»)
3. Para contar el número de áreas de rangoToUse, agregue la siguiente línea de código:
MsgBox rangeUso.de.áreas.de.conteo
Resultado:
4. Puede referirse a las diferentes áreas del rangoToUse usando los valores del índice. La siguiente línea de código cuenta los números de las celdas de la primera área.
MsgBox rangeToUse.Areas(1).Recuento
Resultado:
5. También puedes hacer un bucle a través de cada área de rangoUtilizar y contar el número de células de cada área. La macro de abajo hace el truco.
Para cada una de las áreas en el rango de las áreas de uso MsgBox singleArea.Count Próximo singleArea
Resultado:
Para un ejemplo práctico de la colección de áreas, vea nuestro programa de ejemplo Comparar rangos.