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 = . . "
