🔴 Practica con diferentes ejercicios usando la propiedad Count en VBA para macros en Excel. Curso VBA para Macros. Ejemplo con la propiedad Count.
La Propiedad Count de VBA
Esta Propiedad nos permite contar la cantidad de libros, hojas, celdas, celdas vacías, celdas con datos, total de filas, total de columnas de un libro de Excel.
Ejercicio 1: Contar Libros de Excel Abiertos
Contaremos cuantos libros de Excel tenemos abiertos usando la colección Workbooks.Count ejecutando este código veremos cuantos libros abiertos de Excel están abiertos.
Sub PropiedadCount()
MsgBox Workbooks.Count
End Sub
Ejercicio 2: Contar Hojas de Excel
Contaremos cuantas hojas de Excel tenemos en el documento abierto usando la colección Worksheets.Count ejecutando este código veremos cuantos hojas de Excel tenemos en el documento.
Sub PropiedadCount()
MsgBox Worksheets.Count
End Sub
Ejercicio 3: Contar celdas
Contaremos cuantas celdas existen en un determinado rango usando la Propiedad Count y Range. Primero posicionamos nuestro rango y luego escribimos el siguiente código:
Sub PropiedadCount()
MsgBox Range(“B3:C7”)Count
End Sub
Ejercicio 4: Contar total de filas de una hoja de Excel
Para saber el número exacto de filas de una hoja de Excel usaremos la Propiedad Rows.Count :
Sub PropiedadCount()
MsgBox Rows.Count
End Sub
Ejercicio 5: Contar total de columnas de una hoja de Excel
Para saber el número exacto de columnas de una hoja de Excel usaremos la Propiedad Columns.Count :
Sub PropiedadCount()
MsgBox Columns.Count
End Sub
Ejercicio 6: Contar filas que contienen datos numéricos
Para contar filas que contienen números en un determinado rango debemos especificar la posición con Range y utilizaremos la siguiente fórmula:
Sub PropiedadCount()
Range(“B2”).Formula = “=Count(B3:B10)”
End Sub
Ejercicio 7: Contar celdas vacías o en blanco con el método SpecialCells
Para poder contar las celdas que están en blanco debemos especificar el rango, luego abrimos el método SpecialCells elegimos la opción de tipo en blanco y ponemos finalmente la Propiedad Count, veamos el ejemplo:
Sub PropiedadCount()
MsgBox Range(“B2:B9”).SpecialCells(xlCellTypeBlanks).Count
End Sub
Ejercicio 8: Contar celdas con datos
Para poder saber cual es el número de celdas con datos podemos restar a nuestro el rango que contiene el método SpecialCells, así este código nos brindará exactamente el número de celdas con datos.
Sub PropiedadCount()
MsgBox Range(“B2:B9”).Count - Range(“B2:B9”).SpecialCells(xlCellTypeBlanks).Count
End Sub
