Contenido
Sub EjemploBinomDist()
Dim k As Long ' Número de éxitos.
Dim n As Long ' Número de pruebas.
Dim p As Double ' Probabilidad de éxito en cada prueba.
Dim cumulative As Boolean ' Tipo de distribución.
Dim probabilidad As Double ' Resultado.
' Establece los valores para los parámetros de la distribución.
k = 3
n = 10
p = 0.5
cumulative = False ' False para la probabilidad de exactamente k éxitos; True para la probabilidad acumulativa.
' Calcula la distribución binomial.
probabilidad = Application.WorksheetFunction.Binom_Dist(k, n, p, cumulative)
' Muestra el resultado en un cuadro de mensaje.
MsgBox "La probabilidad de " & k & " éxitos en " & n & " pruebas con una probabilidad de éxito de " & p & " es: " & probabilidad
End Sub
Este código calcula la probabilidad de obtener exactamente 3 éxitos en 10 pruebas con una probabilidad de éxito de 0.5 por prueba, y muestra el resultado en un cuadro de mensaje.
Recuerda que el parámetro cumulative determina si quieres obtener la probabilidad puntual (cuando es False) o la probabilidad acumulativa hasta k éxitos (cuando es True).
Nota: Como mi conocimiento se encuentra actualizado hasta 2023, asegúrate de que estás utilizando la función con la sintaxis correcta y que estás utilizando una versión de Excel que la soporte. En algunas versiones anteriores de Excel, la función se llamaba WorksheetFunction.BinomDist sin el guion.