Excel Avanzado

Macros, Vba en Excel y muchos ejemplos de nuestro Curso de Excel Avanzado

Excel Avanzado
Logo Excel Avanzado

WorksheetFunction.Binom_Dist VBA

| Sin comentarios

La función WorksheetFunction.Binom_Dist sirve obtener la probabilidad de una variable discreta siguiendo una distribución de tipo binomial.

Nota: Con distribución binomial nos referimos a que el resultado de un ensayo puede ser solo entre éxito o fracaso. Usualmente para la probabilidad de estos se usa "p"  y "q" respectivamente, siendo "q=1-p".

 

Sintaxis de la función:

WorksheetFunction.Binom_Dist(Arg1, arg2, Arg3, Arg4)

 

Nombre Obligatorio Tipo de dato Descripción

Arg1 Obligatorio Double El número de éxitos en los ensayos.

Arg2 Obligatorio Double El número de ensayos independientes o muestras.

Arg3 Obligatorio Double Probabilidad de éxito en cada ensayo o muestra seleccionada

Arg4 Obligatorio Boolean TRUE: Devuelve la función de distribución acumulativa, que es la probabilidad de que haya un máximo de número de éxitos;  FALSE: Devuelve la función de probabilidad bruta, que es la probabilidad de que haya número de éxitos.

 

 

A continuación, un ejemplo para entender la aplicación y reconocer los parámetros/argumentos de la función en VBA

 

Ejemplo:

Se tiene una máquina, la cual se conoce que el 18% de lo que produce es defectuoso.

Si analizamos una muestra de 10 elementos producidos entonces….

A. ¿Cuál es la probabilidad que 3 o menos sean defectuosos?

B. ¿Cuál es la probabilidad que exactamente los 3 sean defectuosos?

WorksheetFunction.Binom Dist VBA 01, WorksheetFunction.Binom_Dist VBA

Para el resultado presentado en C7 y C8 se añade el código siguiente:

 

Sub prueba_PROB_BINOMIAL()

'sintaxis

'Application.WorksheetFunction.Binom_Dist( exitos, ensayos, prob.exito, acumulado(T) o Puntual(F))

prob_exito = Range("C2")

ensayos = Range("C3")

num_exitos = Range("C4")

Rptaacumulada = Application.WorksheetFunction.Binom_Dist(num_exitos, ensayos, prob_exito, True)

Rptaexacta = Application.WorksheetFunction.Binom_Dist(num_exitos, ensayos, prob_exito, False)

Range("C7") = Rptaacumulada

Range("C8") = Rptaexacta

End Sub

 

El programa calculó las probabilidades según los datos suministrados, para la primera respuesta "A", la probabilidad 0.9117 corresponde a la posibilidad de encontrar 3 o menos defectos, es decir 0 ,1 ,2 o 3 defectos, es por ello que se llama acumulada.

Para la respuesta "B", la probabilidad 0.1745 corresponde únicamente a la posibilidad que tendríamos de encontrar los 3 elementos en estado defectuoso.

Nota adicional: La respuesta "A" también la podemos obtener si hallamos la probabilidad puntual de:

0 defectuosos

1 defectuoso

2 defectuosos

3 defectuosos

Y sumáramos todas ellas, del siguiente modo:

WorksheetFunction.Binom Dist VBA 02, WorksheetFunction.Binom_Dist VBA

Se adjunta el archivo Excel con el ejemplo: WorksheetFunction.Binom_Dist VBA

Por: Alex Huaroc

 

Deja un comentario

Los campos requeridos estan marcados con *.