Wir führen die Teilung in allen Zellen mithilfe eines Makros durch

Beschreibung

Makro zur automatischen Division von Werten in Zellen durch eine beliebige Zahl. Dies kann erforderlich sein, wenn wir über eine Datendatei verfügen, in der alle Werte in Pennys angegeben sind, und wir Berechnungen und Daten in Griwna (oder eine andere Währung) umrechnen müssen.

Natürlich können Sie Formeln zum Umrechnen von Werten verwenden, aber wenn es viele Zahlen gibt, wird die Umrechnung auf diese Weise sehr langwierig und langweilig.

Betrachten wir beispielsweise, wie man alle ausgewählten Zellen durch eine Zahl dividiert. "100" in Excel mithilfe eines Makros.

VBA-Code für das Makro

Öffnen Sie dazu Ihr Buch und gehen Sie zu Visual Basic Editor (Alt+F11), Modul hinzufügen VBA ( Insert - Module ) und kopieren Sie diesen Makrotext dorthin:

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

Danach können Sie zu Excel zurückkehren. Wählen Sie die erforderlichen Zellen aus und führen Sie unser Makro über das Menü aus Tools - Macro - Macros (Alt+F8) .

Auch wenn Sie im Makrocode ersetzen "100" auf den Wechselkurs, dann erhalten wir den Wert in einer anderen Währung.

Ebenso können Sie jede beliebige Operation ausführen, beispielsweise das Multiplizieren mit einer beliebigen Zahl.