macro yardım

[ilker611]

merhabalar ustalarım size bir sorum olacaktı
yapmak istediğim şu :
x acısı ve y acısı var
x-y <180 ise
formül a=b+c+cos(x-y)
x-y >180 ise
formül a=b+c+cos(180-(x-y)) olacak
formülleri ve sorgulamaları yazıyoum yapabilim
sorunum şu cos(x-y) ve cos(180-(x-y)) i nasıl hesaplayacağım
ayrıca x ve y excel sayfasında ayrı bir sütün olarak var
fonksiyonlarla bunu yapabilirim bunu biliyorum ama
parantez içindeki x-y ve 180-(x-y) leri asıl yacağım çünkü
cosinusun fonksiyonunda parantez içine sadece sütün isimleri yazılıyor
bu konuda bana yardımcı olursanız cok sevinrim
şimdiden yardımlarınız için teşekkür ederim

 

[Korhan Ayhan]

Selamlar,

Örnek bir dosya ekleyebilirmisiniz.

 

[ilker611]

örnek dosya

örnek dosya

 

[Korhan Ayhan]

Selamlar,

E2 h&#252;cresine a&#351;a&#287;&#305;daki form&#252;l&#252; uygulay&#305;p denermisiniz.

Not: X-Y<180 ve X-Y>180 denkleminde e&#351;itlik kontrol edilmedi&#287;inden e&#287;er denklem sonucu 180 &#231;&#305;karsa a&#351;a&#287;&#305;daki form&#252;l "0" de&#287;erini d&#246;nd&#252;recektir.

=E&#286;ER((C2-D2)<180;A2+B2+COS(C2-D2);E&#286;ER((C2-D2)>180;A2+B2+COS(180-(C2-D2));0))

 

[ilker611]

merhaba

cevabınız için teşekkür ederim
ama ama bana macro kodu lazım anlattığım
olayı macro kodları ile yapmam lazım
ilginiz için çok teşekkür

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub HESAPLA()
    Dim Sonuç, Kosinüs As Double
    Dim A, B, X, Y As Integer
    [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)
    Y = Cells(Hücre, 4)
    Sonuç = 0
    If (X - Y) < 180 Then
    Kosinüs = Evaluate("=COS(" & X & " - " & Y & ")")
    Sonuç = A + B + Kosinüs
    ElseIf (X - Y) > 180 Then
    Kosinüs = Evaluate("=COS(" & "180-(" & X & "-" & Y & ")" & ")")
    Sonuç = A + B + Kosinüs
    End If
    Cells(Hücre, 5).Value = Sonuç
    Next
End Sub

 

[ilker611]

çok teşekkür

denedim çalıştı yadımalrınız için teşekkür ederim

 

[mamoste72]

banada yarım edin yaa

bende bi makrola yapılan excel var adam makroda komutları kapatmıs hiç bi değişiklike izin vermiyo bunu kırmak icin bi cözüm varmı varsa msn adresimi veriyom oraya cvp yazın arkadaşlar cünkü nete fazla gelmiyo ondan dolayı mamoste_7272@hotmail.com