| Descricao: |
 Saberexcel - o site de quem precisa aprender sobre Macros Microsoft Excel VBA
Essse macro do Aplicativo Microsoft Excel VBA, contendo a Função de Planilha (WorksheetFunction RoundDown e RoundUP), arredondar para cima e para baixo, arredonda determinado número decimal. "ESTA PLANILHA FAZ PARTE DAS 340 Planilhas WorksheetFunctions, Escola Saberexcel VBA - Treinamentos com Macros. Veja em nosso site a relação das Planilhas. Observem o poder das WorksheetFunctions no dia a dia trabalhando com Planilhas Automatizadas. Ler mais : Excel planilha wkf worksheetfunction funções de planilhas retornam valores vba
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -'
Sub wkf_arrendondar_numero_argumentos()
X = Application.WorksheetFunction.RoundDown([G9].Value, 1)
Y = Application.WorksheetFunction.RoundUp([G9].Value, 0)
Z = Application.WorksheetFunction.RoundUp([G9].Value, -1)
'vbCrLf - constante usada para combinação de retorno de carro–alimentação de linha (msgbox)
MsgBox "Arredonda valor..:[ " & Format([d], "##,###.##") & " ]" & _
vbCrLf & "Argumento 1.......: [ " & Format(X, "##,##.00") & " ]" & vbCrLf _
& "Argumento 0.......: [ " & Format(Y, "##,##.00") & " ]" & vbCrLf _
& "Argumento-1.......: [ " & Format(Z, "##,##.00") & " ]", vbInformation, _
"Saberexcel - o site das macros"
[E9].Value = "Valor"
[E10].Value = "Argumento 0"
[E11].Value = "Argumento 1"
[E12].Value = "Argumento -1"
[G10].Value = X
[G11].Value = Y
[G12].Value = Z
[G1].Select
End Sub
Sub Limpar_teste()
[a].ClearContents 'celulas renomeadas como 'a'
[d].Select 'celula renomeada como 'd'
End Sub
Pressione Alt + F11 para visualizar os macros
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -'
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -'
|