Como fazer um Stem & Folha Lote em Excel 2007

Renomear uma planilha do Excel em branco “Data”, clicando na guia inferior para a planilha e digitando o novo nome.

Renomeie outra folha de cálculo do Excel em branco no livro “Stem” clicando na guia inferior para essa planilha e digitando o novo nome.

Digite sua lista de números na coluna A da planilha “Dados”.

Pressione “Alt” e “F11”, ao mesmo tempo para abrir o Editor do Visual Basic.

Duplo clique em “Esta pasta de trabalho” sob Microsoft Excel objetos no painel de navegação à esquerda para abrir uma janela de código em branco.

Cole o seguinte código VBA na janela em branco:
Sub StemAndLeaf ()
DataColumn = 1

`Limpe tudo para fora da planilha Stem.
Worksheets ( "Stem"). Cells.Clear

`Olhe para a planilha de dados.
Worksheets ( "Dados"). Activate

`Encontre o valor máximo.
RowPointer = 2
Fazer até que as células (RowPointer, 1) .Value = ""
RowPointer = RowPointer + 1

Vídeo: Part 3 - Persuasion Audiobook by Jane Austen (Chs 19-24)

`Definir o divisor para retirar folhas.
divisor = 1
Do Until Máxima / divisor <= 10
divisor = divisor * 10

Vídeo: The CIA, Drug Trafficking and American Politics: The Political Economy of War

`Se o primeiro dígito do maior valor for inferior a 5, em seguida,
`Usar um divisor menor.
`Caso contrário, você pode acabar com quatro ou menos linhas na trama.
Se Fix (Máxima / divisor) < 5 Then divisor = divisor * 10

`Calcular o valor do topo do caule.
topStem = Fix (Máxima / divisor)

`Configurar a planilha Stem.
Worksheets ( "Stem"). Activate
As células (1, 1) .Value = "Contagem"
As células (1, 2) .Value = "Stem"
As células (1, 3) .value = "folhas"
Para RowPointer = 2 Para topStem + 2
As células (RowPointer, 2) .Value = RowPointer - 2
As células (RowPointer, 3) .Value = "|"
próxima RowPointer

`Calcular as contagens.
`O código a seguir é mais lento do que ele precisa ser,
`, Mas um código mais rápido seria mais difícil de ler e compreender.
Worksheets ( "Dados"). Activate
RowPointer = 2
Fazer até que as células (RowPointer, DataColumn) .Value = ""
medição = Cells (RowPointer, DataColumn) .Value
Caule = Fix (medição / divisor)
Folhas de trabalho ( "Stem"). As células (Stem + 2, 1) .Value = Folhas de trabalho ( "Stem"). As células (Stem + 2, 1) .Value + 1
RowPointer = RowPointer + 1
laço

`Calcular o fator de contração.
Worksheets ( "Stem"). Activate
maximumCount = 0
Para RowPointer = 2 Para topStem + 2
Se Cells (RowPointer, 1) .Value> maximumCount Então

maximumCount = Cells (RowPointer, 1) .Value

Fim se
próxima RowPointer

shrinkFactor = Fix (maximumCount / 50)
Se shrinkFactor < 1 Then shrinkFactor = 1
As células (1, 4) .Value = "Cada dígito representa" + Str (shrinkFactor) + "casos".

`Voltar para os dados e preencher as folhas à luz dos valores nos dados.
Worksheets ( "Dados"). Activate
RowPointer = 2
Fazer até que as células (RowPointer, DataColumn) .Value = ""
medição = Cells (RowPointer, DataColumn) .Value
Caule = Fix (medição / divisor)
= folha de medição - Haste divisor

Vídeo: Part 5 - Pride and Prejudice Audiobook by Jane Austen (Chs 51-61)

Folhas de trabalho ( "Stem"). As células (Stem + 2, 3) .Value = Folhas de trabalho ( "Stem"). As células (Stem + 2, 3) .Value + guarnição (Str (folha))

Vídeo: Part 1 - Persuasion Audiobook by Jane Austen (Chs 01-10)

`Obter a planilha Stem.
Worksheets ( "Stem"). Activate
End Sub

Pressione “F5” para executar o código. Seu Stem e enredo Folha aparecerá na planilha “Stem”.