Uma haste e enredo folha (também chamado de stemplot ) é um tipo de diagrama usado para mostrar dados estatísticos. É uma maneira de manter os pontos de dados individuais em um diagrama que muitas vezes desaparecem com outros métodos gráficos, como gráficos de pizza e histogramas. Por exemplo, se você traçar os números 10,11,12,13 e 14 em um gráfico de pizza , os números são colocados em uma categoria e você não pode ver os números individuais no gráfico. Com um caule e folhas, você começa a ver todos os números originais. Instruções
1
Renomear uma planilha do Excel em branco "Data" , clicando na aba inferior da planilha e digitar o novo nome.
2
Renomear outra planilha do Excel em branco no livro "Stem " clicando na guia inferior para essa planilha e digitando o novo nome.
3
Digite sua lista de números na coluna A da planilha "Dados" .
4
Pressione " Alt " e " F11 " ao mesmo tempo para abrir o editor do Visual Basic .
5
Duplo clique em " Esta pasta de trabalho " em objectos do Microsoft Excel no painel de navegação à esquerda para abrir uma janela de código em branco
6
cole o seguinte código VBA para a janela em branco : . Sub StemAndLeaf () DataColumn = 1
'Limpar tudo para fora dos worksheet.Worksheets -tronco ( "Stem " ) . Cells.Clear
' Olhe para o worksheet.Worksheets de dados ( "Dados") . Activate
' Encontrar o máximo value.rowPointer = 2Do Até Cells ( . RowPointer , 1) Value = " " RowPointer = RowPointer + 1LoopMaximum = Cells ( RowPointer - . 1 , DataColumn ) Valor
'Definir o divisor para retirar leaves.divisor = 1DO até /divisor máximo < ; = 10divisor = divisor * 10Loop
"Se o primeiro dígito do maior valor é inferior a 5, then'use um divisor menor. " Caso contrário, você pode acabar com quatro ou menos linhas na plot.If Fix ( /divisor máxima ) < 5 Então divisor = divisor * 10
' Calcular value.topStem = Fix topo da haste ( /divisor máxima)
' Configure os worksheet.Worksheets -tronco ( "Stem " ) . ActivateCells (1, 1). Value = " Contagem " Cells ( 1, 2) . Value = " Stem Cells " (1, 3 ) . value = " Folhas " Para RowPointer = 2 para topStem + 2Cells ( RowPointer , 2) Valor = RowPointer - 2Cells ( RowPointer , 3) Valor = . . "