Tank Hacim Hesaplama Makrosu Yardım

[voztemur]

Selamlar.
Makromun içine yazdığım formülü çalıştıramadım. Yardım ederimisniz.
Formülü bu siteden aldım. formülün düzgün çalışıp çalışmadığınıda buradan bulabilirsiniz.

"https://red-bag.com//horizontal-tank-volume.html"

Sub hacim()
Dim D As Long
Dim L As Long
Dim a As Long
Dim h As Long
Dim V As Long

D = Worksheets("sheet1").Range("G3").Value
L = Worksheets("sheet1").Range("G4").Value
a = Worksheets("sheet1").Range("G5").Value
h = Worksheets("sheet1").Range("G7").Value
V = Worksheets("sheet1").Range("G8").Value

R = D / 2
Af = (R ^ 2) * Acos((R - h) / R) * ((2 * R * h) - (h ^ 2)) * ((2 * R * h) - (h ^ 2))
VF = Af * L + (3.14 ^ 2) * a * (h ^ 2) * (1 - (h / (3 * R)))
Worksheets("sheet1").Range("G8").Value = VF

End Sub

 

[Muzaffer Ali]

Verdiğiniz site adresi açılmıyor.

Nasıl bir formüle ihtiyaç duyduğunuzu ve nasıl bir işlem yapmak istediğinizi açık bir şekilde yazarsanız yardımcı olmaya çalışırız.

 

[Merhum İdris SERDAR]

.

Formülü gözden geçirin.

Kod aşağıdaki gibi olmalı.

Sub hacim()
Dim D As Double
Dim L As Double
Dim a As Double
Dim h As Double
Dim V As Double

D = Worksheets("sheet1").Range("G3").Value
L = Worksheets("sheet1").Range("G4").Value
a = Worksheets("sheet1").Range("G5").Value
h = Worksheets("sheet1").Range("G6").Value


R = D / 2
a = (R ^ 2) * (Cos((R - h) / R) * ((2 * R * h) - (h ^ 2)) * ((2 * R * h) - (h ^ 2))) ^ -1
V = a * (L + 3.14 * h ^ 2) * (1 - (h / (3 * R)))
Range("G9") = V

End Sub

Ayrıca buradaki dosyayı inceleyin.

http://www.excelgurusu.com/yatay-silindirdeki-sivinin-hacmi/


.