Excel'de Küçük Bir Makro Örneği - R10.net
  • 03-08-2008, 01:35:27
    #1
    EXCEL'de giriş niteliğinde bir makro yapalım. Bu makroda amaç; sayfadaki belirli hücrelerden bilgileri okumak, işlemek ve yine sayfadaki belirli bir hücreye yazmak olsun. Örneğimizde iki adet sayıyı okuyup bunlara dört işlem uygulayacak ve sayfada ilgili hücrelere yazacağız. Bununla ilgili olarak aşağıdaki gibi basit bir sayfa hazırlayalım.

    Aşağıdaki şekilde iki adet buton bulunmakta. Bu butonları koymak icin "Gorunum" menusunden "Arac Cubukları" kısmına girilir ve "Denetim Ara Kutusu" secilir. Buradan iki adet buton nesnesini sayfaya ekleyin. Butonu ekledikten sonra uzerinde sağ tıklayarak ozellikler penceresini acın ve buradan "Caption" ozelliğine butonun uzerine gelecek yazıyı yazın.

    Ustteki resimde "Tamam" olarak belirtilmiş butona sağ tıklayın ve "Kod Goruntule" seeneğini secin. Bu butona ait Click yordamına gelmiş oluruz. Eğer excel'de Sayfa1 uzerinde isek aşağıdaki kodları yazın.

    x = Sayfa1.Cells(3, 2)
    y = Sayfa1.Cells(3, 3)
    
    Sayfa1.Cells(3, 4) = x + y
    Hemen kodları acıklayalım. Sayfa1 ifadesi Excelin hangi sayfasında olduğumuzu belirtir. İşlemi Sayfa1 uzerinde yaptığımızı varsaydık. İstenirse başka bir excel sayfasının adı belirtilerek de oraya ait işlemler yapılabilir. Daha sonra Sayfa1 icin Sayfa1.Cells(3, 2) ifadesini oluşturduk. Bunun anlamı sayfa1 uzerindeki 3,2 hucresinin değeri demektir. Bunu da x değişkenine attık. Yani sayfa1 uzerindeki 3,2 hucresindeki bilgiyi x değişkenine attık. Aynı şekilde de 3,3 hucresindeki değeri y değişkenine attık. Sonra da bunların toplamını 3,4 hucresi uzerine yazdırdık. Aynı mantıkla hemen altına diğer işlemler ve okunacak hucreler belirtilerek tum işlemler yaptırılmış olur.

    x = Sayfa1.Cells(3, 2)
    y = Sayfa1.Cells(3, 3)
    Sayfa1.Cells(3, 4) = x + y
    
    x = Sayfa1.Cells(4, 2)
    y = Sayfa1.Cells(4, 3)
    Sayfa1.Cells(4, 4) = x - y
    
    x = Sayfa1.Cells(5, 2)
    y = Sayfa1.Cells(5, 3)
    Sayfa1.Cells(5, 4) = x * y
    
    x = Sayfa1.Cells(6, 2)
    y = Sayfa1.Cells(6, 3)
    Sayfa1.Cells(6, 4) = x / y
    "Temizle" adlı butonun icine girerek Sayfa1.Cells(3, 1) = "" yazarsanız o hucrenin iceriği silinmiş olursunuz. Bu şekilde basılınca silinmesini istediginiz hucreleri tek tek belirterek "Temizle" butonuna ait kodları da bitirmis olursunuz.


    Alıntıdır.
R10.net sizlere daha iyi hizmet sunmak için çerezleri kullanıyor.R10.net'i kullanarak çerezleri kullanmamızı kabul etmiş olacaksınız.
Detaylı bilgi almak için Gizlilik ve Çerez Politikası metnimizi inceleyebilirsiniz.