Macro para división automática de valores en celdas por un número arbitrario. Puede ser necesario si tenemos un archivo de datos donde todos los valores están especificados en centavos y necesitamos traducir cálculos y datos a hryvnias (u otra moneda).
Por supuesto, puedes usar fórmulas para convertir valores, pero si hay muchos números, la conversión de esta manera será muy larga y aburrida.
Consideremos cómo dividir todas las celdas seleccionadas por un número, por ejemplo, "100" en Excel usando una macro.
Para hacer esto, abra su libro de trabajo, vaya a Visual Basic Editor (Alt+F11), agregue el módulo VBA (Insert - Module) y copie este texto de macro allí :
Sub Division() For Each cell In Selection cell.Formula = cell.Value Next cell For Each cell In Selection cell.Value = cell.Value / 100 Next cell End Sub
Después de eso puedes regresar a Excel. Seleccione las celdas necesarias y ejecute nuestra macro a través del menú Tools - Macro - Macros (Alt+F8).
Además, si reemplazamos "100" con el tipo de cambio en el código macro, obtendremos el valor en otra moneda.
Asimismo, podrás realizar cualquier operación, como multiplicar por cualquier número.