sances
07.11.15,17:26
Ahojte
Už tu bežala táto téma (http://www.porada.sk/t118139-p3-graf-v-exceli.html) ale kedže by sa Otázočka stratila v Debatách dovolil som si založiť novú tému.
Marjankaj mi tu už dávnejšie vytvoril makierko na úpravu zobrazovanej oblasti.
Private Sub Worksheet_Activate()
Dim a, b
a = Array(36)
'b = Array(34, 36, 38, 35)
For i = 0 To 0
cas1 = "=UDAJE!R" & a(i) & "C14:R" & a(i) & "C" & (Range("1!H2") + 13)
'cas2 = "=UDAJE!R" & b(i) & "C14:R" & b(i) & "C" & (Range("3!K2") + 13)
MsgBox ActiveSheet.ChartObjects(i + 1).Chart.Name
ActiveSheet.Chart(i + 1).Chart.SeriesCollection(1).Values = cas1
'Sheets("3").ChartObjects(i + 1).Chart.SeriesCollection(2).Values = cas2
Next i
End Sub
Problém je v tom že upravuje grafy v poradí aké im pridelil Excel.
Nepomáha mi presun grafu dopredu, potrebujem upraviť graf číslo 5 ale makro stále vyhodí chybu.
Viete mi s tým prosím niekto pomôcť?
Ďakujem veľmi pekne všetkým ktorí dočítali až sem :)
Už tu bežala táto téma (http://www.porada.sk/t118139-p3-graf-v-exceli.html) ale kedže by sa Otázočka stratila v Debatách dovolil som si založiť novú tému.
Marjankaj mi tu už dávnejšie vytvoril makierko na úpravu zobrazovanej oblasti.
Private Sub Worksheet_Activate()
Dim a, b
a = Array(36)
'b = Array(34, 36, 38, 35)
For i = 0 To 0
cas1 = "=UDAJE!R" & a(i) & "C14:R" & a(i) & "C" & (Range("1!H2") + 13)
'cas2 = "=UDAJE!R" & b(i) & "C14:R" & b(i) & "C" & (Range("3!K2") + 13)
MsgBox ActiveSheet.ChartObjects(i + 1).Chart.Name
ActiveSheet.Chart(i + 1).Chart.SeriesCollection(1).Values = cas1
'Sheets("3").ChartObjects(i + 1).Chart.SeriesCollection(2).Values = cas2
Next i
End Sub
Problém je v tom že upravuje grafy v poradí aké im pridelil Excel.
Nepomáha mi presun grafu dopredu, potrebujem upraviť graf číslo 5 ale makro stále vyhodí chybu.
Viete mi s tým prosím niekto pomôcť?
Ďakujem veľmi pekne všetkým ktorí dočítali až sem :)
mepex
08.11.15,17:57
Je to rozhodne zaujímavý problém, ale podľa mňa je jednoduchšie riešenie nemeniť vstupný rozsah hodnôt pre krivku, ale do všetkých buniek z ktorých nemá byť nula vynesená dať podmienku keď je hodnota nula vlož chybu NA() [Chyba #NA sa do grafu nevynáša].
Príklad vzorca =IF(AND(C11=0;D11=0);NA();C11) [prvý graf].
Tak isto sa dá dosiahnuť zobrazovanie zadaného počtu hodnôt v bunke Hárok1!Q2 vzorcom =IF(COLUMNS($C2:C2)<=Hárok1!$Q$2;C14;NA()) [2. graf].
Príklad vzorca =IF(AND(C11=0;D11=0);NA();C11) [prvý graf].
Tak isto sa dá dosiahnuť zobrazovanie zadaného počtu hodnôt v bunke Hárok1!Q2 vzorcom =IF(COLUMNS($C2:C2)<=Hárok1!$Q$2;C14;NA()) [2. graf].
sances
08.11.15,18:34
Ahoj
Ďakujem pekne za riešenie.
Funguje.
Najprv som nechápal, že ako tam zostane vzorec keď mi tam makro vyplní hodnoty, potom som si všimol "pomocnú" oblasť pre graf.
Ďakujem ešte raz, vyskúšam to naostro do výkazu a napíšem.
Vďaka a peknú nedeľu.
Vyskúšané, vzorček funguje.
Ďakujem dakujeem :)
Ďakujem pekne za riešenie.
Funguje.
Najprv som nechápal, že ako tam zostane vzorec keď mi tam makro vyplní hodnoty, potom som si všimol "pomocnú" oblasť pre graf.
Ďakujem ešte raz, vyskúšam to naostro do výkazu a napíšem.
Vďaka a peknú nedeľu.
Vyskúšané, vzorček funguje.
Ďakujem dakujeem :)