Neste artigo, aprenderemos como alterar a fórmula nas células em um intervalo para valores usando o VBA no Microsoft Excel.
Os dados brutos para este exemplo consistem em dados de vendas. Os dados de vendas contêm informações sobre o número de itens vendidos por funcionários em diferentes cidades. A última linha e coluna contém a fórmula da soma para encontrar o número total de itens vendidos em uma determinada cidade por um determinado funcionário.
Gostaríamos de converter todas as fórmulas da planilha ativa em valores. Para converter todas as fórmulas em valores, criamos uma macro “ChangingFormulasToValue”. Esta macro pode ser executada clicando no botão “Converter fórmulas em valores”.
No instantâneo, pode-se ver a fórmula na célula H18 convertida em valor.
Explicação do código
Defina SourceRng = Range ("A1", Range ("A1"). SpecialCells (xlCellTypeLastCell))
O código acima é usado para atribuir todas as células começando da célula A1 até a última célula na pasta de trabalho como intervalo.
SourceRng.Value = SourceRng.Value
O código acima é usado para atribuir o valor da célula pulando a fórmula
Siga abaixo para o código
Option Explicit Sub ChangingFormulasToValue () 'Declarando variáveis Dim SourceRng As Range' Especifique todas as células na planilha ativa como intervalo Definir SourceRng = Range ("A1", Range ("A1"). SpecialCells (xlCellTypeLastCell)) 'Atribuindo apenas o valor de fórmula de salto de célula da célula SourceRng.Value = SourceRng.Value End Sub
Se você gostou deste blog, compartilhe com seus amigos no Facebook. Além disso, você pode nos seguir no Twitter e no Facebook.
Gostaríamos muito de ouvir de você, diga-nos como podemos melhorar nosso trabalho e torná-lo melhor para você. Escreva para nós no site de e-mail
