Ahoj, sice to není úplně přesně ono, ale zkus si nejprve prohlédnout řešení v článku: http://wall.cz/index.php?m=topic&id=7163#post-7181 třeba se ti zalíbí :-)
M@citovat
M@citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Dočasný/Náhladový graf
MS Excel
Téma: Dočasný/Náhladový graf 
Zaslal/a jozz 6.1.2013 17:34
Ahoj,
mám napr. tabuľku kde mám v stĺpci A prístroje (cca. 100), v ďalších stĺpcoch napr. teploty za posledných 60 dní (teda 60 stĺpcov) pre jednotlivé prístroje (toto je len príklad, nie som meteorológ 
).
Chcel by som v VBA vytvoriť takú funkčnosť, že keď vyberiem prístroj v stĺpci A (teda bunka s daným prístrojom je aktívna) a následne stlačím špecifickú klávesu (alebo kombináciu kláves) tak sa mi zobrazí graf z meraní daného prístroja. Keď špecifickú klávesu pustím, graf zmizne. Stlačím klávesu, opäť sa zobrazí. Zmením aktívnu bunku na iný prístroj a stlačím - mám graf iného (bunka aktívna)prístroja. Graf nepotrebujem nikde uložiť, iba dočasne zobraziť.
Môže byť aj iný postup, ktorý dosiahne obdobnú funkčnosť.
Čo poradíte ?
Jeza.m vdaka. Skusil som ten plavajuci graf, vyskytol sa mi nasledovny pripad :
a.) vybral som oblasti, zadefinoval som Nazvy (Nazov grafu, hodnoty grafu)
b.) vytvoril som graf s Nazvami
c.) Doplnil SW
d.) po spustení SW vyhlasil chybu, neexistivali zadefinovane Nazvy
Toto preslo
ActiveWorkbook.Names.Add Name:="Graf_hodnoty",
RefersToR1C1:="=List1!R" & rd & "C2:R" & rd & "C10"
ActiveWorkbook.Names.Add Name:="Graf_nazev", RefersToR1C1:="=List1!R" & rd & "C1"
zda sa ze to zrusilo definiciu Nazvov, lebo toto potom
Hárok1.Range("Graf_hodnoty").Interior.ColorIndex = 4
vyhlasilo chybu 1004, Method Range of Object failed.
Nazov "Graf"hodnoty" zmizne z oblasti kde byva uvedeny, avsak ak chcem Nazov pod rovnakym nazvom znovu zadefinovat, vyhlasi chybu - uvedeny nazov existuje, pouzite iny.citovat
a.) vybral som oblasti, zadefinoval som Nazvy (Nazov grafu, hodnoty grafu)
b.) vytvoril som graf s Nazvami
c.) Doplnil SW
d.) po spustení SW vyhlasil chybu, neexistivali zadefinovane Nazvy
Toto preslo
ActiveWorkbook.Names.Add Name:="Graf_hodnoty",
RefersToR1C1:="=List1!R" & rd & "C2:R" & rd & "C10"
ActiveWorkbook.Names.Add Name:="Graf_nazev", RefersToR1C1:="=List1!R" & rd & "C1"
zda sa ze to zrusilo definiciu Nazvov, lebo toto potom
Hárok1.Range("Graf_hodnoty").Interior.ColorIndex = 4
vyhlasilo chybu 1004, Method Range of Object failed.
Nazov "Graf"hodnoty" zmizne z oblasti kde byva uvedeny, avsak ak chcem Nazov pod rovnakym nazvom znovu zadefinovat, vyhlasi chybu - uvedeny nazov existuje, pouzite iny.citovat
Co mě na první pohled zaráží je, že v definici oblasti názvu necháváš List1, tudíž oblast by měla být na Listu 1. ale když to pak chceš obarvit, tak tam máš Hárok1.Range .... .
Takhle na první pohled bych tipoval chybu v tomtu nesouladu listů (jednou list a pak hárok).
M@citovat
Takhle na první pohled bych tipoval chybu v tomtu nesouladu listů (jednou list a pak hárok).
M@citovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články