Efectuăm diviziunea în toate celulele folosind o macro

Descriere

Macro pentru împărțirea automată a valorilor în celule cu un număr arbitrar. Poate fi necesar dacă avem un fișier de date în care toate valorile sunt specificate în bănuți și trebuie să traducem calculele și datele în grivne (sau altă monedă).

Desigur, puteți folosi formule pentru a converti valori, dar dacă există o mulțime de numere, atunci conversia în acest fel va fi foarte lungă și plictisitoare.

Să ne gândim cum să împărțim toate celulele selectate cu un număr, de exemplu, "100" în Excel folosind o macrocomandă.

Codul VBA pentru macrocomandă

Pentru a face acest lucru, deschideți cartea, accesați Visual Basic Editor (Alt+F11), adăugați modulul VBA ( Insert - Module ) și copiați acest text macro acolo:

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

După aceea, puteți reveni la Excel. Selectați celulele necesare și rulați macrocomandă prin meniu Tools - Macro - Macros (Alt+F8) .

De asemenea, dacă înlocuiți în codul macro "100" la cursul de schimb, atunci vom obține valoarea în altă monedă.

De asemenea, puteți efectua orice operație, cum ar fi înmulțirea cu orice număr.