Excel VBA dizi şeklindeki veriler ile Fonksiyon yaptık Cross Formülü ile Alan Hesabı fonksiyon

[sserdar]

Excel VBA dizi şeklindeki veriler ile Fonksiyon yaptık
Cross Formülü ile Alan Hesabı fonksiyon formülü

 

[sserdar]

'Cross Formülü ile Alan Hesabı Fonksiyonu
Function Cross_Alan(Aralık1 As Range, Aralık2 As Range) As Currency

Dim Xtop, Ytop As Currency
Dim i, sıra As Integer

Application.Volatile: 'değişikliklerin otomatik olarak yakalanmasını sağlar

Xtop = 0: Ytop = 0
sıra = Aralık1.Count

For i = 1 To sıra
Xtop = Xtop + Aralık1(i) * Aralık2(i + 1)
Ytop = Ytop + Aralık1(i + 1) * Aralık2(i)

Next i
Cross_Alan = Abs((Xtop - Ytop) / 2)

End Function

 

[Ömer]

Merhaba,

Paylaşım için teşekkür ederiz.

G:H sütunlarını kullanmadan yerleşik fonksiyonlarla alternatif olsun.

Dizi formülüdür.

=MUTLAK(TOPLA(EĞERHATA(E9:E21*F10:F21-F9:F21*E10:E21;0))/2)

 

[sserdar]

Değerli Ömer Bey,
yaptığınız katkı için çok teşekkür ederim.

 

[Haluk]

@ Ömer Bey;

Cross metodunda, poligonun kapanması gerekir....

Yani; başlangıç noktasından saat yönünde ilerleyerek en son nokta olarak yine ilk noktanın koordinatlarını girmelisiniz. Aksi takdirde sonuç yanlış çıkar.

.

 

[sserdar]

Haluk Bey,
Anlatım çok güzel bir çalışma olmuş
teşekkürler

 

[Korhan Ayhan]

Paylaşımlar için teşekkürler.

Ellerinize sağlık..

 

[Ömer]

Haluk Bey,

Bilgi ve paylaşım için teşekkürler.
Cross metodunda teknik bilgim olmadığı için ilk dosyada yardımcı sütun kullanılarak elde edilen formülü revize etmeye çalışmıştım.