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
(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.
(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
18/04/2014 a las 9:48 pm
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