Přeskočit navigaci | Přeskočit na novinky
     

Jste zde: Úvodní stránka » excel » vba-grafy » spojnice-tredndu-upravy-rovnice-vba

Spojnice trendu - úpravy rovnice ve VBA

Videokurzy Excel

Ve spolupráci se SEDUO jsem vytvořil několik videokurzů:

... převod rovnice spojnice trendu do buňky ... za vaužití VBA

Vytvoříme v grafu polynom 5 řádu

Předpoklad, že již máme graf s nějakou křivkou.

Worksheets("List1").Activate Worksheets("List1").ChartObjects("graf 1").Activate ActiveChart.SeriesCollection(1).Trendlines(1).Select With Selection .Type = xlPolynomial .Order = 5 ' nastaví řád polynomu podle hodnoty v buňce _RadPolyI .Forward = 0 .Backward = 0 .InterceptIsAuto = True .DisplayEquation = True .DisplayRSquared = False .NameIsAuto = True .DataLabel.NumberFormat = "0.0000000000000000E+00" End With

Uložení rovnice do proměnné

Předpokládám, že již máme rovnici k dispozici v daném grafu.

' vstoupime do daného listu Worksheets("List1").Activate ' přepneme se do grafu ActiveSheet.ChartObjects("graf 1").Activate ' ulozime do promene sFormula sFormula = ActiveChart.SeriesCollection(3).Trendlines(1).DataLabel.Text ' jen si ji pro kontrolu zobrazíme do dialogového boxu MsgBox sFormula

Úprava rovnice pro výpočet

Uložení rovnice do buňky.

' uložíme do buňky G1 Worksheets("List1").Range("G1").Value = sFormula

Předpokládám, že jako rovnici spojnice trendu je polynom patého řádu. Takže musíme rovnici uptavit tak ať je použitelná pro výpočet.

' aktivujeme buňku na požadovaném listě Worksheets("List").Activate Worksheets("pom").Range("G1").Activate ' upravíme vzoreček do požadované podoby ActiveCell.Replace What:="x5", Replacement:="*G2^5" ActiveCell.Replace What:="x4", Replacement:="*G2^4" ActiveCell.Replace What:="x3", Replacement:="*G2^3" ActiveCell.Replace What:="x2", Replacement:="*G2^2" ActiveCell.Replace What:="x", Replacement:="*G2" ActiveCell.Replace What:="y = ", Replacement:=""

Rovnici převedeme do výpočtového tvaru (buňka G3). Pak stačí za G2 dosazovat a budeme mít výpočet.

pomocna_a = "=" & Worksheets("pom").Range("G1").Value Worksheets("pom").Range("G3").FormulaLocal = pomocna_a

Další možnosti

Rovnici můžeme skrýt.

' skrýt rovnici .DisplayEquation = False

Závěrem

Jelikož potřebuji pro řešení pracovního problému tak jsem si připravil podklady. A proč je nepublikovat, určitě se bude někomu hodit :) Těšit se můžete i nad další články kolem úpravy a formátování grafů.

Článek byl aktualizován: 01.11.2014 14:10

Odměna

Ušetřil vám tento web čas, peníze? Pomohl vyřešit problém? Jste ochotni poskytnout symbolickou odměnu na další rozvoj? Vybrte si formu odměny, která vám vyhovuje.


Pavel Lasák

Pavel Lasák - autor webu

Microsoft Office (Word, Excel, PowerPoint) se věnuji od roku 2006. Své vědomosti a zkušenosti dávám k dispozici na různých školeních a konzultacích, ale také na tomto webu. K dispozici na tomto webu je mnoho návodu, tipů a triků včetně desítek různých šablon.

   Pavel Lasák LinkedIn Profil    Pavel Lasák Google+ Profil    Pavel Lasák facebook Profil    Pavel Lasák twitter Profil

Doporučte tento článek přátelům

Pokud vám článek pomohl, případně si myslíte, že může pomoci i někomu dalšímu, budu rád když jej sdílením doporučíte přátelům - děkuji:



Komentáře zatím nejsou

Můžete být prvními co zanechají smysluplný komentář.







Sdílejte

Pomohl Vám návod?
Sdílejte na Facebooku, G+
LinkedIn...

Nové články

25.03.2017:
ROUNDUP, ROUNDDOWN - zaokrouhlování

07.04.2017:
Řazení Excel - bug - problém

09.04.2017:
Podmínkové funkce Excel - bug - problém


Newsletter

Přihlaste se odběru novinek a získejte:
Ebook zdarma -
10 kroků ke zvládnutí (Word, Excel, PowerPoint)
Šipka Kniha 3D Více o ebooku ...

TOPlist Licence Creative Commons webarchiv rss XML

Stránky o MS Office (Excel) produktu společnosti Microsoft. Neslouží jako technická podpora.
| Email na autora: pavel.lasak@gmail.com | Copyright © : Pavel Lasák 2004 - 2017 | 6199

Tento web zatím neprošel jazykovou korekturou. Beta verze redakčního systému.