Multiplica todos los valores de Excel por una constante

Cómo multiplicar todas las celdas de un rango por una constante

¿Le gustaría asegurarse de que todas las constantes de un rango se multipliquen por un factor? Puede lograr esto utilizando inteligentemente la función EDITAR - INSERTAR CONTENIDO.

Es más fácil si usa la siguiente macro:

Usar subfactor ()
Atenuar celda como rango
Atenuar el valor de entrada tan largo
Valor de entrada = InputBox ("Introduzca el factor (por ejemplo, 100)")
Para cada celda de la selección
Si no es así (Cell.HasFormula), entonces
Cell.Formula = "=" & Cell.Value & "*" & Val (valor de entrada)
Terminara si
Siguiente celda
End Sub

En el primer paso, seleccione un rango de celdas en una tabla. La siguiente figura muestra un ejemplo de un área resaltada.

Luego llame a la macro. Excel ahora pregunta en una ventana el factor que desea usar. La siguiente figura muestra esta ventana:

Confirme la definición del factor con el botón OK.

Excel ahora recorre todas las celdas de la selección. Solo se cambian las celdas en las que no hay fórmula. Se multiplican por el factor introducido. Excel ingresa el nuevo valor como una fórmula en la celda. La siguiente figura muestra cómo puede verse el resultado:

Si desea ingresar los números como constantes, reemplace la línea "Cell.Formula" con la siguiente expresión:

Cell.Value = Cell.Value * Val (valor de entrada)

Al ingresar un factor menor que uno, también puede dividir las celdas por una constante.

Convertir una fórmula en una constante usando una macro: Cómo convertir un cálculo usando VBA a un valor absoluto

Quiere convertir las celdas de un rango en valores absolutos. Puede hacer esto de forma interactiva copiando el área y luego pegándola como valores. El comando apropiado se llama "Edición - Pegado especial" en Excel hasta la versión 2003 y "Inicio - Pegado - Pegado especial" en Excel a partir de la versión 2007.

Si desea convertir celdas individuales en una macro, el siguiente código de programa lo ayudará:

SubValueConvert ()
Con ActiveSheet.Range ("a1")
.Fórmula = .Valor
Terminar con
End Sub

La macro convierte el contenido actual de la celda A1 en la tabla activa en un valor absoluto.

Va a ayudar al desarrollo del sitio, compartir la página con sus amigos

wave wave wave wave wave