Propiedad Count

 

La propiedad Count permite contar el número de celdas contenidas dentro de un Objeto, el cual puede ser un rango de celdas, una fila, una columna. También permite contar el número de elementos de una Colección.

Variable = Objeto.Count

La variable toma el número de celdas contenidas en el objeto, si el Objeto es un objeto Range; o el número de elementos, si el Objeto es una Colección.

Utilizando la Propiedad Count para Contar Celdas

Para aplicar a un Rango de celdas, hay que definir una variable que va a recibir el número de celdas del objeto.

NCeldas=Worksheets(“Hoja3”).Range(“A1:C20”).Count

En la variable NCeldas se almacena el valor 60, que corresponde al número de celdas en el Rango A1:C20.

NumFilas = Worksheets(“Hoja3”).Rows.Count

En la variable NumFilas se almacena el número de filas de la Hoja3, la cual es 1.048.576 para la versión de Excel 2016. Igual se puede contar el número de columnas.

NumCols = Worksheets(“Hoja3”).Columns.Count

En la variable NumCols se almacena el número de columnas de la Hoja3, las cuales son: 16.384.

Calculando el número de filas o columnas en un Rango

Para calcular el número de filas o columnas podemos utilizar las siguientes instrucciones:

NFilas= ObjetoRange.Rows.Count

NColumnas = ObjetoRange.Columns.Count

En el siguiente procedimiento se calcula el número de filas en el Rango A1:C20 de la Hoja3.

Public Sub ContarRange2()

NFilas = Worksheets(“Hoja3”).Range(“A1:C20”).Rows.Count

MsgBox “El número de Filas en el Rango es ” & NFilas

End Sub

clip_image001

Para calcular el número de columnas se puede utilizar un procedimiento similar:

Public Sub ContarRange3()

NColumnas = Worksheets(“Hoja3”).Range(“A1:C20”).Columns.Count

MsgBox “El número de Columnas en el Rango es ” & NColumnas

End Sub

clip_image002

Calculando el Número de Celdas, filas o Columnas en un Objeto creado

Para crear un objeto primero hay que declararlo con el comando Dim como un objeto Range

Dim miRango as Range

Después hay que utilizar el comando Set para asignar un rango al objeto.

Set miRango = Worksheets(“Hoja3”).Rango(“B3:E30”)

El objeto miRango se puede utilizar en sustitución de Worksheets(“Hoja3”).Rango(“B3:E30”).

Public Sub ContarObjeto()

Dim miRango As Range

Set miRango = Worksheets(“Hoja3”).Range(“B3:E30”)

NCells = miRango.Count

NFilas = miRango.Rows.Count

NCols = miRango.Columns.Count

MsgBox “El número de celdas es ” & NCells & vbCrLf & _

“El número de filas es ” & NFilas & vbCrLf & _

“El número de Columnas es ” & NCols

End Sub

clip_image003

Contando el Número de Elementos de una Colección

Además de contar los elementos de un objeto Range, la propiedad Count puede ser utilizado para contar los elementos de una colección.

Variable=Colección.Count

En el siguiente procedimiento se calcula el número de Hojas (Worksheets) que están en el libro activo.

Public Sub ContarColeccion()

Dim NWks As Integer

NWks = Worksheets.Count

MsgBox “El Numero de Hojas es ” & NWks

End Sub

clip_image004

Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s