Aprender a usar a função " Roundup " do Excel a partir de sua base de linguagem de programação Visual Basic for Applications , ou Visual Basic for Applications, ajuda você a executar qualquer função do Excel do VBA. Esta habilidade é útil porque o Excel tem muitas funções que o VBA não tem, e que você pode precisar aplicar a partir de um programa Visual Basic for Applications . Observe que o recurso VBA que permite que você toque na função de " Roundup " não vai alertá-lo para uma sintaxe ou argumento incorreto , já que ao usar a interface planilha padrão. Finalidade
A função de Excel " Roundup " arredonda um número para cima, para o número de dígitos que você especificar. Por exemplo, executar " Roundup (2,2 , 0) " informa ao Excel que você quer arredondar o número 2.2 até o próximo inteiro . O "0" no segundo argumento diz Excel você não quer que os dígitos depois do ponto decimal , o que é equivalente a dizer que você quer uma resposta inteiro.
VBA Função Round
< br >
VBA não tem uma função de " Roundup " construído dentro a função mais próximo que tem é a função "Round " , que arredonda para cima ou para baixo , dependendo se o dígito terminando no número que você está arredondamento é maior ou menos do que 5 . Por exemplo, digitar "Round ( 2.2, 0 )" em VBA "imediata" janela resulta em 2 , em vez dos 3 que a função de Excel " Roundup " seria arredondar para cima.
"A Fórmula " Propriedade
Embora não VBA não tem uma função de " Roundup " da sua própria , ele pode usar a função " Roundup " do Excel. Para instruir o VBA para fazer isso, defina a propriedade " Fórmula " do " Range" objeto virtual para a função de " Roundup " . O exemplo a seguir mostra como fazer isso . Abra o ambiente de desenvolvimento VBA com a tecla " Alt " e " F11 " simultaneamente a partir do Excel. Clique com o mouse na "janela Imediato ' , em seguida, digite a seguinte declaração: " . . Range (" A1") Formula = " = Roundup (2,2 , 0) " "Return to Excel usando o " " keypress Alt- F11 que acabamos de descrever . Você vai ver o resultado "3" na célula A1 , indicando a sua declaração aplicada com sucesso a função " Roundup " do Excel.
interativo Exemplo
Você pode fazer um interativo . programa VBA que aceita de um usuário os argumentos para a função de " Roundup " , e exibe o resultado dessa função Depois de abrir o ambiente de desenvolvimento Visual Basic for Applications , cole o seguinte programa para a janela :
Public Sub roundUpANumber ()
Dim a1, a2 , s
a1 = CDbl ( InputBox ( "Digite o número que você gostaria de completar "))
a2 = CInt ( InputBox ( " Digite o número de casas decimais para o qual você gostaria de arredondar o número que você acabou de entrar . "))
s =" = Roundup ( "& A1 &", " & a2 &" ) "
Range (" A1") . Fórmula = s
Range (" A1") . Calcular
MsgBox ( Range (" A1") . Value)
End Sub
Execute o programa clicando em uma das suas declarações, em seguida, clicando comando "Executar" do menu " Run" . Quando o Excel solicita argumentos da função , digite-os e pressione " Enter". seu programa irá exibir o resultado da função " Roundup " para os argumentos inseridos.