Zavrieť

Porady

graf v exceli

Ahojte,
chcem Vas poziadat o informaciu, ci je mozne vyriesit moj problem. Potreboval by som vyrobit kolacovy graf tak, aby v nom boli zoradene udaje vzostupne. Dalo by sa to tak, ze by som zoradil tabulku so zdrojovymi udajmi vzostupne, ale tu potrebujem ponechat v povodnom tvare.

Napriklad v prilozenom subore potrebujem, aby v grafe boli zoradene udaje nasledovne: h, g, a, c, d, b, e, f. Tabulku vsak potrebujem ponechat v povodnom tvare.

Je nieco taketo mozne?

Vdaka
Usporiadat
sances sances

sances je offline (nepripojený) sances

Ahoj Thaisk, nechcem vyzerať nevďačne, Tvoja verzia by sa mi veľmi zišla lebo ešte neviem či sa užívateľovi bude páčiť Marjankajova, ale ako to funguje?
V tvojej prílohe nevidím zmeny oproti originálu.

EDIT: 10:39

JOJ sorry už vidím...výber v Q3.. čúmím ďakujem

PS: aj ja by som chcel vedieť ako to marjankaj robí... .....a aj to ako to robíš Ty..
Naposledy upravil sances : 17.06.11 at 09:53
0 0
sances sances

sances je offline (nepripojený) sances

A Ty si to vyriešil tiež veľmi pekne, mňa by to takto nenapadlo a nikdy by som to takto nezapísal, pritom ide vlastne "len" o podmienku. To sa mi páči, to budem vedieť aj ďalej používať..
dúfam Dík
PS:Sorry,neviem dávať bodíky lebo nemám 10 bodíkov..
Ostanem teda dlžný Tebe aj Marjankanovi
0 0
marjankaj marjankaj

marjankaj je offline (nepripojený) marjankaj

I am a man
sances Pozri príspevok
Ahoj Thaisk, nechcem vyzerať nevďačne, Tvoja verzia by sa mi veľmi zišla lebo ešte neviem či sa užívateľovi bude páčiť Marjankajova, ale ako to funguje?
V tvojej prílohe nevidím zmeny oproti originálu.

EDIT: 10:39

JOJ sorry už vidím...výber v Q3.. čúmím ďakujem

PS: aj ja by som chcel vedieť ako to marjankaj robí... .....a aj to ako to robíš Ty..
No jednoducho. Dal som si záznam makra, urobil úpravu zdrojových dát a potom som makro iba trochu upravil.
Tu som to upravil tak ako thaisk.
Vyhodil som jeden riadok, a zabezpečil, že sa spúšťa samé pri zmene v hárku1.
0 0
sances sances

sances je offline (nepripojený) sances

No už to tu lúskam 2 hodinky, je mi jasné že nemáš čas na podrobné vysvetlovačky, som vďačný za to čo ste tu všetci predviedli.
Kam si vložil ten thaiskov vzorec?
Makro sa spustí po zmene hodnoty v Hárok1 Q2?
Či to formátovanie sa spustí pri zmene na Hárku1 ?
Na povrchu nevidieť zmeny a pritom to funguje..
Ktorý riadok si odstránil?
Če če ..
To Tvoje jednoducho mi pripomína tú reklamu..ako to všetci robia??
úúúplne jednoduchooo..
Cez záznamník makier sa tiež rád učím, ale nie vždy hneď odhalím čo všetko zaznamená zbytočne..
Ďakujemmmm
0 0
marjankaj marjankaj

marjankaj je offline (nepripojený) marjankaj

I am a man
sances Pozri príspevok
No už to tu lúskam 2 hodinky, je mi jasné že nemáš čas na podrobné vysvetlovačky, som vďačný za to čo ste tu všetci predviedli.
Kam si vložil ten thaiskov vzorec? Jeho vzorce som nepoužil
Makro sa spustí po zmene hodnoty v Hárok1 Q2?áno
Či to formátovanie sa spustí pri zmene na Hárku1 ?áno, ale vidieť to iba ak sa zmení hodnota v Q2
Na povrchu nevidieť zmeny a pritom to funguje..
Ktorý riadok si odstránil?pozri nie v module, ale v hárku1
Če če ..
To Tvoje jednoducho mi pripomína tú reklamu..ako to všetci robia??
úúúplne jednoduchooo..
Cez záznamník makier sa tiež rád učím, ale nie vždy hneď odhalím čo všetko zaznamená zbytočne..Ak nevieš, čo niektorý príkaz robí, tak sa naň nastav a stlač F1
Ďakujemmmm
červené môžeš odstrániť


