Matematiksel ifadenin excel karşılığı

[gazmik]

Merhaba arkadaşlar, çok yabancı olduğum bir konu ile ilgili yardımınıza çok acil ihtiyacım var, aslında son güne kadar kendim yaparım diyip herşeyi araştırdım ama konu bana okadar uzak ki çözemedim. Umarım yardımcı olursunuz, çok teşekkür ederim. excel 2010- türkçe kullanıyorum. elimde x= a*e^(-b/c) formülü var. a'nın, b'nin, c'nin karşısında yazılı olduğu hücreler var. ben sadece bu hücreleri formülde tanımlatıp x in karşısındaki hücreye yazdıracağım. bunuda bir düğmeye basınca göstermesi gerek.

 

[Merhum İdris SERDAR]

.

A1 hücrsine a ve değerini B1 hücresine,
A2 hücresine b ve değerini B2 hücresine,
A3 hücresine c ve değerini B3'hücresine

yazın.

Herhangi bir hücreye:

=B1*EXP(1)^(-B2/B3)

formülünü girin.


.

 

[gazmik]

bunu vba ile yapmam gerek

 

[Merhum İdris SERDAR]

bunu vba ile yapmam gerek

.

Function FormulX(a As Double, b As Double, c As Double) As Double
    FormulX = a * Exp(1) ^ (-b / c)
 End Function

Örnek:

=FormulX(B1;B2;B3)

.

 

[gazmik]

teşekkür ederim, ama anlatamadım galiba, bir düğme tanımlamam ve bastığımda xin karşındaki hücreye yazması gerek. bide mesala a'nın değerinin hangi hücrede olduğunu tanımlamam gerekmezmi ? aslında dosyayı buraya ekleyebilsem daha rahat anlatacağım ama nasıl eklyebilirim ?

 

[systran]

Google drive, YandexDisk, Dropbox gibi dosya paylaşım sitelerini kullanabilirsin

 

[gazmik]

ilk sorduğum soruyu hallettim, sağolun, şimdiki problemim düğmeye basınca bulduğum x değerinden başka bir sonucu çıkartıp direk yazdırmak. mesala x değerinden sonra o sonucu anlayıp ondan başka bir değer çıkaracak

 

[Merhum İdris SERDAR]

ilk sorduğum soruyu hallettim, sağolun, şimdiki problemim düğmeye basınca bulduğum x değerinden başka bir sonucu çıkartıp direk yazdırmak. mesala x değerinden sonra o sonucu anlayıp ondan başka bir değer çıkaracak

.

Hallettiğinizi kendinize mi saklayacaksınız?

Yoksa paylaşacak mısınız?

.

 

[gazmik]

Sub Düğme1_Tıklat()
Dim a, b, SpEn, feed, overflow, underflow As Double
a = Cells(6, 3).Value
b = Cells(7, 3).Value
SpEn = Cells(3, 3).Value
feed = Cells(11, 3).Value
underflow = Cells(12, 3).Value
overflow = Cells(13, 3).Value
Cells(11, 3) = a * Exp(1) ^ (-SpEn / b)
Cells(12, 3) = feed - overflow
End sub
böyle yaptım

 

[Merhum İdris SERDAR]

.

Teşekkür ederim.

Ben de Inputlarla şöyle yapmıştım.

Nodule1'e

Option Explicit

Sub FonksiyonGetir()
    
    Dim hcr As String
    Dim a, b, c
    
    
    hcr = "B8"
    On Error Resume Next
    a = Val(InputBox("a değerini girin.", "a Değeri", 0))
    b = Val(InputBox("b değerini girin.", "b Değeri", 0))
    c = Val(InputBox("c değerini girin.", "c Değeri", 0))

    Range(hcr).FormulaR1C1 = "=FormulX(" & a & "," & b & "," & c & ")"
 
End Sub


Function FormulX(a As Double, b As Double, c As Double) As Double

    FormulX = a * Exp(1) ^ (-b / c)

End Function

Düğmeye:

Private Sub getir_Click()
    
    Module1.FonksiyonGetir
    
End Sub

.