Comprar a Coleção de 15.000 Macros, Funções e Fórmulas do Excel           Dicas  


Questão 32:

Com muita freqüência preciso calcular a média e o desvio padrão de séries. Após o último dado, costumo saltar duas linhas, escrever 2 labels :
"Media: ", e na linha de baixo "Desvio: ". Quanto aos valores numéricos da Média e do Desvio, escrevo-os na coluna B obedecendo evidentemente a direção dos Labels mencionados. Ocorre que minhas séries tem um numero variável de elementos, de modo que sem saber onde cairá o ultimo elemento da série, também não posso indicar onde ficarão os referidos Labels. Há como contornar o problema ?

Solução 32):

Seu problema gira em torno do último elemento da série. Então temos que defini-lo. Vamos supor que sua série esteja na coluna A, a partir de a4 e que não haja "brancos".

Sub ExibindoOSumário( )
Dim ultElemento As Long
ultElemento = Range("a4").End(xlDown).Row
'Inserindo os Labels:
Range("A" & ultElemento + 2).Value = "Media: "
Range("A" & ultElemento + 3).Value = "Desvio: "
'Colocando as Formulas:
Range("B" & ultElemento + 2).Formula = _
"=Average(A4:A" & ultElemento & ")"
Range("B" & ultElemento + 3).Formula = _
"=StDev(A4:A" & ultElemento & ")"
End Sub