Private Sub Worksheet_Change(ByVal Target As Range)

Dim a, b
a = Array(5, 6, 140, 31, 53)
b = Array(10, 12, 141, 36, 57)
For i = 0 To 4
cas1 = "=UDAJE!R" & a(i) & "C4:R" & a(i) & "C" & (Range("hárok1!Q2") + 3)
cas2 = "=UDAJE!R" & b(i) & "C4:R" & b(i) & "C" & (Range("hárok1!Q2") + 3)
'ActiveSheet.ChartObjects(i + 1).Chart.SeriesCollection(1).Values = cas1
ActiveSheet.ChartObjects(i + 1).Chart.SeriesCollection(2).Values = cas2
Next i

End Sub
0 0
sances sances

sances je offline (nepripojený) sances

Toto ma nenapadlo.
Zajtra na nočnej otestujem.
Si frajer,darmo, asi tie knihy o Excel čo som rozčítal, čítam zle..
Alebo proste treba len skúšať, skúšať a skúšať a pozerať čo kto ako vyriešil a poučiť sa..ani len 1% z toho Excelu nevyužívam..úžasné..
0 0
marjankaj marjankaj

marjankaj je offline (nepripojený) marjankaj

I am a man
sances Pozri príspevok
Toto ma nenapadlo.
Zajtra na nočnej otestujem.
Si frajer,darmo, asi tie knihy o Excel čo som rozčítal, čítam zle..
Alebo proste treba len skúšať, skúšať a skúšať a pozerať čo kto ako vyriešil a poučiť sa..ani len 1% z toho Excelu nevyužívam..úžasné..
Tak má to aj nedostatky. To makro je jednoúčelové. Ten posledný graf je iný, tak ho ignorujem. Ak by si to chcel rozšíriť o ďalšie grafy, tak by to bolo treba prerobiť.

Možno thaiskovo riešenie je schodnejšie. Aj keď ja by som tie prázdne riadky povyhadzoval. Načo to rozťahovať po celom hárku. Excelu je jedno odkiaľ berie dáta a bolo by to pokope.
0 0
sances sances

sances je offline (nepripojený) sances

Poslednému stĺpcovému grafu nuly nevadia.
Uvažoval som len o zmene farieb aby bolo jasné čo patrí k čomu patrí. DN k DN a ETL k ETL. Ale žiadne ďalšie sa mi tam nepáčili..
Alebo som tam chcel dať čiarový z dvoma x osami..
Na list103 ťahám údaje denne z webu triedim na list Udaje - čo môže byť zbytočné. Chcel som zachovať tú štruktúru že keď zmením dátum v Hárok1 Q2 tak ukáže staré hodnoty. A to si vlastne teraz tiež vyriešil takže List Udaje je zbytočný, stačí presmerovať zdrojové údaje grafov.Pravda..
Dík
0 0
marjankaj marjankaj

marjankaj je offline (nepripojený) marjankaj

I am a man
sances Pozri príspevok
Poslednému stĺpcovému grafu nuly nevadia.
Uvažoval som len o zmene farieb aby bolo jasné čo patrí k čomu patrí. DN k DN a ETL k ETL. Ale žiadne ďalšie sa mi tam nepáčili..
Alebo som tam chcel dať čiarový z dvoma x osami..
Na list103 ťahám údaje denne z webu triedim na list Udaje - čo môže byť zbytočné. Chcel som zachovať tú štruktúru že keď zmením dátum v Hárok1 Q2 tak ukáže staré hodnoty. A to si vlastne teraz tiež vyriešil takže List Udaje je zbytočný, stačí presmerovať zdrojové údaje grafov.Pravda..
Dík
Ten list je naopak potrebný. Neviem ako by si presmeroval zdrojové údaje. To by si musel meniť aj makro.
0 0
sances sances

sances je offline (nepripojený) sances

No áno, makro ktoré vydrbkáva so zobrazovaním núl by sa muselo zmeniť. Ale všetky čísla ktoré sú na liste Udaje, sú aj na liste103.
Tak by to mohlo ísť bez toho prvého môjho makra "ukrytého" pod smajlíkom na liste Udaje..či ?
0 0
marjankaj marjankaj

