funciones vba

Función Count (Excel)
Descripción
Cuenta el número de celdas que contienen números y los números incluidos en la lista de argumentos.
Sintaxis
expresión .Count(Arg1, Arg2, Arg3, Arg4, Arg5, Arg6, Arg7, Arg8, Arg9, Arg10, Arg11, Arg12, Arg13, Arg14, Arg15, Arg16, Arg17, Arg18, Arg19, Arg20, Arg21, Arg22, Arg23, Arg24, Arg25, Arg26, Arg27, Arg28, Arg29, Arg30)
expresión Variable querepresenta un objeto WorksheetFunction.
Parámetros
Nombre Necesario/Opcional Tipo de datos Descripción
Arg1 - Arg30 Obligatorio Variant De 1 a 30 argumentos que pueden contener o hacer referencia a distintos tipos de datos, pero sólo se cuentan los números.
Valor devuelto
Double
Observaciones
________________________________________
Utilice Count para obtener el número de entradasexistentes en un campo numérico de un rango o de una matriz de números.
• Se cuentan los argumentos que son números, fechas o la representación textual de números.
• Se cuentan los valores lógicos y las representaciones textuales de números escritos directamente en la lista de argumentos.
• Se omiten los argumentos que sean valores de error o texto que no se puedan traducir a números.
• Si unargumento es una matriz o una referencia, sólo se considerarán los números de esa matriz o referencia. Se pasan por alto las celdas vacías, valores lógicos, texto o valores de error de la matriz o de la referencia.
• Si desea contar valores lógicos, texto o valores de error, utilice la función CountA.

Ejemplo
With the Count property, you can count the number of cells, rows and columns of arange.

Note: border for illustration only.
Code:
Dim example As Range
Set example = Range("A1:C4")

MsgBox example.Count



EXAMPLE

En el siguiente ejemplo, se solicita al usuario el nombre de un recurso y, a continuación, se asigna dicho recurso a las tareas que no tienen ningún recurso.
Sub AssignResource()

Dim T As Task ' Task object used in For Each loop
Dim R AsResource ' Resource object used in For Each loop
Dim Rname As String ' Resource name
Dim RID As Long ' Resource ID

RID = 0
RName = InputBox$("Enter the name of a resource: ")

For Each R in ActiveProject.Resources
If R.Name = RName Then
RID = R.ID
Exit For
End If
Next R

If RID 0 Then
' Assign the resource to tasks without any resources.For Each T InActiveProject.Tasks
If T.Assignments.Count = 0 Then
T.Assignments.Add ResourceID:=RID
End If
Next T
Else
MsgBox Prompt:=RName & " is not a resource in this project.", buttons:=vbExclamation
End If

End Sub














Función COUNTA
Descripción
La función COUNTA cuenta el número de celdas de una columna que no están vacías. No solo cuenta las filas quecontienen valores numéricos, sino también las filas que contienen valores que no estén en blanco, incluido el texto, las fechas y los valores lógicos.
Sintaxis
Function CountA(Arg1, [Arg2], [Arg3], [Arg4], [Arg5], [Arg6], [Arg7], [Arg8], [Arg9], [Arg10], [Arg11], [Arg12], [Arg13], [Arg14], [Arg15], [Arg16], [Arg17], [Arg18], [Arg19], [Arg20], [Arg21], [Arg22], [Arg23], [Arg24], [Arg25], [Arg26],[Arg27], [Arg28], [Arg29], [Arg30]) As Double
Parámetros
Término Definición
column La columna que contiene los valores que se van a contar


Valor devuelto
Un número entero.
Comentarios

Si no necesita contar celdas que contengan valores lógicos o texto (es decir, si solo desea contar celdas que contienen números), use las funciones COUNTX o COUNT.
Si la función no encuentraninguna fila para contar, devuelve un espacio en blanco. Si hay filas, pero ninguna cumple los criterios especificados, la función devuelve 0.
Ejemplo
Cells(1,1).formula = "=counta(B1:H1)" to return the value, however, I would like to use variables to substitute for A1 and H1. I would like for the value to dynamically change as I change add or delete cells in the range. I have tried many...