¿Cómo usar la función WorksheetFunction.Binom_Dist_Range en VBA?

WorksheetFunction.Binom_Dist_Range es una función de Excel, también accesible desde VBA (Visual Basic for Applications), que devuelve la probabilidad de un rango de éxitos en ensayos de Bernoulli. Es útil para calcular la probabilidad de obtener un cierto número de éxitos en una serie de pruebas independientes cuando la probabilidad de éxito es constante. La sintaxis de la función es:

WorksheetFunction.Binom_Dist_Range(número_de_ensayos, probabilidad_de_éxito, número_de_éxitos_min, número_de_éxitos_max)
número_de_ensayos: Es el número total de ensayos o pruebas. probabilidad_de_éxito: Es la probabilidad de éxito en cada ensayo. número_de_éxitos_min: Es el valor mínimo del número de éxitos en los ensayos. número_de_éxitos_max: Es el valor máximo del número de éxitos en los ensayos. El argumento número_de_éxitos_max es opcional; si se omite, la función asumirá que estás interesado en la probabilidad de obtener exactamente el número_de_éxitos_min. Aquí tienes un ejemplo de cómo usar WorksheetFunction.Binom_Dist_Range en VBA:

Sub EjemploBinomDistRange()
    ' Declaración de variables
    Dim ensayos As Integer
    Dim probabilidad As Double
    Dim exitos_min As Integer
    Dim exitos_max As Integer
    Dim probabilidadRango As Double

    ' Inicialización de variables
    ensayos = 10 ' por ejemplo, lanzar una moneda 10 veces
    probabilidad = 0.5 ' la probabilidad de obtener cara en cada lanzamiento
    exitos_min = 3 ' interesados en obtener al menos 3 caras
    exitos_max = 5 ' pero no más de 5 caras

    ' Cálculo de probabilidad usando la función WorksheetFunction.Binom_Dist_Range
    probabilidadRango = Application.WorksheetFunction.Binom_Dist_Range(ensayos, probabilidad, exitos_min, exitos_max)

    ' Mostrar resultado
    MsgBox "La probabilidad de obtener entre " & exitos_min & " y " & exitos_max & " éxitos es: " & probabilidadRango
End Sub
Este código VBA calculará la probabilidad de lograr entre 3 y 5 éxitos (en este caso, caras) en 10 pruebas (lanzamientos de moneda) con una probabilidad de éxito de 0.5 para cada ensayo y mostrará el resultado en un cuadro de mensaje. Recuerda que debido a la naturaleza de las distribuciones binomiales, los parámetros deben ser adecuados: las probabilidades deben estar entre 0 y 1, y el número de ensayos y éxitos deben ser enteros no negativos. Además, número_de_éxitos_max debe ser igual o mayor que número_de_éxitos_min.

Conoce nuestra tienda

Ver más productos

Mejora tu nivel y logra tus objetivo

Excel

Excel cursos

Access

cursos de Access

Power BI

cursos power BI

Ayúdanos a hacer crecer el proyecto

¡Únete a nuestro Grupo de Facebook!

Deja un comentario