Виконуємо ділення в усіх комірках за допомогою макросу

Опис

Макрос для автоматичного поділу значень в комірках на довільне число. Може бути необхідним, якщо ми маємо файл з даними, де всі значення вказані в копійках, а нам необхідно перевести розрахунки та дані в гривні (або в іншу валюту).

Звичайно, можна скористатися формулами для конвертації значень, проте якщо цифр дуже багато, то перетворювати таким способом буде дуже довго та нудно.

Давайте розглянемо як поділити усі вибрані комірки на число, наприклад, "100" в Екселі за допомогою макросу.

VBA код для макросу

Для цього відкрийте свою книгу, перейдіть у 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" на курс валюти, то отримаємо значення в іншій валюті.

Аналогічно, ви можете здійснити будь-яку операцію, наприклад, множення на будь-яке число.