Cómo encontrar el número del medio de tres números en VBA

Visual Basic para Aplicaciones ( VBA ) es una herramienta de programación que permite a los usuarios de Microsoft Office para crear funciones y macros personalizados . Una aplicación como Excel puede "llamar" a estas funciones y macros para realizar tareas comunes rápidamente. Excel tiene muchas funciones incorporadas que puede utilizar para obtener la suma , valor medio , valor mínimo o máximo de un grupo de numbers.Sometimes , una función integrada no está disponible para la tarea requerida . Es entonces cuando una función personalizada puede ser útil. Instrucciones
1

Plan de la función. La función tendrá tres números y producirá un resultado que es el valor medio. Tendrá un nombre que luego estará disponible en Excel en la categoría " definido por el usuario " . Un ejemplo podría ser: . FindMidValue

Usará "argumentos" para transferir los números de Excel a la función. Estos son los nombres de variables especificadas entre paréntesis después del nombre de la función . Supongamos que los tres números para evaluar son A, B y C. El nombre completo de la función sería :

FindMidValue (A, B , C )
2

Plan de la lógica . Esta es la serie de pasos que la función va a utilizar para llevar a cabo la tarea. Piense en los distintos pasos que tendría que seguir para realizar esta tarea manualmente. Por ejemplo , ¿cuáles son las posibles combinaciones de tres números, ¿cómo te encuentras el valor medio para cada

Por ejemplo , si los números son B , A, C , por orden de menor a mayor : comparar variable A a B , si a es mayor , compararlo con C; Si C es mayor , A debe ser el valor medio. La función también debe hacer frente a todas las alternativas. ¿Qué pasa si A es mayor que B y B es mayor que C? A continuación, la secuencia es C , B ​​, A , y el valor medio es B.
3

Escribir la función. La primera referencia que da detalles sobre cómo acceder al editor de Visual Basic en Excel 2010 donde se puede escribir la función . La segunda referencia da algunas reglas generales para escribir el "script" o las instrucciones de macros y funciones. La siguiente secuencia de comandos creará una función personalizada denominada " FindMidValue ":

Función FindMidValue (A, B , C ) ' líneas precedidas por '

comentarios son combinaciones posibles

' son

' bac , cab, abc, cba , acb , bca

'

Si ( a < B) Luego

'a es menor que b

Si ( A> = C ) Luego

FindMidValue = A ' cab caso

GoTo 100

demás

Si (B < = C ) Luego

FindMidValue = B 'abc

GoTo 100

End If

FindMidValue = C' acb

GoTo 100

End If

demás

' a es mayor o igual que b

Si ( a < = C ) A continuación,

FindMidValue = A ' bac

GoTo 100

demás

Si ( B> = C ) Luego

FindMidValue = B ' cba

GoTo 100

End If

FindMidValue = C' bca

End If End If

< p > 100 End Function
4

Depurar la función. Depuración es el proceso de las pruebas de la función para asegurarse de que funciona según lo previsto y para corregir cualquier error que descubrirás. En este caso, utilice la función en Excel con los tres argumentos que se refieren a tres celdas con números en ellos. Cambiar los números de las celdas para ver si la función toma el número del medio correcto en todo momento.