MS Excel

pstankus@bon.cz

Poslu Vam to meilem. Je to jednoduche, jen na to prijit

Public Sub CalcE()
Dim eqString As String, parstring As String, par(6) As Double, pos As Integer, i As Integer
'CalcE bude nazev makra
'nazev listu je u mne "Equation" , je tam sloupec dat X,Y a jeden graf

'Debug.Print Worksheets("Equation").ChartObjects(1).Chart.SeriesCollection(1).Trendlines(1).Type
' tohle jen rekne typ funkce, je tam ten, ktery jste volili u vybrani trendu, k nicemu,

Worksheets("Equation").ChartObjects(1).Chart.SeriesCollection(1).Trendlines(1).DiplayRSquared = False
'schodi zobrazeni koeficientu regrese, aby to pak nahodou nezobrazovalo i ten

Worksheets("Equation").ChartObjects(1).Chart.SeriesCollection(1).Trendlines(1).DisplayEquation = True
'zobrazi rovnici linie trendu , tak jak byla vybrana v grafu, koeficienty jsou podle aktualnich dat

Worksheets("Equation").ChartObjects(1).Chart.SeriesCollection(1).Trendlines(1).DataLabel.NumberFormat = "#.######E-##"
'nastavi format koeficientu, co nejvetsi, kvuli presnosti dalsiho pouziti

eqString = _
Worksheets("Equation").ChartObjects(1).Chart.SeriesCollection(1).Trendlines(1).DataLabel.Text

Worksheets("Equation").Range("e108") = eqString
'rovnice je ted jako text v promenne eqString, v grafu a v bunce E108

'da se to pochopit z helpu v Escelu
'----------------------------------------------------
eqString = Mid(eqString, 4) 'utrhne pocatek rovnice, t.j. y =
pos = InStr(eqString, "x")
For i = 1 To 6
' atd ,procedura ne vypreparovani jednotlivych parametru z textu rovnice
Next i

End Subcitovat