marjankaj je offline (nepripojený) marjankaj

I am a man
sances Pozri príspevok
No áno, makro ktoré vydrbkáva so zobrazovaním núl by sa muselo zmeniť. Ale všetky čísla ktoré sú na liste Udaje, sú aj na liste103.
Tak by to mohlo ísť bez toho prvého môjho makra "ukrytého" pod smajlíkom na liste Udaje..či ?
Do toho som radšej ani nepozeral. Než by som prišiel na koniec, tak neviem, čo je na začiatku. A ty to tam akosi skladáš z viacerých stlpcov, z tohy by sa ťažko vytváral graf.
0 0
sances sances

sances je offline (nepripojený) sances

Prosím Vás je nejako obmedzená dĺžka makra v Excel ?

Ďakujem

Vypisuje mi to nejaké čudné hlášky..
0 0
marjankaj marjankaj

marjankaj je offline (nepripojený) marjankaj

I am a man
sances Pozri príspevok
Prosím Vás je nejako obmedzená dĺžka makra v Excel ?

Ďakujem

Vypisuje mi to nejaké čudné hlášky..
No toto môžeš nahradiť.

Worksheets("103").Cells.Find("GALPZ").Select
Worksheets("UDAJE").Range("D140").Value = Selection.Offset(3, 0)
Worksheets("UDAJE").Range("E140").Value = Selection.Offset(4, 0)
Worksheets("UDAJE").Range("F140").Value = Selection.Offset(5, 0)
Worksheets("UDAJE").Range("G140").Value = Selection.Offset(6, 0)
Worksheets("UDAJE").Range("H140").Value = Selection.Offset(7, 0)
Worksheets("UDAJE").Range("I140").Value = Selection.Offset(8, 0)
Worksheets("UDAJE").Range("J140").Value = Selection.Offset(9, 0)
Worksheets("UDAJE").Range("K140").Value = Selection.Offset(10, 0)
Worksheets("UDAJE").Range("L140").Value = Selection.Offset(11, 0)
Worksheets("UDAJE").Range("M140").Value = Selection.Offset(12, 0)
Worksheets("UDAJE").Range("N140").Value = Selection.Offset(13, 0)
Worksheets("UDAJE").Range("O140").Value = Selection.Offset(14, 0)
Worksheets("UDAJE").Range("P140").Value = Selection.Offset(15, 0)
Worksheets("UDAJE").Range("Q140").Value = Selection.Offset(16, 0)
Worksheets("UDAJE").Range("R140").Value = Selection.Offset(17, 0)
Worksheets("UDAJE").Range("S140").Value = Selection.Offset(18, 0)
Worksheets("UDAJE").Range("T140").Value = Selection.Offset(19, 0)
Worksheets("UDAJE").Range("U140").Value = Selection.Offset(20, 0)
Worksheets("UDAJE").Range("V140").Value = Selection.Offset(21, 0)
Worksheets("UDAJE").Range("W140").Value = Selection.Offset(22, 0)
Worksheets("UDAJE").Range("X140").Value = Selection.Offset(23, 0)
Worksheets("UDAJE").Range("Y140").Value = Selection.Offset(24, 0)
Worksheets("UDAJE").Range("Z140").Value = Selection.Offset(25, 0)
Worksheets("UDAJE").Range("AA140").Value = Selection.Offset(26, 0)
Worksheets("UDAJE").Range("AB140").Value = Selection.Offset(27, 0)
Worksheets("UDAJE").Range("AC140").Value = Selection.Offset(28, 0)
Worksheets("UDAJE").Range("AD140").Value = Selection.Offset(29, 0)
Worksheets("UDAJE").Range("AE140").Value = Selection.Offset(30, 0)
Worksheets("UDAJE").Range("AF140").Value = Selection.Offset(31, 0)
Worksheets("UDAJE").Range("AG140").Value = Selection.Offset(32, 0)
Worksheets("UDAJE").Range("AH140").Value = Selection.Offset(33, 0)
týmto

Worksheets("103").Cells.Find("GALPZ").Select
for i=3 to 33
Worksheets("UDAJE").cells(4, 137+i).Value = Selection.Offset(i, 0)
next i
alebo

Worksheets("UDAJE").Range("D140:AH140").Select
Selection.Copy

Worksheets("103").Cells.Find("GALPZ").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True

