Como arredondar um intervalo de números para o número par mais próximo no Excel?
O que é arredondar para par no Excel? Arredondar para par, também conhecido como arredondamento do banqueiro, funciona tal como o arredondamento convencional — exceto quando o número a arredondar termina em 5. Nesse caso, se o dígito imediatamente antes do 5 for ímpar, arredonda-se para cima; se for par, arredonda-se para baixo.
Por exemplo, 23,345 arredondado para par na casa dos centésimos seria 23,34 e 12,335 arredondado para par na casa dos centésimos seria 12,34.
Neste artigo, explico como aplicar o arredondamento do banqueiro no Excel.
Arredondar números para par com uma Função Definida pelo Utilizador
Arredondar números para par com código VBA
Arredondar números para par com Kutools para Excel
Arredondar números para par com uma Função Definida pelo Utilizador
Pode utilizar a função definida seguinte para arredondar números para par no Excel. Siga estes passos:
1. Selecione os números que pretende arredondar para o número par mais próximo.
2. Em seguida, prima e mantenha premidas as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic para Aplicações.
3. Clique em Inserir > Módulo e cole a macro seguinte na janela do Módulo.
Function BankersRound(num, precision)
BankersRound = Round(num, precision)
End Function
4. Guarde o código e introduza a fórmula =bankersround(A1;2) na célula em branco adjacente. Veja a imagem:
5. Em seguida, prima a tecla Enter. Selecione a célula B1 e arraste a alça de preenchimento até ao intervalo onde pretende aplicar esta fórmula. Veja a imagem:
Arredondar números para par com código VBA
Se preferir não utilizar a função definida, o seguinte código VBA também o pode ajudar. Siga estes passos:
1. Selecione o intervalo que pretende arredondar para um número par.
2. Em seguida, prima e mantenha premidas as teclas ALT + F11, o que abrirá a janela do Microsoft Visual Basic para Aplicações.
3. Clique em Inserir > Módulo e cole o código seguinte na janela do Módulo.
Sub RoundToEven()
'Update 20131107
Dim rng As Range
Dim WorkRng As Range
Dim intNumberOfDecimal As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
intNumberOfDecimal = Application.InputBox("NumberOfDecimal", xTitleId, Type:=1)
Set WorkRng = WorkRng.SpecialCells(xlCellTypeConstants, xlNumbers)
For Each rng In WorkRng
rng.Value = Round(rng.Value, intNumberOfDecimal)
Next
End Sub4. Em seguida, prima a tecla F5 para executar este código. Na caixa de diálogo apresentada, introduza o número de casas decimais a que pretende arredondar. Veja a imagem:
5. Em seguida, clique em OK e todos os números selecionados serão arredondados para par. Veja as imagens:
 |  |  |
Arredondar números para par com Kutools para Excel
Se nem a função definida pelo utilizador nem o código VBA lhe parecerem suficientemente simples, apresento-lhe uma solução fácil para resolver o problema. Com o Arredondamento sem usar fórmula do Kutools para Excel, pode arredondar rapidamente um intervalo de números para par.
Kutools para Excel inclui mais de 300 ferramentas práticas para o Excel. Experimente gratuitamente e sem limitações durante 30 dias.Obtenha já.
Após instalar o Kutools para Excel, proceda da seguinte forma:
1. Destaque o intervalo que pretende arredondar para um número par.
2. Clique em Kutools > Arredondar.
3. Na caixa de diálogo Arredondamento sem usar fórmula, introduza o número de casas decimais pretendido e, em seguida, selecione Arredondar para Par em Opção. Pode pré-visualizar o resultado no Painel de Pré-visualização. Veja a imagem:
4. Em seguida, clique em OK ou Aplicar, e todos os números serão arredondados para par com duas casas decimais.
Clique em **Arredondar para Par** para descobrir mais sobre esta funcionalidade.
Artigo relacionado:
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos