- Katılım
- 11 Mart 2005
- Mesajlar
- 3,201
- Excel Vers. ve Dili
- Office 2013 İngilizce
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
İdris Hocam emeğiniz için teşekkürler,.
Goal Seek - Hedefara ile çözülmüştür.
.
Tevfik Hocam işlemin sağlamasını yapınca uymuyor sanki;Merhaba Sayın Haluk Hocam,
Üstteki nesajda yazdığım gibi, iki kök var. Kökten çıkan değeri + - olarak aldığınızda sonuçlar ekli belgelerde olduğu gibi çıkar.
(not: 7. mesajda son 2 terim negatif olmalı, sanırım dikkatinizden kaçtı. (a+b+c) nin karesinin açılımında her terim pozitif olur)
Saygılarımla
Tevfik Hocam işlemin sağlamasını yapınca uymuyor sanki;
Ekli İdris Hocamın verdiği Hedef ara yöntemini Kullanıcı tanımlı fonksiyon haline getirmeye çalışıyordum yalnız beceremedim.
Her şey için teşekkürler,
iyi Geceler
Private Sub Worksheet_Change(ByVal Target As Range)
Range("F5").goalSeek Goal:=Range("B5"), ChangingCell:=Range("C5")
End Sub
GoalSeek işlevi yalnızca çağıran hücreye değer döndürebilmekte, diğer hücrelerde değişikliklere neden olamamaktadır. Bu nedenle Bunu ancak Sub olarak kullanırsanız veya;
Kod:Private Sub Worksheet_Change(ByVal Target As Range) Range("F5").goalSeek Goal:=Range("B5"), ChangingCell:=Range("C5") End Sub
şeklinde olabilir.
KTF olması için n = ((sqrt(1 + 4 *Da) - 1) ^ 2)/(2*Da) fonksiyonunu Da=........... şeklinde bir duruma sokarsanız, buna KTF yazmak kolay. Ben bunu yapamadım.
.
Sayın İdris Hocam,
goalSeek için yazdığınız ifadeye teşekkür ederim. 13. mesajda Haluk hocanın Formul adlı dosyasında B2 ve F2 hücrelerinde aradığınız formüller doğru olarak var. Bu vesile ile KTF nin de nasıl yapıldığını tam olarak öğrenmiş olalım.
Saygılarımla