En stilk og blade plot (også kaldet en stemplot ) er en form for diagram bruges til at vise statistiske data. Det er en måde at fastholde de enkelte datapunkter i et diagram , der ofte forsvinder med andre grafiske metoder såsom lagkagediagrammer og histogrammer . For eksempel, hvis du plotte tallene 10,11,12,13 og 14 i et cirkeldiagram er antallet placeres i en kategori, og du kan ikke se de enkelte numre på kortet. Med en stilk og blade , få dig til at se alle de oprindelige tal. Instruktioner
1
Omdøb en tom Excel-regneark " data" ved at klikke på det nederste faneblad til regnearket og indtaste det nye navn.
2
Omdøb anden tom Excel-regneark i projektmappe " Stem " ved at klikke på det nederste fanen for det pågældende regneark og skrive det nye navn.
3
Indtast din liste over numre i kolonne A i "Data" regneark.
< br > 4
Tryk på " Alt" og " F11 " på samme tid for at åbne Visual Basic Editor.
5.
Dobbeltklik på " Denne projektmappe " under Microsoft Excel Objects i venstre navigationsrude . at åbne en tom kodevinduet
6
Indsæt følgende VBA kode i tomt vindue : Sub StemAndLeaf () dataColumn = 1
' Clean alt ud af stilken worksheet.Worksheets ( " Stem "). Cells.Clear
' Kig på data worksheet.Worksheets ( "Data "). Aktiver
' Find de maksimale value.rowPointer = 2DO Indtil Cells ( . rowPointer , 1 ) Value = "" rowPointer = rowPointer + 1LoopMaximum = Cells ( rowPointer - . 1 dataColumn ) Value
' Sæt divisor til strip off leaves.divisor = 1Do Indtil Maximum /divisor < ; = 10divisor = divisor * 10Loop
»Hvis det første ciffer i den største værdi er mindre end 5, then'use en mindre divisor . Ellers kan du ende op med fire eller færre rækker i plot.If Fix ( Maximum /divisor ) <5 Så divisor = divisor * 10
'Beregn den øverste stilken s value.topStem = Fix ( Maximum /divisor )
' Opsæt Stem worksheet.Worksheets ( " Stem "). ActivateCells (1, 1). value = " count" Cells ( 1, 2) . value = " Stem " Cells (1, 3). value = " Leaves " For rowPointer = 2 til topStem + 2Cells ( rowPointer , 2) Værdi = rowPointer - 2Cells ( rowPointer , 3) Værdi = . . "