Макрос для автоматического разделения значений в ячейках на случайное число. Может быть необходимым, если у нас есть файл с данными, где все значения указаны в копейках, а нам необходимо перевести расчеты и данные в гривне (или в другую валюту).
Конечно, можно использовать формулы для конвертации значений, однако если цифр очень много, то превращать таким способом будет очень долго и скучно.
Давайте рассмотрим как поделить все выбранные ячейки на число, например "100" в Экселе с помощью макроса.
Для этого откройте свою книгу, перейдите в Visual Basic Editor (Alt+F11), добавьте модуль VBA (Insert – Module) и скопируйте этот текст макроса туда:
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
После этого можете возвратиться в Excel. Выделите необходимые ячейки и запустите наш макрос через меню Tools - Macro - Macros (Alt+F8).
Также если в коде макроса заменить "100" на курс валюты, то получим значение в другой валюте.
Аналогично, вы можете совершить любую операцию, например умножение на любое число.