Aprender a usar a função "Roundup" do Excel a partir de sua linguagem de programação integrada VBA, ou Visual Basic for Applications, ajuda você a executar qualquer função do Excel a partir do VBA. Essa habilidade é útil porque o Excel tem muitas funções que o VBA não possui e que você pode precisar aplicar a partir de um programa VBA. Observe que o recurso VBA que permite que você toque na função "Roundup" não o alertará sobre uma sintaxe ou argumento incorreto, como faria ao usar a interface de planilha padrão.
Objetivo
A função "Roundup" do Excel arredonda um número para cima até o número de dígitos que você especificar. Por exemplo, executar "Roundup (2,2, 0)" informa ao Excel que você deseja arredondar o número 2,2 para o próximo inteiro. O "0" no segundo argumento informa ao Excel que você não deseja nenhum dígito após o ponto decimal, o que equivale a dizer que deseja uma resposta inteira.
Função de rodada VBA
O VBA não possui uma função "Roundup" embutida. A função mais próxima que ele possui é a função "Round", que arredonda para cima ou para baixo dependendo se o dígito final do número que você está arredondando é maior ou menor que 5. Por exemplo, digitar "Arredondar (2.2, 0)" na janela "Imediata" do VBA resulta em 2, em vez de 3 que a função "Arredondar" do Excel arredondaria para cima.
Propriedade "Fórmula"
Embora o VBA não tenha uma função "Roundup" própria, ele pode usar a função "Roundup" do Excel. Para instruir o VBA a fazer isso, defina a propriedade "Formula" do objeto virtual "Range" para a função "Roundup". O exemplo a seguir mostra como fazer isso. Abra o ambiente de desenvolvimento VBA pressionando "Alt" e "F11" simultaneamente no Excel. Clique com o mouse na janela "Imediata" e digite a seguinte instrução:"Intervalo ("A1").Formula ="=Arredondamento (2.2, 0)"." Retorne ao Excel usando o pressionamento de tecla "Alt-F11" que acabou de ser descrito Você verá o resultado "3" na célula A1, indicando que sua instrução aplicou com sucesso a função "Roundup" do Excel.
Exemplo interativo
Você pode criar um programa VBA interativo que aceite de um usuário os argumentos para a função "Roundup" e exiba o resultado dessa função. Após abrir o ambiente de desenvolvimento VBA, cole o seguinte programa na janela:
Public Sub roundUpANumber() Dim a1, a2, s a1 =CDbl(InputBox("Digite o número que deseja arredondar")) a2 =CInt(InputBox("Digite o número de decimais para o qual deseja arredondar o número que você acabou de inserir.")) s ="=Roundup(" &a1 &"," &a2 &")" Range("A1").Formula =s Range("A1").Calculate MsgBox (Range( "A1"). Valor) End Sub
Execute o programa clicando em uma de suas instruções e, em seguida, clicando no comando "Executar" do menu "Executar". Quando o Excel solicita os argumentos da função, digite-os e pressione “Enter”. Seu programa exibirá o resultado da função "Roundup" para os argumentos que você inseriu.
