Makro kullanarak tüm hücrelerde bölünme gerçekleştiriyoruz

Tanım

Hücrelerdeki değerlerin rastgele bir sayıya göre otomatik olarak bölünmesi için makro. Tüm değerlerin kuruş cinsinden belirtildiği bir veri dosyamız varsa ve hesaplamaları ve verileri Grivnaya (veya başka bir para birimine) çevirmemiz gerekiyorsa gerekli olabilir.

Elbette değerleri dönüştürmek için formülleri kullanabilirsiniz ancak çok fazla sayı varsa bu şekilde dönüştürmek çok uzun ve sıkıcı olacaktır.

Seçilen tüm hücreleri bir sayıya nasıl böleceğimizi düşünelim, örneğin: "100" Excel'de bir makro kullanarak.

Makro için VBA kodu

Bunu yapmak için kitabınızı açın, şu adrese gidin: Visual Basic Düzenleyici (Alt+F11), modül ekle VBA ( Insert - Module ) ve bu makro metnini buraya kopyalayın:

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

Bundan sonra Excel'ye dönebilirsiniz. Gerekli hücreleri seçin ve makromuzu menüden çalıştırın Tools - Macro - Macros (Alt+F8) .

Ayrıca, makro kodunda değiştirirseniz "100" döviz kuru üzerinden değeri başka bir para biriminde alacağız.

Aynı şekilde herhangi bir sayıyla çarpma gibi herhangi bir işlemi de gerçekleştirebilirsiniz.