Podziału we wszystkich komórkach dokonujemy za pomocą makra

Opis

Makro do automatycznego dzielenia wartości w komórkach przez dowolną liczbę. Może być konieczne, jeśli mamy plik danych, w którym wszystkie wartości są podane w groszach, a obliczenia i dane potrzebujemy przeliczyć na hrywny (lub inną walutę).

Można oczywiście używać formuł do przeliczania wartości, ale jeśli liczb jest dużo, to przeliczanie w ten sposób będzie bardzo długie i nudne.

Zastanówmy się, jak podzielić wszystkie zaznaczone komórki przez liczbę, na przykład "100" w Excel przy użyciu makra.

VBA kod makra

Aby to zrobić, otwórz książkę, przejdź do Edytor Visual Basic (Alt+F11), dodaj moduł VBA ( Insert - Module ) i skopiuj tam ten tekst makra:

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

Następnie możesz wrócić do Excel. Wybierz niezbędne komórki i uruchom nasze makro poprzez menu Tools - Macro - Macros (Alt+F8) .

Ponadto, jeśli zastąpisz kod makra "100" po kursie wymiany, wtedy otrzymamy wartość w innej walucie.

Podobnie możesz wykonać dowolną operację, na przykład pomnożenie przez dowolną liczbę.