< návrat zpět

MS Excel


Téma: kontingencny graf? rss

Zaslal/a 6.1.2012 20:47

ahojte

mam nejake data (priloha) a potreboval by som ich nejak rozumne zobrazit (asi najlepsi by bol asi aces ale ten som este ani neskusal) kontingecne tabulky mi nejdu, viete mi niekto pomoct? neviem dynamicky graf alebo kontingencny graf?

vopred dik

Příloha: zip6885_graf.zip (9kB, staženo 19x)
stop Uzamčeno - nelze přidávat nové příspěvky.

#006895
avatar
Podivejte se na přílohu. Naprosto to není těžké. Zpočátku vytvořite graf založený na celou tabulku. Poté musíte použít příkaz Filter (pro filtrovaní na řádek) a Group/VYTVOŘIT.SKUPINU.OBJEKTŮ (pro filtrovaní na sloupce). Filtr použijte pro sloupce A. A potom zvolte bunky PLANOVANE i ORGANIZACE, pak Data-Group and Outline-Group-Columns (DATA-VYTVOŘIT.SKUPINU.OBJEKTŮ I OSNOVA-VYTVOŘIT.SKUPINU.OBJEKTŮ-SLOUPCE) i tlačte minus nahoře.
Příloha: rar6895_graf.rar (10kB, staženo 19x)
citovat
#006904
avatar
super a az po "filtrovani na radek" to aj dokazem, kde najdem to "Group/VYTVOŘIT.SKUPINU.OBJEKTŮ" a dalsie prikazy? ( a to som si myslel aky dobry som v excely ked viem makra 5 )citovat
#006906
avatar
Můžete zaregistrovat na jednu sekundu na tomto webu http://www.ozgrid.com/forum/showthread.php?t=58206&highlight=Dynamic+Chart a stáhněte
DynaChart.xls‎.

Uplatnit Group Outline Columns je možna po -
Sub Macro2()
Dim Sel As Range, cell As Range, n As Byte
Application.ScreenUpdating = False
Set Sel = Selection
If Sel.Rows.Count = 1 Then
For Each cell In Sel
If cell Like ("[1-8]") Then n = cell Else n = 1
cell.EntireColumn.OutlineLevel = n
Next
ElseIf Sel.Columns.Count = 1 Then
For Each cell In Sel
If cell Like ("[1-8]") Then n = cell Else n = 1
cell.EntireRow.OutlineLevel = n
Next
Else
MsgBox "?"
End If
Application.ScreenUpdating = True
End Sub

'Definovat dynamický rozsah proměnných
Dim oUpBound As Range
Dim oLowBound As Range
Dim oFillRange As Range
Dim oChart As ChartObject

Sheets("DataSource").Select
Set oUpBound = Range("C11")
oUpBound.Select
Selection.Offset.End(xlToRight).Select
Selection.Offset.End(xlDown).Select
Set oLowBound = Selection
Set oFillRange = Range(oUpBound, oLowBound)

'Nastavení grafu SourceData
With oChart
.Chart.SetSourceData Source:=Sheets("DataSource").Range(oFillRange), PlotBy:=xlColumns
End With

Žádost kritériem pro filtr
Set wSheetStart = ActiveSheet
Set rFilterHeads = Range("L1", Range("IV1").End(xlToLeft))

With wSheetStart
.AutoFilterMode = False
rFilterHeads.AutoFilter
strCriteria = InputBox("Zadejte kritéria")
If strCriteria = vbNullString Then Exit Sub
rFilterHeads.AutoFilter Field:=3, Criteria1:=strCriteria

End With

nebo

Sub AutoFilter_Begins_With()

Range("A1").AutoFilter Field:=1, Criteria1:="Zadejte kritéria zde*"

End Sub

Kdýž chcete, výsledný kod zkombinujete samicitovat
#006909
avatar
potrebujem len vysvetlit kde su prikazy :Group/VYTVOŘIT.SKUPINU.OBJEKTŮ, a Data-Group and Outline-Group-Columns (DATA-VYTVOŘIT.SKUPINU.OBJEKTŮ I OSNOVA-VYTVOŘIT.SKUPINU.OBJEKTŮ-SLOUPCE) - kde ich v excely najdem, nie uz pouzite v makre

dikcitovat
#006915
avatar
Excel 2003: Data - Skupina a přehled -Seskupit
Excel 2010: Data - Osnova - Seskupitcitovat
#006924
avatar
OK dik to som potrebovalcitovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

Vodorovný teploměr v buňce

GeorgeK • 1.12. 12:26

Vodorovný teploměr v buňce

elninoslov • 1.12. 10:21

Vodorovný teploměr v buňce

Stalker • 1.12. 10:01

Vodorovný teploměr v buňce

GeorgeK • 1.12. 9:15

Spustit makro v určitý čas

Baja • 28.11. 20:11

Spustit makro v určitý čas

elninoslov • 28.11. 17:09

Spustit makro v určitý čas

Baja • 28.11. 12:51