Excel Avanzado

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

Excel Avanzado
asistencia

Hallando la distancia de dos puntos

| 1 Comment

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

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

formula

 

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

 

 

 

 

One Comment

  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 un comentario

Required fields are marked *.


Excel Avanzado located at , Lima, Perú . Reviewed by usuarios rated: 4.7 / 5