En este artículo, aprenderemos cómo cambiar la fórmula en las celdas en un rango a valores usando VBA en Microsoft Excel.
Los datos sin procesar para este ejemplo consisten en datos de ventas. Los datos de ventas contienen información sobre la cantidad de artículos vendidos por empleados en diferentes ciudades. La última fila y columna contiene la fórmula de suma para encontrar el número total de artículos vendidos en una ciudad en particular por un empleado en particular.
Nos gustaría convertir todas las fórmulas de la hoja activa en valores. Para convertir todas las fórmulas a valores, hemos creado una macro "ChangingFormulasToValue". Esta macro se puede ejecutar haciendo clic en el botón "Convertir fórmulas en valores".
En la instantánea, se puede ver que la fórmula en la celda H18 se convierte en valor.
Explicación del código
Establecer SourceRng = Range ("A1", Range ("A1"). SpecialCells (xlCellTypeLastCell))
El código anterior se usa para asignar todas las celdas desde la celda A1 hasta la última celda del libro de trabajo como rango.
SourceRng.Value = SourceRng.Value
El código anterior se usa para asignar el valor de celda omitiendo la fórmula
Siga a continuación para obtener el código
Option Explicit Sub ChangingFormulasToValue () 'Declarando variables Dim SourceRng As Range' Especifique todas las celdas en la hoja activa como rango Set SourceRng = Range ("A1", Range ("A1"). SpecialCells (xlCellTypeLastCell)) 'Asignando solo el valor de la fórmula de omisión de celda de la celda SourceRng.Value = SourceRng.Value End Sub
Si te gustó este blog, compártelo con tus amigos en Facebook. Además, puede seguirnos en Twitter y Facebook.
Nos encantaría saber de usted, háganos saber cómo podemos mejorar nuestro trabajo y hacerlo mejor para usted. Escríbanos al sitio de correo electrónico