VBA dan Excele veri akatarımı

[zabu93]

Merhaba arkadaşlar. Başlıkta da dediğim gibi tezim için lazım. Yardımcı olursanız sevinirim. Şimdi benim projem Krank- Biyel Mekanizması ile ilgili. Bazı hesapları yapmak için de excel kullanmak istedim. VB üzerinden değerleri girip hesaplamaları yapıp excel e aktarmak istiyorum. Fakat şu şekilde aktarmak istiyorum. Benim hesaplamalarım krank mili dönme açısının 0-360 derece kadar olan bütün açılarında hesaplamam gerekiyor.
Sorunum şu. Ben hesaplamaları bir açı üzerinden yapabiliyorum ve bunu For döngüsü gibi açıyı 1 artırarak yapıp bütün derecelerdeki hesapları excele aktarmak istiyorum. Bunu nasıl yapabilirim.

Private Sub CommandButton1_Click()
Dim Ö_N, D_S, P_S, Lmd, R, RL, FNR, OMG, ROM, ROML, ROML2, ROMK, Phi, S1, S2, V1, V2, A1, A2 As Double

Ö_N = Ödev_No.Text
D_S = D_Sayisi.Text
P_S = P_Stroke.Text
Lmd = Lambda.Text

Phi = 10 ---- Değişmesi gereken açı değeri -----
FNR = Phi * 0.0174533
OMG = ((3.1416 * D_S) / 30)
R = (P_S / 2000)
RL = (P_S * Lmd) / 4
ROM = R * OMG
ROML = (ROM * Lmd)
ROML2 = (ROML / 2)
ROMK = R * (OMG * OMG)
S1 = (0.5 * P_S * (1 - Math.Cos(FNR)))
S2 = (0.5 * RL * (1 - Math.Cos(2 * FNR)))

V1 = Math.Sin(Phi / 57.2957) * ROM
V2 = ROML2 * Math.Sin(2 * (Phi / 57.2957))
A1 = ROMK * Math.Cos(Phi / 57.2957)
A2 = ROMK * Lmd * Math.Cos(2 * (Phi / 57.2957))


Range("D7").Value = S1
Range("E7").Value = S2
Range("F7").Value = S1 + S2
Range("G7").Value = V1
Range("H7").Value = V2
Range("I7").Value = V1 + V2
Range("J7").Value = A1
Range("K7").Value = A2
Range("L7").Value = A1 + A2

End Sub

 

[YUSUF44]

Böyle sorularda siz soruya bakıp ne istediğinizi ya da ne istendiğini çok iyi anlayabilirsiniz ancak biz yani bu konuya çok uzak olan, kranktır biyeldir alakası olmayan, hadi diyelim alakası var (ben motor parçası olduklarını biliyorum mesela) ama bununla ne hesap yapılacağını bile düşünemeyen bizler bir şey anlamıyoruz maalesef. Siz de bizim gözümüzle bakarsanız be demek istediğimi daha iyi anlarsınız.

Kodlarda dikkatimi "currency" tanımlaması çekti. Benim bildiğim bu ifade para birimidir. Krank ve biyelle ilgili hesaplamanın parayla ne ilgisi olur anlamadım.

Siz en iyisi örnek bir dosya hazırlayın ve dosyada elimizde ne varken nasıl bir hesap yapıp nasıl bir sonuç istediğinizi açıkça gösterin. Dosyada birkaç farklı örnek hesaplama gösterirseniz iyi olur.