Eseguiamo la divisione in tutte le celle utilizzando una macro

Descrizione

Macro per la divisione automatica dei valori nelle celle in base a un numero arbitrario. Potrebbe essere necessario se disponiamo di un file di dati in cui tutti i valori sono specificati in centesimi e dobbiamo tradurre calcoli e dati in grivnie (o un'altra valuta).

Naturalmente, puoi utilizzare le formule per convertire i valori, ma se ci sono molti numeri, la conversione in questo modo sarà molto lunga e noiosa.

Consideriamo come dividere tutte le celle selezionate per un numero, ad esempio, "100" in Excel utilizzando una macro.

Codice VBA per la macro

Per fare questo, apri il tuo libro, vai a Visual Basic Editor (Alt+F11), aggiungi modulo VBA ( Insert - Module ) e copia qui il testo della macro:

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

Successivamente puoi tornare a Excel. Seleziona le celle necessarie ed esegui la nostra macro attraverso il menu Tools - Macro - Macros (Alt+F8) .

Inoltre, se si sostituisce nel codice macro "100" sul tasso di cambio, otterremo il valore in un'altra valuta.

Allo stesso modo, puoi eseguire qualsiasi operazione, come moltiplicare per qualsiasi numero.