Excel 2007 - anketa do grafů

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

Fucza
Level 3.5
Level 3.5
Příspěvky: 868
Registrován: červenec 08
Pohlaví: Muž
Stav:
Offline

Excel 2007 - anketa do grafů

Příspěvekod Fucza » 28 lis 2010 15:40

Zdravím. Potřeboval bych udělat cca 30 podobných grafů - vždy je otázka a odpovědi - ano, spíše ano, nevím, spíše ne a ne. Klasická anketa. Jakým způsobem byste to dělali vy? Čísla stejně musím zkopírovat z wordu, tak bych nechtěl hned zmastit tabulky, ze kterých se ty grafy budou dělat. Pro každou otázku zvlášť, to umím, ale přijde mi to na strašně dlouho a do zblbnutí, navíc chci mít všechny grafy stejně zformátované.
Za radu díky.

Reklama
navstevnik
Level 4
Level 4
Příspěvky: 1142
Registrován: srpen 08
Pohlaví: Nespecifikováno
Stav:
Offline

Re: Excel 2007 - anketa do grafů

Příspěvekod navstevnik » 28 lis 2010 16:19

Pro prvni sadu dat vytvor graf (nejspis vysecovy), zformatuj.
Pak graf vyber (klik levym na graf), Ctrl+c a na pozadovanem miste Ctrl+v, klik na vykopirovany graf pravym a vybrat Vybrat data.... Zde pak uprav polozky rady, nazev a popisky osy x vyberem oblasti pro novou sadu.
PS.: Kopie grafu muzes nasazet v potrebnem poctu na pozadovana mista najednou a pak pouze postupne upravit oblasti dat.
Doplneno:
Take muzes pouzit pouze jeden graf, ve kterem se zobrazi vybrana sada dat viz priloha.
Přílohy
GrafVysecivtDynamicky.xlsx
(14.82 KiB) Staženo 173 x

Fucza
Level 3.5
Level 3.5
Příspěvky: 868
Registrován: červenec 08
Pohlaví: Muž
Stav:
Offline

Re: Excel 2007 - anketa do grafů

Příspěvekod Fucza » 01 pro 2010 23:33

Moc díky. Strašně mi to ulehčilo práci, vaše perfektní znalosti excelu závidím.
Ta druhá možnost vypadá docela zajímavě, budu ji muset prozkoumat. Zvládl jsem to s prvním návodem.
Nikde jsem nenašel možnost zvětšit ty barevné čtverce v legendě, ty se mi zdají strašně malé a prd poznám, co je tam za barvu.
Ale ještě toho chci využít a zeptat se, jestli je možnost nějaké hromadné editace grafů na stránce¨(blbý příklad, rozhodnu se změnit barvy). Je nějaká možnost? V případě toho prvního kopírování a změny datové oblasti.
Naivně jsem si taky nejdříve myslel, že graf zkopíruju do wordu a budu je tam takto sázet jeden za druhým a v excelu vždycky jen změním data a tím se mi změní graf a budu pracovat pořád s jedním. Samo, že mi nedošlo, že se to bude měnit i ve Wordu a budu mít všechny grafy stejné. Kdy dojde k přerušení mezi Excelem a Wordem v tom "sdílení" stejných dat? Toto mě třeba dost překvapilo.
Děkuju.

navstevnik
Level 4
Level 4
Příspěvky: 1142
Registrován: srpen 08
Pohlaví: Nespecifikováno
Stav:
Offline

Re: Excel 2007 - anketa do grafů

Příspěvekod navstevnik » 02 pro 2010 07:57

Moznosti nastaveni grafu jsou dany v Nastroje grafu (klik na graf a pak na zobrazenou nabidku Nastroje grafu).
Pri vkladani grafu do Wordu ve Wordu vybrat Domu>Schranka>rozbalit nabidku Vybrat>vybrat Vlozit a zvolit Graf....>OK, cimz dojde k rozpojeni vazby grafu mezi Excelem a Wordem.

navstevnik
Level 4
Level 4
Příspěvky: 1142
Registrován: srpen 08
Pohlaví: Nespecifikováno
Stav:
Offline

Re: Excel 2007 - anketa do grafů

Příspěvekod navstevnik » 03 pro 2010 13:51

Pridano pro preneseni na Top.
----------------------
Pro zmenu barev vyseci aktivniho (klik na Oblast grafu) vysecoveho grafu lze pouzit proceduru (vice viz: http://pubs.logicalexpressions.com/Pub0 ... asp?ID=390 ), v editoru VBA Alt+F11 vloz do standardniho modulu (pro 7 vyseci: AAAA, BBBB, ..., GGGG), Excel 2000-2007:

Kód: Vybrat vše

Option Explicit

Sub ColorWedges()
  Dim iPoint As Long, nPoint As Long
  With ActiveChart.SeriesCollection(1)
    For iPoint = 1 To .Points.Count
      Select Case WorksheetFunction.Index(.XValues, iPoint)
        Case "AAAA"
          .Points(iPoint).Interior.ColorIndex = 6  ' Yellow
        Case "BBBB"
          .Points(iPoint).Interior.ColorIndex = 5  ' Blue
        Case "CCCC"
          .Points(iPoint).Interior.ColorIndex = 3  ' Red
        Case "DDDD"
          .Points(iPoint).Interior.ColorIndex = 13  ' Purple
        Case "EEEE"
          .Points(iPoint).Interior.ColorIndex = 46  ' Orange
        Case "FFFF"
          .Points(iPoint).Interior.ColorIndex = 4  ' Green
        Case "GGGG"
          .Points(iPoint).Interior.ColorIndex = 8  ' Cyan
      End Select
    Next
  End With
End Sub


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • EXCEL -jak otevřít 2 excel sobory abych je viděla současne a samostatně
    od Ketty02 » 30 srp 2024 21:19 » v Vše ostatní (sw)
    2
    4784
    od Riviera kid Zobrazit poslední příspěvek
    02 zář 2024 16:21
  • Přechod z Excel 21 na Excel 24
    od Snekment » 29 led 2025 13:46 » v Kancelářské balíky
    2
    12194
    od Snekment Zobrazit poslední příspěvek
    29 led 2025 15:05
  • Pohoda a excel Příloha(y)
    od brownwld » 06 kvě 2025 17:28 » v Kancelářské balíky
    1
    4629
    od atari Zobrazit poslední příspěvek
    07 kvě 2025 09:41
  • Excel - výpočet nočních hodin Příloha(y)
    od Uziv00 » 17 říj 2024 11:22 » v Kancelářské balíky
    3
    3318
    od lubo. Zobrazit poslední příspěvek
    24 říj 2024 00:00
  • Tisk sloupců vedle sebe na A4 - Excel
    od atari » 24 dub 2025 10:51 » v Kancelářské balíky
    5
    3909
    od atari Zobrazit poslední příspěvek
    26 dub 2025 09:11

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 5 hostů