Új hozzászólás Aktív témák

• #12956 cousin333 addikt Gabriel_86 #12934

  Új Válasz 2012-02-21 18:43:17 #12956

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  cousin333

  addikt

  válasz Gabriel_86 #12934 üzenetére

  Üdv!

  Neked is mondanám, hogy szerintem rosszul közelíted meg a kérdést. Nem a grafikonból kellene kibogarászni a függvényt, hanem az eredeti adatokból, amin a grafikon is alapszik.

  Ennek megfelelően az alábbi képletet kell egymás melletti 3 cellába, egyszerre(!) beírni, majd Ctrl + Shift + Enter:

  =LIN.ILL(Y; X^{1\2})

  ahol X és Y az értékpárok megfelelő (és egyenlő elemszámú) függőleges tömbjei.

  Ha csak az egyik együttható kell, akkor az mehet így is egy tetszőleges cellába, sima Enterrel nyugtázva. (ez a négyzetes tagé):

  =INDEX(LIN.ILL(Y; X^{1\2});1)

  Ez meg a sima, első hatványhoz tartozó:

  =INDEX(LIN.ILL(Y; X^{1\2});2)

• #12943 Fire/SOUL/CD félisten Gabriel_86 #12941

  Új Válasz 2012-02-20 12:43:07 #12943

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fire/SOUL/CD

  félisten

  válasz Gabriel_86 #12941 üzenetére

  Ja és még annyit, hogy ezt eseményhez is rendelheted, azaz nem kell külön gomb, hogy lefusson a makró.

  Nyomsz egy jobb egeret a Chart-ot tartalmazó lapfülön(ami az esetedben Munka1 nevű) , majd Kód megjelenítése és jobb oldalra meg bemásolod ezt

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$B$1" Then Lekerekítetttéglalap_Kattintás
  End Sub

• #12942 Fire/SOUL/CD félisten Gabriel_86 #12940

  Új Válasz 2012-02-20 12:34:58 #12942

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fire/SOUL/CD

  félisten

  válasz Gabriel_86 #12940 üzenetére

  Így érthető, kösz.

  Az fontos, hogy bizonyos esetekben elkerülhetetlen, hogy objektumokkal dolgozz, azaz a set segítségével, megfelelő objektum típust hozz létre, mert csak akkor érhető el számos tulajdonság. Másrészről túlbonyolítottad ezt a kérdést, én leegyszerűsítettem.

  Sub Lekerekítetttéglalap_Kattintás()
  
  Dim MyChart As Chart
  Dim MyTrendLine As Trendline
  Set MyChart = ActiveSheet.ChartObjects("Diagram 1").Chart
  Set MyTrendLine = MyChart.SeriesCollection(1).Trendlines(1)
  
  Range("C1") = MyTrendLine.DataLabel.Text
  
  Set MyTrendLine = Nothing
  Set MyChart = Nothing
  
  End Sub

• #12935 Fire/SOUL/CD félisten Gabriel_86 #12934

  Új Válasz 2012-02-19 19:50:41 #12935

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fire/SOUL/CD

  félisten

  válasz Gabriel_86 #12934 üzenetére

  "mert fix értékként szerepel a kódban."
  Betennéd a kódot, mert ezt valahogy nem tudom magam elé képzelni...
  (Ha kódot illesztesz be, akkor a hsz írásakor majd használd a programkód gombot)

Új hozzászólás Aktív témák