Anasayfa | Akademik Forum | Sizden Gelenler | Sipariş
Menü Açıklamaları
Sorular - Cevaplar
Makaleler
Makrolar
Yerleşik İşlevler
Animasyonlar
Yumurtalar
Fonksiyonlar
MTK Programlar
ExcelCE
Dosya İndir
Neler Yaptık?
İletişim
Sorular - Cevaplar
Soru-Cevap: 28 - M. Temel Korkmaz - 28.04.2004

Böl, Çarp, Topla işte bir Function örneği.
Soru - 28:
A,B ve C sütunlarında değerler var.A2 hücresine aşağıdaki formülü girdiğimi varsayın.Gerçi bu kadar uzun bir formülü tek hücre,uzun geldiği için kabul etmez ama,siz öyle olduğunu kabul edin.

=(A5*B5/C5)+(A6*B6/C6)+(A7*B7/C7)+.....(A100*B100/C100)

Şimdi,bu uzun formülün görevini yapacak kısacık bir formül yok mu?Basit gibi görünen Bu uzun formül,benim ömrümün törpüsü oldu ya hu! Mesela;

Bu Excel'i icat eden, TOPLA.ÇARPIM veya DÇARP gibi harika fonksiyonları yapmışlar da,TOPLA.BÖL veya DBÖL ya da ÇARP.BÖL.TOPLA gibi fonksiyonlar neden eklememişler sanki. Bilmem anlatabildim mi dostlar? Saygılar.

Cevap - 28:

Sorunuzun cevabını aşağıdaki gibi hazırladım. Siz kendinize göre uyarlayabilirsiniz.

Öncelikle, tablonun aşağıdaki gibi olduğunu düşünün.



Sizin istediğiniz formül için ise basit bir Fonksiyon hazırlamamız gerekiyor. Hazırladığımız fonksiyon aşağıdadır.

Function boltopla(bas As Integer, son As Integer)
   If bas <= 0 Or son <= 0 Then
      MsgBox "İlk değer ve son değer sıfır ve sıfırdan küçük olamaz"
      boltopla = "HATA"
      Exit Function
   End If

  
If bas > 65536 Or son > 65536 Then
      MsgBox "İlk değer ve son değer 65536'dan büyük olamaz"
      boltopla = "HATA"
      Exit Function
   End If

  
If son < bas Then
      MsgBox "İlk değer Son değerden büyük olamaz"
      boltopla = "HATA"
     
Exit Function
   End If

  
boltopla = 0
   For i = bas To son
      boltopla = boltopla + Cells(i, 1) * Cells(i, 2) / Cells(i, 3)
   Next i
End Function


Fonksiyonda bazı hata denetimlerini yapmaya çalıştım. Tabi daha bir çok problem olur. Bu fonksiyon sizin istediğiniz gibi A,B,C sütunlarına göre hazırlanmıştır.

Şimdi herhangi bir hücreye gelin ve =boltopla(1;10) formülünü yazın.



Formülü onayladığınızda aşağıdaki sonucu alacaksınız.



Formülü kısaca açıklamak gerekirse;

= bultopla ( bas ; son )

bas:
işlem yaptıracağınız tablodaki ilk veri satırını belirler. 1 yazarsanız 1. satıra bakar.
son: işlem yaptıracağınız tablodaki son veri satırını belirler.
Destek
M.ÖZTÜRK - Y.KARAMAN
Bu siteyi, "Hayatını çocuklarının Ahlâklı ve Dürüst yetişmesi için harcamış olan Cefakar ve Fedakar, Canım ANNEM'e adadım."
Copyright © 1998-2011 M. Temel Korkmaz - Tüm hakları saklıdır.