Jak vytvořit Stem & Leaf Plot v aplikaci Excel 2007

Stonkový a listový graf (také nazývaný stemplot) je typ diagramu, který se používá k zobrazení statistických dat. Je to způsob, jak zachovat jednotlivé datové body v diagramu, který často mizí s j

" Vypočítat počty. "Následující kód je pomalejší, než musí být," ale rychlejší kód by byl těžší číst a porozumět. Pracovní listy ("Data") Aktivovat rowPointer = 2 Do Do Cells (rowPointer, dataColumn) .Value = "" měření = Buňky (rowPointer, dataColumn) .Value Stem = Fix (měření /dělitel) Listy ("Stem") Cells (Stem + 2, 1) .Value = Listy ("Stem"). Buňky (Stem + 2, 1). Hodnota + 1 rowPointer = rowPointer + 1 Loop

'Vypočítat součinitel zmenšení. Pracovní listy ("Stem") Aktivovat maximumCount = 0 Pro rowPointer = 2 To topStem + 2 Pokud buňky (rowPointer, 1). Hodnota & gt; maximumCount Pak maximumCount = Buňky (rowPointer, 1) .Value End If next rowPointer

shrinkFactor = Fix (maximumCount /50) Pokud scvrknutíFactor & lt; 1 Pak shrinkFactor = 1 Buňky (1, 4) .Value = "Každá číslice představuje" + Str (shrinkFactor) + "případy."

'Vrátí se k datům a vyplní listy s ohledem na hodnoty Pracovní listy ("Data") Aktivace rowPointer = 2 Do do buňky ( rowPointer, dataColumn) .Value = "" měření = Buňky (rowPointer, dataColumn) .Value Stem = Fix (měření /dělitel) leaf = měření - Stem * divisor leaf = Fix (leaf * 10 /divisor)

Pracovní listy ("Stem") Cells (Stem + 2, 3) .Value = Pracovní listy ("Stem") Cells (Stem + 2, 3) .Value + Trim (Str (leaf)) rowPointer = rowPointer + shrinkFactor Loop

'Dostaňte se do pracovního listu Stem. Pracovní listy ("Stem") Aktivace End Sub

Stiskněte "F5" pro spuštění kódu. Váš graf Stem a Leaf se objeví v pracovním listu „Stem“.

Tipy

Pokud změníte data a potřebujete vygenerovat nový kmenový a listový graf, jednoduše znovu spusťte makro StemAndLeaf.

URL:https://cs.whycomputer.com/Software/100116907.html