Funcion contar.si

FUNCION CONTAR.SI

Descripcion: Cuenta las celdas, dentro del rango, que no están en blanco y que cumplen los criterios especificados.

Sintaxis
CONTAR.SI(rango;criterio)

Para su mayor comprensión vamos a realizar un ejemplo de dicha función.

Celda D20:  En esta celda muestra la cantidad de alumnos que hay por cada distrito desde el rango D8:D16, la formula seria la siguiente =CONTAR.SI($D$8:$D$16,C20)
$D$8:$D$16= Rango a contar.
C20: Referencia de la celda que contiene el nombre del distrito.

Se copia la formula hasta la celda D26


Celda H20: Cuenta la cantidad de alumnos segun el sexo en el rango C8 a C16.
La formula seria la siguiente: =CONTAR.SI(C8:C16,"M")

Celda H23: Cuenta la cantidad de alumnos aprobados o desaprobados tomando como rango H8:H16
La formula seria la siguiente: =CONTAR.SI(H8:H16,">10")

Obtener nombre de mes en excel vba

Si bien es cierto se puede obtener el nombre del mes mediante la función texto:
Por ejemplo: =TEXTO("20/08/2014","MMMM").

Pero en ocasiones cuando deseamos trabajar con formularios en vba deseamos mostrar los meses del año en texto Enero a Diciembre en texto.
En este caso utilizaremos la funcion MonthName

Sintaxis:
MonthName(Month As Long,[Abbreviate as Boolean=Falso])As String

Parametros
Month: Ingresar un numero para el nombre del mes por ejemplo de 1 a 12
Abbreviate: Valor booleano verdadero o falso, al elegir verdadero se abrevia: Ejemplo Ene,Feb

Ejemplos:
Crearemos un formulario en excel vba para eso realizamos los siguientes pasos:

-Alt + F11
-Menu Insertar - > UserForm

Insertaremos 2 cotroles: un cuadro combinado llamado ComboBox1 y un boton llamado CommandButton1.
Vamos a cargar en el combobox1 los meses del año de enero a diciembre. Al darle clic en CommandButton1 se cargaran los meses del año en texto.

Private Sub CommandButton1_Click()
Dim i As Integer
For i = 1 To 12
    ComboBox1.AddItem MonthName(i, False)
Next i
End Sub

Espero les haya sido de utilidad