Makrá sa nerobia kvôli tomu, aby si sa napísal ako český žandár.
Ale na to aby si si uľahčil prácu. A hľadať tam chybu bude problém aj pre Sherlocka.
Naposledy upravil marjankaj : 06.07.11 at 13:02
0 0
sances sances

sances je offline (nepripojený) sances

Ďakujem, kdesi v kútiku duše som dúfal že sa to dá aj inak..

Ď Ď Ď...
0 0
sances sances

sances je offline (nepripojený) sances

marjankaj Pozri príspevok
červené môžeš odstrániť


Private Sub Worksheet_Change(ByVal Target As Range)

Dim a, b
a = Array(5, 6, 140, 31, 53)
b = Array(10, 12, 141, 36, 57)
For i = 0 To 4
cas1 = "=UDAJE!R" & a(i) & "C4:R" & a(i) & "C" & (Range("hárok1!Q2") + 3)
cas2 = "=UDAJE!R" & b(i) & "C4:R" & b(i) & "C" & (Range("hárok1!Q2") + 3)
'ActiveSheet.ChartObjects(i + 1).Chart.SeriesCollection(1).Values = cas1
ActiveSheet.ChartObjects(i + 1).Chart.SeriesCollection(2).Values = cas2
Next i

End Sub
Ahoj tak so sa pohral včera s funkciou "Find" a upravil tabuľku.
Usporiadal som to na hárku UDAJE tak ako to má byť chronologicky (postupne pribúdali zdroje dát)
Tým som samozrejme narušil makro ktoré zabezpečuje mazanie nepotrebných núl v dňoch ktoré ešte len nastanú.
Skúšam ho opraviť, ale neposlúcha.
Až budeš mať chvíľku poprosím:
i = 0 To 4 prečo?
udaje 5:10;6:12;140:141;31:36;53:57 sú zdrojové riadky grafov ktoré upravujeme?
Skúšam ich meniť ale nezaberá to ):
UDAJE!R je čo?
C4:R je čo ?
Q2 + 3 prečo ?
Chcel by som porozumieť tomu makierku.

Ďakujem veľmi pekne

No neviem asi sa mi to podarilo -metóda - pokus - omyl

Menil som v makre tie oblasti na ktoré sa to odkazovalo ale stále to nešlo.
Až som mu zadal že grafy sú na Hárku1 až potom to pochopilo čo sa od neho chce.
Neviem prečo zrazu nešlo ActiveSheet
ale hádam to takto pôjde

PS: Makierku stále nerozumiem, len som ho použil ):
Naposledy upravil sances : 03.11.11 at 05:47
0 0
marjankaj marjankaj

marjankaj je offline (nepripojený) marjankaj

I am a man
' =UDAJE!R5C4:R5C34

znamená oblasť riadok(Row) 5 stlpec(Column) 4 (D) až riadok 5 stlpec 34 (AH)
0 0
sances sances

sances je offline (nepripojený) sances

Ďakujem
0 0
sances sances

sances je offline (nepripojený) sances

Ahoj, na základe Tvojho popisu mi už konečne došlo ako je tam čo zapísané (myslím makierko ktoré vydrbáva s nulami) a bol som schopný ho prepísať a použiť na ďalšie čiarové grafy. Super! Ďakujem ešte raz.
Pekný deň všetkým poraďákom
0 0
sances sances

sances je offline (nepripojený) sances

No trošku som sa prechválil.
Robím tu ďaľší report, a zas neviem správne zapísať to makierko na vymazanie nulových hodnôt v grafoch
ktoré mi už dávno napísal Marjankaj.
V makre "Hľadaj", celkom na konci, sa to snažím upraviť, ale makierko mi stále zastane na poslednom riadku..
(Teraz zastane skôr - musel som odstrániť pomocné listy s hodnotami)
Ak mi s tým viete aj tak pomôcť budem nesmierne natešený .
Vopred ďakujem za Váš čas.
Pekné medzisviatkové obdobie všetkým
0 0
marjankaj marjankaj

marjankaj je offline (nepripojený) marjankaj

I am a man
Sheets("rou0_103").Select
Set oblast = Cells.Find("HSM TSP")
Range(oblast.Offset(3, 1), oblast.Offset(33, 1)).Copy
Sheets("Hárok2").Range("F9").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Chýba ti tam list "rou0_103"
0 0
Načítať ďalšie

Sleduj porady, ktoré by vás mohli zaujímať