Come fare un Stem & Foglia Trama in Excel 2007

Un fusto e foglia trama ( chiamato anche un stemplot ) è un tipo di schema utilizzato per visualizzare i dati statistici. E 'un modo di trattenere i singoli punti dati in un diagramma che spesso scompaiono con altri metodi grafici, ad esempio i grafici a torta e istogrammi . Per esempio, se si traccia i numeri 10,11,12,13 e 14 in un grafico a torta , i numeri vengono inseriti in una categoria e non è possibile vedere i singoli numeri sul grafico . Con un fusto e foglie , si arriva a vedere tutti i numeri originali. Istruzioni
1

rinominare un foglio di lavoro Excel vuoto "Dati ", facendo clic sulla scheda in basso per il foglio di lavoro e digitare il nuovo nome .
2

Rinomina un altro foglio di lavoro vuoto nel cartella di lavoro " Stem ", facendo clic sulla scheda in basso per quel foglio di lavoro e digitare il nuovo nome .
3

Inserisci il tuo elenco dei numeri nella colonna A del foglio di lavoro "Dati" .

4

Premi " Alt " e " F11 " , allo stesso tempo per aprire l'editor di Visual Basic .
5

doppio clic " Questa cartella di lavoro " in Microsoft Excel oggetti nel riquadro di spostamento a sinistra . per aprire una finestra di codice vuoto
6

Incollare il seguente codice VBA nella finestra vuota : StemAndLeaf Sub ( ) DataColumn = 1

'Clean tutto fuori delle worksheet.Worksheets staminali ( " Stem" ) . Cells.Clear

' Guardate la worksheet.Worksheets dati ( "Dati") . Attivare

' trovare il massimo value.rowPointer = 2Do Fino Cells ( . RowPointer , 1) Valore = " " RowPointer = RowPointer + 1LoopMaximum = Cells ( RowPointer - . Valore

1 , DataColumn ) 'Imposta il divisore per togliere leaves.divisor = 1Do Fino massima /divisore < ; = 10divisor = divisore * 10Loop

' Se la prima cifra del valore più grande è inferiore a 5 , then'use un divisore più piccolo . ' altrimenti si potrebbe finire con quattro o meno righe nella plot.If fissare ( max /divisore) <5 Poi divisore = divisore * 10

'Calcola value.topStem del fusto superiore = Fix ( massima /divisore ) per

' Configurare le worksheet.Worksheets staminali ( " Stem " ) . ActivateCells ( 1 , 1) . Valore = Cells " Count " (1 , 2) . Valore = " cellule staminali " (1 , 3) . value = " Foglie " Per RowPointer = 2 per topStem + 2Cells ( RowPointer , 2) Valore = RowPointer - 2Cells ( RowPointer , 3) Valore = . . "