Contenido
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.