Bu dosya, bir veri aralığında aynı satırda yer alan sayılardan yalnızca solunda ve sağında başka sayı bulunmayanları toplar. Yan yana yazılmış sayılar toplama dahil edilmez, çevresi boş olan sayılar toplanır. Aynı sonuç hem Excel formülüyle hem de VBA ile elde edilir.
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.
Formül dinamik dizi desteği olan, BYROW ve LAMBDA fonksiyonlarını içeren Excel sürümlerinde çalışır.
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.
Dosyanın içeriği
- Sayfa1: B2:P12 aralığında çalışır. B sütunundaki "SAYILAR" başlığının altında, B3:K12 aralığında bazı hücreleri dolu, bazıları boş olan sayılar yer alır. M sütunundaki "Toplam" başlığının altında her satırın sonucu hesaplanır.
- Module1: Aynı işlemi yapan BitisikOlmayanlariToplama adlı kullanıcı tanımlı fonksiyonu içerir.
Kullanılan formüller
M3 hücresindeki formül, her satır için sağında ve solunda boş hücre bulunan sayıları toplar. OFFSET ile aralık bir sütun sağa ve bir sütun sola kaydırılarak komşu hücrelerin boş olup olmadığı denetlenir; BYROW ve LAMBDA ile bu işlem satır satır yapılır, SUM ile satır toplamı alınır:Formül dinamik dizi desteği olan, BYROW ve LAMBDA fonksiyonlarını içeren Excel sürümlerinde çalışır.
Makrolar
- BitisikOlmayanlariToplama(rng): Verilen aralıktaki her satırı hücre hücre dolaşır. Bir hücre sayısal ise ve solundaki ile sağındaki hücreler boş ya da sayısal değilse değerini o satırın toplamına ekler. Satır toplamları dizi olarak döndürülür. İlk sütunda sol, son sütunda sağ komşu yok sayılır.
- Kod dosya silme veya dışarıya bağlantı gibi işlem içermez.
Nasıl kullanılır
- Dosyayı açın ve makroları etkinleştirin.
- B3:K12 aralığına sayılarınızı girin; bitişik olmasını istemediğiniz sayıların arasında boş hücre bırakın.
- M sütunundaki formül sonuçları otomatik hesaplar. Satır sayısı farklıysa M3 formülündeki aralığı güncelleyin.
- VBA yöntemini denemek için boş bir hücre aralığı seçip fonksiyonu BitisikOlmayanlariToplama(B3:K12) biçiminde girin.