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ů:

Jak na Excel - naučte se efektivně využívat Excel - nejoblíbenější (Hodnocení 97%, přes 13.000 studentů, + 750 pozitivních zpětných vazeb) - Získat kurz
MaxiKurz Excel - získejte lepší práci, více peněz, staňte se nepostradatelní (přes 6 hodin videí, 160 lekcí) - Získat kurz
G tabulky... - pokud nemáte rádi Excel využijte kurz na Google-tabulky

... 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: 19.09.2020 11:06

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 - autor webu

Microsoft Office (Word, Excel, Google tabulky, PowerPoint) se věnuji od roku 2000 (od 2004 na této doméně) - V roce 2017 jsem od Microsoft získal prestižní ocenění MVP (zatím jsem jediný z ČR v kategorií Excel). Své vědomosti a zkušenosti dávám k dispozici i on-line ve videích pro SEDUO. Ve firmách školím a konzultuji, učím na MUNI. Tento web již tvořím přes 15 let. Zdarma je zde přes 1.000 návodu, tipů a triků, včetně přes 250 různých šablon, sešitů.