- Katılım
- 25 Eylül 2006
- Mesajlar
- 611
- Excel Vers. ve Dili
- Windows-XP_TR
Ofis-2003_TR
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub Trend_Denkleminin_Ussunu_Bul()
Dim oGrf As Chart
Dim oTrd As Trendline
Dim vSpl As Variant
Set oGrf = ActiveSheet.ChartObjects("Grafik 1").Chart
Set oTrd = oGrf.SeriesCollection(1).Trendlines.Add(Type:=xlPower, _
DisplayEquation:=True)
For Each vSpl In Split(oTrd.DataLabel.Text, "x")
i = i + 1
If i = 2 Then
MsgBox CStr(vSpl)
End If
Next
oTrd.DataLabel.Delete
Set oGrf = Nothing
Set oTrd = Nothing
End Sub
Merhaba arkadaşlar,
Ekteki dosyamda basit bir grafik var.Grafikte birde eğim çizgisi mevcut.Eğim çizgisi tür olarak "üs" seçilmiştir.Benim isteğim ise üssü rakamlarla ifade edebilmek.
Lütfen kusuruma bakmayın,
Bu konu hakkında biraz araştırma yaptım;konu bana epey karışık geldi.Belli veri aralığında bir örnek olursa çok memnun olacağım.Tabi bunu makro ile istemiyorum.Çünkü elimdeki liste biraz kabarık.Excel formül olması benim için daha uygun olacak.
Çok teşekkürler
Sn.üstadlar,
Burada birşey daha sormam gerekecek.Grafik formülündeki katsayı (7,5033) ve üs (0,0085) değerleri, veri aralıkları değiştiğinde değişiyor.Katsayı ve üs rakamlarını nasıl bir formülle bulabiliriz acaba ?
Sn.Üstad,
Grafik veri aralığını kastetmiştim.Aynı dosya üzerinde yapabiliriz.Grafikteki veri aralığının bitiş hücresini "AA" dan "K" ya alınca grafik üzerindeki formüldeki katsayı ve üs rakamları değişiyor,bunu kastetmiştim.Bulmak istediğimi değerler de bunlar zaten.katsayı (7,5033) ve üs (0,0085) siz bu değerleri grafikten bakarak A2 ve B2 hüzrelerine yazmışsınız.Ben bunları grafiğe bakmadan hangi formülle bulabilirim acaba.
Saygılar