Excel Avanzado

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

Excel Avanzado
Recta2 e1408567728422 150x101, Distancia entre 2 puntos

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 300x63, Distancia entre 2 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 300x113, Distancia entre 2 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

Deja una respuesta

Los campos requeridos estan marcados con *.