Ein Stiel und Blatt-Diagramm (auch als stemplot ) ist eine Art von Diagramm verwendet, um statistische Daten zu zeigen. Es ist ein Weg für die Beibehaltung der einzelnen Datenpunkte in einem Diagramm , die oft verschwinden mit anderen grafischen Methoden wie Kreisdiagramme und Histogramme . Zum Beispiel, wenn Sie die Zahlen 10,11,12,13 und 14 grafisch in einem Kreisdiagramm werden die Zahlen in eine Kategorie eingeordnet , und Sie können nicht sehen, die einzelnen Nummern auf der Karte. Mit einem Stamm und Blatt , erhalten Sie alle Original-Nummern zu sehen. Anleitung
1
Benennen Sie ein leeres Arbeitsblatt "Daten" , indem Sie die untere Registerkarte für das Arbeitsblatt und den neuen Namen eingeben .
2
Umbenennen anderen leeren Excel-Arbeitsblatt in der Arbeitsmappe " Stem " , indem Sie auf die untere Registerkarte für das Arbeitsblatt und den neuen Namen eingeben .
3
Geben Sie Ihre Liste von Zahlen in Spalte A der "Data" Arbeitsblatt.
4
Presse "Alt " und " F11 " in der gleichen Zeit, um den Visual Basic-Editor zu öffnen.
5
Doppelklick auf " Diese Arbeitsmappe " unter Microsoft Excel Objekte im linken Navigationsbereich . , um eine leere Codefenster zu öffnen
6
Fügen Sie den folgenden VBA -Code in das leere Fenster : Sub StemAndLeaf () = 1 dataColumn
'Clean alles aus dem Stamm worksheet.Worksheets ( " Stem " ) . Cells.Clear
' Blick auf die Daten worksheet.Worksheets ( "Data" ) . aktivieren
der maximal zulässige value.rowPointer = 2Do Bis Cells finden ( . rowPointer , 1 ) Value = " " = rowPointer rowPointer + 1LoopMaximum = Cells ( rowPointer - . 1 , dataColumn ) Wert
' Stellen Sie den Divisor abzustreifen leaves.divisor = 1Do bis Maximum /Divisor < ; = 10divisor = Divisor * 10Loop
"Wenn die erste Ziffer der größte Wert ist weniger als 5, then'use einen kleineren Divisor . " Sonst könnte man am Ende mit vier oder weniger Zeilen in der plot.If Fix ( Maximum /Teiler ) < 5 Then Divisor = Divisor * 10
'Berechnen der oberen Vorbaus value.topStem = Fix ( Maximum /Teiler )
' Einrichten des Stem worksheet.Worksheets ( " Stem " ) . ActivateCells (1 , 1). Value = "Count" Cells (1, 2). Value = " Stem " Cells (1 , 3). Value = " Leaves" Für rowPointer = 2 Um topStem + 2Cells ( rowPointer , 2) Wert = rowPointer - 2Cells ( rowPointer , 3) Wert = . . "