EXCEL VBA'DA ax+b=c FONKSİYONU OLUŞTURMA

 

Elbette, Excel VBA'da $ax+b=cax\; +\; b\; =\; c$ denkleminde $xx$ değerini bulacak bir kod yazabiliriz. Bu tür denklemlerin çözümü için $xx$ değerini şu formülden elde edebiliriz:

$$x=\frac{c-b}{a}x\; =\; \backslash frac\{c\; -\; b\}\{a\}$$

Aşağıda, kullanıcıdan $aa$, $bb$ ve $cc$ değerlerini alarak $xx$ değerini hesaplayan ve sonucu bir MsgBox penceresinde gösteren bir VBA kodu bulunmaktadır:

Adımlar:

1. VBA Editörünü Açma:

   • Excel'de Alt + F11 tuşlarına basarak VBA editörünü açın.

2. Modül Ekleyin:

• VBA editöründe, Ekle menüsünden Modül'ü seçin. Yeni bir modül ekleyin ve aşağıdaki kodları bu modüle yapıştırın:

Sub XDegeriniBul()

    Dim a As Double

    Dim b As Double

    Dim c As Double

    Dim x As Double

    

    ' Kullanıcıdan a, b ve c değerlerini alın

    a = InputBox("a değerini girin:", "a Değeri")

    b = InputBox("b değerini girin:", "b Değeri")

    c = InputBox("c değerini girin:", "c Değeri")

    

    ' Hata kontrolü: a değeri sıfır olamaz

    If a = 0 Then

        MsgBox "a değeri sıfır olamaz. Lütfen geçerli bir a değeri girin.", vbCritical, "Hata"

        Exit Sub

    End If

    

    ' x değerini hesaplayın

    x = (c - b) / a

    

    ' Sonucu MsgBox ile gösterin

    MsgBox "Denklemdeki x değeri: " & x, vbInformation, "Sonuç"

End Sub

Makroyu Çalıştırma:

1. VBA Editöründen Çıkın:

   • VBA editöründen çıkın ve Excel çalışma kitabınıza dönün.

2. Makroyu Çalıştırın:

   • Geliştirici sekmesinden Makrolar (Macros) butonuna tıklayın.

   • XDegeriniBul makrosunu seçin ve çalıştırın.