Excel Avanzado

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

Excel Avanzado

Distancia entre 2 puntos

| 1 comentario

Esta función permite calcular la distancia entre dos puntos definidos en 3 dimensiones, su uso resulta útil dentro de cursos de geometría avanzada, acortando el numero de operaciones internas para su calculo mediante el ingreso directo de argumentos en una función definida en VBA.

El lenguaje a utilizar para esta función es la siguiente:

Function distancia_entre_puntos(arg1, arg2, arg3, arg4, arg5, arg6)
calculo = Round((((arg4 - arg1) ^ 2) + ((arg5 - arg2) ^ 2) + ((arg6 - arg3) ^ 2)) ^ (1 / 2), 2)
distancia_entre_puntos = calculo
End Function

Esta función se ha definido dentro de un modulo genérico(Modulo 1), como se puede observar en la siguiente imagen:

VBA DISTANCIA_PUNTOS

(Para mayor visualización de la imagen, hacer click en la misma)

El lenguaje antes definido guarda relación con la formula mostrada en la siguiente imagen, en la cual se podrá notar que su uso requiere de  6 argumentos o valores:

distancia entre dos puntos

(Para mayor visualización de la imagen, hacer click en la misma)

 Finalmente dejo un ejemplo:

UDF-Distancia entre 2 puntos en el espacio

 

Elaborado por: John Garcia

 

Un comentario

  1. Esta función ayuda mucho en cálculos matemáticos pero creo que también podría ayudarnos a estimar aproximadamente el costo de consumo de combustible de transportar los productos desde la planta de fabricación hasta su centro de distribución. La función nos permitiría aproximar la distancia que existe entre la planta de fabricación y el centro de distribución y por una función extra obtendremos el consumo en soles de combustible.

    Función para el cálculo del costo de transporte:

    Function distancia_entre_puntos(arg1, arg2, arg3, arg4, arg5, arg6)
    resultado = Round((((arg4 - arg1) ^ 2) + ((arg5 - arg2) ^ 2) + ((arg6 - arg3) ^ 2)) ^ (1 / 2), 2)
    distancia_entre_puntos = resultado
    End Function

    Function costotransporte(distancia_entre_puntos, costocombustible)
    costotransporte = distancia_entre_puntos * costocombustible
    End Function

    Esta función nos determina el costo de transporte aproximado entre la planta de producción y el centro de distribución.

Deja una respuesta

Los campos requeridos estan marcados con *.