Hvordan lage en stilk & Leaf Plot i Excel 2007
En stilk og bladflekk (også kalt en stemplot) er en type diagram som brukes for å vise statistiske data. Det er en måte å beholde de individuelle datapunkter i et diagram som ofte forsvinner med andre grafiske metoder som kakediagrammer og histogrammer. For eksempel, hvis du plotter tallene 10,11,12,13, og 14 i et sektordiagram, tallene er plassert i en kategori, og du kan ikke se de enkelte tallene i diagrammet. Med en stilk og blad, får du se alle de opprinnelige tallene.
Bruksanvisning
1 Endre navn på en blank Excel regneark "Data" ved å klikke på fanen nederst for regnearket og skrive det nye navnet.
2 Gi nytt navn til en annen tomt Excel-regneark i arbeidsboken "Stem" ved å klikke på fanen nederst for at regnearket og skrive det nye navnet.
3 Skriv inn din liste med tall i kolonne A i "Data" regneark.
4 Trykk "Alt" og "F11" samtidig for å åpne Visual Basic Editor.
5 Dobbeltklikk på "Dette arbeidsbok" under Microsoft Excel objekter i den venstre navigasjonsruten for å åpne en tom kode vindu.
6 Lim inn følgende VBA-kode i det tomme vinduet:
Sub StemAndLeaf ()
dataColumn = 1
"Clean alt ut av Stem arket.
Regneark ( "stamme"). Cells.Clear
«Se på dataarket.
Regneark ( "Data"). Aktiver
'Finn maksimumsverdien.
rowPointer = 2
Gjør Inntil Cells (rowPointer, 1) .Value = ""
rowPointer = rowPointer + 1
Loop
Maksimale = Cells (rowPointer - 1, dataColumn) .Value
'Sett divisor å kle av bladene.
divisor = 1
Gjør Inntil Maksimal / divisor <= 10
divisor = divisor * 10
Loop
«Hvis det første sifferet av den største verdien er mindre enn 5, så
'Bruke en mindre divisor.
"Ellers kan du ende opp med fire eller færre rader i plottet.
Hvis Fix (Maximum / divisor) <5 Da divisor = divisor * 10
"Regn toppen stammen verdi.
topStem = Fix (Maximum / divisor)
'Sett opp Stem arket.
Regneark ( "stamme"). Aktiver
Cells (1, 1) .Value = "Greven»
Cells (1, 2) .Value = "Stem"
Celler (1, 3) .Value = "Leaves"
For rowPointer = 2 Slik topStem + 2
Celler (rowPointer, 2) .Value = rowPointer - 2
Celler (rowPointer, 3) .Value = "|"
Neste rowPointer
'Beregn teller.
'Følgende kode er tregere enn den trenger å være,
"Men en raskere kode ville være vanskeligere å lese og forstå.
Regneark ( "Data"). Aktiver
rowPointer = 2
Gjør Inntil Cells (rowPointer, dataColumn) .Value = ""
måle = Cells (rowPointer, dataColumn) .Value
Stem = Fix (måling / divisor)
Regneark ( "stamme"). Cells (Stem + 2, 1) .Value = Regneark ( "Stem"). Cells (Stem + 2, 1) .Value + 1
rowPointer = rowPointer + 1
Loop
"Regn krympefaktor.
Regneark ( "stamme"). Aktiver
maximumCount = 0
For rowPointer = 2 Slik topStem + 2
Hvis Cells (rowPointer, 1) .Value> maximumCount Deretter
maximumCount = Cells(rowPointer, 1).Value
Slutt om
Neste rowPointer
shrinkFactor = Fix (maximumCount / 50)
Hvis shrinkFactor <1 Så shrinkFactor = 1
Cells (1, 4) .Value = "Hvert siffer representerer" + Str (shrinkFactor) + "saker."
«Gå tilbake til dataene, og fylle bladene i lys av verdiene i dataene.
Regneark ( "Data"). Aktiver
rowPointer = 2
Gjør Inntil Cells (rowPointer, dataColumn) .Value = ""
måle = Cells (rowPointer, dataColumn) .Value
Stem = Fix (måling / divisor)
leaf = måling - Stem
divisor
leaf = Fix (blad 10 / divisor)
Regneark ( "stamme"). Cells (Stem + 2, 3) .Value = Regneark ( "Stem"). Cells (Stem + 2, 3) .Value + Trim (Str (blad))
rowPointer = rowPointer + shrinkFactor
Loop
«Kom til stammen arket.
Regneark ( "stamme"). Aktiver
End Sub
7 Trykk "F5" for å kjøre koden. Din Stem og Leaf tomten vil vises i "Stem" regneark.
Hint
- Hvis du endrer data og trenger å generere en ny stilk og blad plot, bare å kjøre den StemAndLeaf makroen på nytt.