EXCEL VBA Makro Toplama İşlemi

Excel VBA ile Toplama İşlemi Nasıl Yapılır

Bu makalede, Excel VBA kullanarak toplama işleminin nasıl kolay ve hızlı bir şekilde yapılacağı gösterilmektedir.

Excel makro ile toplama işlemi yapabilmek için öncelikle VBA geliştirici sekmesinin etkinleştirilmesi sonrasında da kod yazımı için modül eklenmesi gerekmektedir.

Excel VBA Toplama Formülü

Aşağıda kullanışlı ve basit bir toplama kodu bulunmaktadır. Bu kodda toplama işlemini gerçekleştirmek için WorksheetFunction.Sum fonksiyonu kullanılmıştır. Aşağıdaki kod; Sayfa 1 isimli çalışma kitabı içerisinde yer alan B1:B10 hücreleri arasındaki sayıları toplamaktadır.

Kodu kopyala diyerek, aşağıdaki örneği kendi VBA projenize yapıştırabilirsiniz.

Module

WorksheetFunction.Sum(Sheets("Sayfa 1").Range("B1:B10")

Excel VBA Toplama - Örnek Makro

Aşağıdaki örnekte, B1:B10 arasındaki sayılar toplanıp A1 hücresine yazdırılacaktır. Kod içerisinde ayrıca x isimli bir değişken atanmıştır. Bu değişken B1:B10 toplamına eşittir. Sonrasında A1 değeri ile x değişkeni eşitlenmiştir ve sonuç ekrana yazdırılmıştır. Değişken örnek gösterim için eklenmiştir.

Kodu kopyala diyerek, aşağıdaki örneği kendi VBA projenize yapıştırabilirsiniz.

Module

Sub Toplama ()

Dim x as integer

x =WorksheetFunction.Sum(Sheets("Sayfa 1").Range("B1:B10")

Sheets("Sayfa 1").Range("A1").Value =x

End Sub

Kodu yazdıktan sonra çalıştırmak için ise Butona ihtiyaç vardır. Bunun için öncelik üst menüde yer alan EKLE sekmesine tıklanmalı, sonrasında Şekiller işaretine basarak istenilen herhangi bir geometrik şekil sayfaya eklenmelidir. Devamında şekil üzerine gelerek Sağ Mouse ile Makro Ata komutu ile ilgili kod butona atanmalıdır.

Linke tıklayarak buton oluşturma adımlarını daha detaylı olarak görüntüleyebilirsiniz.