merhabalar ağaçların konumuna bağlı olarak
aşağıdaki macro ile ağaçlar arasındaki uzaklığı hesaplıyorum
n adet uzaklığa bağlı olarak
en yakın 8 ağaçı bulacak macro yu nasıl yazabilirim bu konuda
bana yardımcı olurmuusnuz
şimdiden tüm cevap yazacak arkadaşlara selam
Sub HESAPLA()
Dim mesafe, aci, acid, deg, degd As Double
Dim A, B, X, Y As Double
[E2:E65535] = ""
For Hücre = 2 To [A65536].End(3).Row
A = Cells(Hücre, 1)
B = Cells(Hücre, 2)
X = ((Cells(Hücre, 3)) * 0.0174533)
Y = ((Cells(Hücre, 4)) * 0.0174533)
Sonuç = 0
If (X - Y) < 3.141594 Then
aci = X - Y
deg = Cos(aci)
mesafe = ((A ^ 2) + (B ^ 2) - (2 * A * B * deg)) ^ (0.5)
ElseIf (X - Y) > 3.141594 Then
acid = 360 - (X - Y)
degd = Cos(acid)
mesafe = ((A ^ 2) + (B ^ 2) - (2 * A * B * degd)) ^ (0.5)
End If
Cells(Hücre, 5).Value = mesafe
Next
End Sub
aşağıdaki macro ile ağaçlar arasındaki uzaklığı hesaplıyorum
n adet uzaklığa bağlı olarak
en yakın 8 ağaçı bulacak macro yu nasıl yazabilirim bu konuda
bana yardımcı olurmuusnuz
şimdiden tüm cevap yazacak arkadaşlara selam
Sub HESAPLA()
Dim mesafe, aci, acid, deg, degd As Double
Dim A, B, X, Y As Double
[E2:E65535] = ""
For Hücre = 2 To [A65536].End(3).Row
A = Cells(Hücre, 1)
B = Cells(Hücre, 2)
X = ((Cells(Hücre, 3)) * 0.0174533)
Y = ((Cells(Hücre, 4)) * 0.0174533)
Sonuç = 0
If (X - Y) < 3.141594 Then
aci = X - Y
deg = Cos(aci)
mesafe = ((A ^ 2) + (B ^ 2) - (2 * A * B * deg)) ^ (0.5)
ElseIf (X - Y) > 3.141594 Then
acid = 360 - (X - Y)
degd = Cos(acid)
mesafe = ((A ^ 2) + (B ^ 2) - (2 * A * B * degd)) ^ (0.5)
End If
Cells(Hücre, 5).Value = mesafe
Next
End Sub