Hücre değerleriyle hesap yapmayı kolaylaştıran üç fonksiyon

Bu yazıyı exceltr.net altında okumak için  tıklayın

---

VBA kullanarak excel çalışma kitabı üzerindeki değerlerle bolca hesap yapıyorsanız boş hücrelerden ve metin olarak saklanan sayılardan sıkıntı duymuşsunuzdur. Hata yapmamayı garanti ederek hücre değerleri ile işlem yapmak zordur. Aşağıda, dikkatine güvenmeyenler için hesaplamalarda kısaltma sağlayan üç fonksiyon var.

Bu fonksiyonlar boş hücreleri sayı olarak kabul etmez, fakat metin olarak saklanmış olsa bile işlem yapılabilecek her değeri sayı olarak alırlar

''sıfırdan farklı reel sayı mı?
Public Function isRational(varb As Variant) As Boolean

isRational = CBool(IsNumeric(varb) And Not IsEmpty(varb) And varb  0)

End Function
''str mi?
Public Function isString(varb As Variant) As Boolean

isString = CBool(Not IsNumeric(varb))
End Function


''Reel sayı mı? (0 ,- +)
Public Function isReel(varb As Variant) As Boolean
isReel = CBool(IsNumeric(varb) And Not IsEmpty(varb))
End Function