Een stengel en blad plot ( ook wel een stemplot ) is een type diagram wordt gebruikt om statistische gegevens te tonen . Het is een manier van het behoud van de individuele gegevens punten in een diagram die verdwijnen vaak met andere grafische methoden, zoals cirkeldiagrammen en histogrammen . Bijvoorbeeld , als je de nummers 10,11,12,13 en 14 plotten in een cirkeldiagram , de nummers worden in een categorie geplaatst en je kunt niet zien de individuele nummers op de kaart. Met een steel en blad , krijg je alle originele nummers te zien . Instructies
1 naam van een leeg Excel- werkblad "Data " door te klikken op de tab onderaan het werkblad en typt u de nieuwe naam .
Rename 2 andere lege Excel-werkblad in de werkboek " Stem " door te klikken op de tab bodem voor dat werkblad en typt u de nieuwe naam .
3 Vul uw lijst met getallen in kolom A van de "Data" werkblad .
< br > Druk " Alt " 4 en " F11 " op hetzelfde moment om de Visual Basic Editor te openen .
5 Dubbelklik " Deze werkmap " onder Microsoft Excel objecten in het linker navigatie . om een leeg venster code opent
6 Plak volgende VBA- code in het lege venster : Sub StemAndLeaf ( ) DataColumn = 1
' Clean alles uit de Stem worksheet.Worksheets ( ' Stem ' ) . Cells.Clear
' Kijk naar de Data worksheet.Worksheets ( "Data " ) . Activeer
' Zoek de maximale value.rowPointer = 2Do Tot Cells ( . rowPointer , 1 ) Value = " " rowPointer = rowPointer + 1LoopMaximum = Cells ( rowPointer - . 1 , DataColumn ) Value
' Stel de deler te strippen af leaves.divisor = 1Do tot Maximum /deler < ; = 10divisor = deler * 10Loop
' Als het eerste cijfer van de grootste waarde minder is dan 5 , then'use een kleinere deler . ' anders je zou kunnen eindigen met vier of minder rijen in de plot.If Fix ( Maximum /deler ) < 5 dan deler = deler * 10
' value.topStem de top stuurpen Bereken = Fix ( Maximum /deler ) op Twitter ' Stel de Stem worksheet.Worksheets ( ' Stem ' ) . ActivateCells ( 1 , 1 ) . Value = " Count " Cells ( 1 , 2 ) . Value = " Stem " Cells ( 1 , 3 ) . Value = " Bladeren " Voor rowPointer = 2 om topStem + 2Cells ( rowPointer , 2 ) Value = rowPointer - 2Cells ( rowPointer , 3 ) Value = . . " | " Next rowPointer
' Bereken de graven . ' de volgende code is langzamer dan het nodig heeft te zijn , ' maar een snellere code moeilijker zou zijn . ActivaterowPointer = 2Do tot Cells ( rowPointer , DataColumn ) lezen en understand.Worksheets ( "Data " ) . Value = " " meten = Cells ( rowPointer , DataColumn ) . ValueStem = Fix ( meting /deler ) Werkbladen ( " Stem " ) . Cells ( Stem + 2 , 1 ) . Value = Worksheets ( " Stem " ) . Cells ( Stem + 2 , 1 ) . Value + 1rowPointer = rowPointer + 1Loop
' Bereken de shrink factor.Worksheets ( " Stem " ) . ActivatemaximumCount = 0For rowPointer = 2 To topStem + 2Als Cells ( rowPointer , 1 ) . Value > maximumCount ThenmaximumCount = Cells ( rowPointer , 1 ) . ValueEnd IfNext rowPointer shrinkFactor
= Fix ( maximumCount /50 ) Als shrinkFactor < 1 dan shrinkFactor = 1Cells ( 1 , 4 ) . Value = " Elk cijfer vertegenwoordigt" + Str ( shrinkFactor ) + " gevallen . "
' Terug naar de gegevens , en vul de bladeren in het licht van de waarden in de data.Worksheets ( " Data " ) . ActivaterowPointer = 2Do tot Cells ( rowPointer , DataColumn ) . Value = " , " meten = Cells ( rowPointer , DataColumn ) ValueStem = Fix ( meting /deler ) leaf = meting - Stem * divisorleaf = Fix ( blad * 10 /deler ) Werkbladen
. ( ' Stem ' ) . cellen ( Stem + 2 , 3 ) . Value = Worksheets ( " Stem " ) . Cells ( Stem + 2 , 3 ) . Value + Trim ( Str ( blad ) ) rowPointer = rowPointer + shrinkFactorLoop
' Get de Stem worksheet.Worksheets ( " Stem " ) . ActivateEnd Sub
Druk op "F5 " 7 op de code uit te voeren . Uw Stem en Leaf perceel zal verschijnen in de " Stem " werkblad .
|
