- Katılım
- 26 Eylül 2007
- Mesajlar
- 9,421
- Excel Vers. ve Dili
- excel 2010
Merhaba
Microsoft Edge üzerinden Bing'e "2.derece denklem çözen excel makro" sordum.
Ekteki açıklamayı ve kodu verdi.
Siz de deneyiniz.
Microsoft Edge üzerinden Bing'e "2.derece denklem çözen excel makro" sordum.
Ekteki açıklamayı ve kodu verdi.
Siz de deneyiniz.
Kod:
Sub DereceDenklemCoz()
Dim a As Double, b As Double, c As Double 'Katsayıları tanımla
Dim x1 As Variant, x2 As Variant 'Kökleri tanımla
Dim d As Double 'Diskriminantı tanımla
a = Range("A1").Value 'A1 hücresindeki değeri a'ya ata
b = Range("B1").Value 'B1 hücresindeki değeri b'ye ata
c = Range("C1").Value 'C1 hücresindeki değeri c'ye ata
d = b ^ 2 - 4 * a * c 'Diskriminantı hesapla
If d > 0 Then 'Eğer diskriminant pozitifse
x1 = (-b + Sqr(d)) / (2 * a) 'Birinci kökü hesapla
x2 = (-b - Sqr(d)) / (2 * a) 'İkinci kökü hesapla
MsgBox "Denklemin iki farklı kökü vardır: " & x1 & " ve " & x2 'Kökleri mesaj kutusunda göster
ElseIf d = 0 Then 'Eğer diskriminant sıfırsa
x1 = -b / (2 * a) 'Tek kökü hesapla
MsgBox "Denklemin tek bir kökü vardır: " & x1 'Kökü mesaj kutusunda göster
Else 'Eğer diskriminant negatifse
x1 = (-b + Sqr(-d) * I) / (2 * a) 'Birinci karmaşık kökü hesapla
x2 = (-b - Sqr(-d) * I) / (2 * a) 'İkinci karmaşık kökü hesapla
MsgBox "Denklemin iki farklı karmaşık kökü vardır: " & x1 & " ve " & x2 'Kökleri mesaj kutusunda göster
End If
End Sub
Ekli dosyalar
-
771.9 KB Görüntüleme: 11