Saberexcel - o site das macros

Essa macro do Aplicativo Microsoft Excel VBA, retorna a função DesvPadP de uma determinada amostragem, neste caso usamos os valores contidos no intervalo de células (D1:D6). Minha intenção neste exemplo é ensinar aos que não sabem como retornar uma função através do Visual Basic Application, inserindo uma fórmula e retornando o valor diretamenta para a célula desejada da referida função.
Observem que usei uma linha de código, também com intenção didática, que verifica os valores contidos na coluna D, e retorna o valor da Função diretamente para um célula desejada, neste caso usei como exemplo a célula (A1). vamos destacar essa linha de código.

' Cells(1, 1).Formula = Application.WorksheetFunction.StDevP(Range("D1", [D1].End(xlDown)))


Quero que saiba que é extremamente importante para o aprendizado Aplicativo Microsoft Excel VBA, o aluno(desenvolvedor) aprender a localizar dados em determinados intervalos de células desejados em determinada Folha de Panilha e retornar um valor desejado.
Pretendo num futuro bem próximo fazer um tutorial com esse conhecimento, para ajudá-los a esclarecer sobre esse assunto que muito vasto e importantissimo no aprendizado.
(*) ESSE EXEMPLO DE PLANILHA FAZ PARTE DAS 340 PLANILHAS QUE RETORNAM TODAS AS FUNÇÕES DO EXCEL VIA MS EXCEL VBA

Sub cxa_dialogo_worksheetFunction_DesvPadP()
On Error Resume Next
Dim vRange As Range
Set vRange = Worksheets("Plan1").Range("d1:d6")

FuncaoDesvPadP = Application.WorksheetFunction.StDevP(vRange)
MsgBox FuncaoDesvPadP 'retorna 67840,42

'Cells(1, 3).Formula = Application.Max(Range(Cells(1, 1), Cells(1, 2)))

'observe que aqui estamos retornando o valor diretamente para célula(A1)
Cells(1, 1).Formula = Application.WorksheetFunction.StDevP(Range("D1", [D1].End(xlDown)))

Worksheets("Plan1").Range("B5").Formula = "=StDevP(D1:D6)"

[B5].Select

Application.Dialogs(xlDialogFunctionWizard).Show
On Error GoTo 0
[D1].Select
End Sub

Sub limpar_teste()
[C4].ClearContents
[D1].Select
End Sub


Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel




Baixe o exemplo de planilha contendo as macros acima
vba worksheetfunction desvpadp calcula desvio padrao base populacional (23.79 kB)


Publicidade:
Lojas SubMarino - compre com qualidade, segurança e ótimos preços