| Descricao: |
 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
Publicidade:
Lojas SubMarino - compre com qualidade, segurança e ótimos preços |