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.

Lassen Sie uns überlegen, wie Sie alle ausgewählten Zellen mithilfe eines Makros durch eine Zahl, beispielsweise „100“, in Excel dividieren.

VBA-Code für das Makro

Öffnen Sie dazu Ihre Arbeitsmappe, gehen Sie zu Visual Basic Editor (Alt+F11), fügen Sie das VBA-Modul (Insert - Module) hinzu 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ü Tools - Macro - Macros (Alt+F8) aus.

Wenn wir im Makrocode außerdem „100“ durch den Währungskurs ersetzen, 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.