Excel Avanzado

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

Excel Avanzado

Hallando la distancia de dos puntos

| 1 comentario

Esta función tiene la finalidad de hallar la distancia entre dos puntos en un espacio bidimensional. Para ello se realizará lo siguiente:

En primer lugar, se establecen las coordenadas o puntos.  En nuestro caso los denominaremos como punto  Ax, Bx, Ay, By

disss

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

Posteriormente cuando ya se han establecido los puntos y los valores , procederemos a establecer la fórmula en el VBA.

formula

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

Sub Macro1()

Dim Ax As Integer, Ay As Integer, Bx As Integer, By As Integer, D As Integer
Ax = Cells(3, 2)
Ay = Cells(3, 3)
Bx = Cells(3, 4)
By = Cells(3, 5)
D = ((Ax - Bx) ^ (2) + (Ay - By) ^ (2)) ^ (1 / 2)
Cells(2, 9) = D
End Sub

 

Cabe resaltar que en el programa principal se utilizo la declaración de variables con el "Dim" y que el  Integer se utilizó para definir  números  enteros.

Respecto al punto D(Distancia) es extraído de la fórmula de Pitágoras

 

Por: Helen Pozo

 

 

 

 

Un comentario

  1. Utilizando una UDF para realizar este calculo:

    Function calcular_distancia(ax As Integer, ay As Integer, bx As Integer, by As Integer)

    result = ((ax - bx) ^ 2 + (ay - by) ^ 2) ^ (1 / 2)

    calcular_distancia = result

    End Function

Deja una respuesta

Los campos requeridos estan marcados con *.