Dosya simgesi

Bitişik Olmayan Sayıları Toplama

Bitişik Olmayan Sayıları Toplama
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.

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:
Excel formülü
=BYROW(B3:K12*(OFFSET(B3:K12,,1)="")*(OFFSET(B3:K12,,-1)=""),LAMBDA(x,SUM(x)))
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.
Fonksiyon bir makro olarak çalıştırılmaz; çalışma sayfasında formül gibi çağrılır.

Nasıl kullanılır​

  1. Dosyayı açın ve makroları etkinleştirin.
  2. 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.
  3. M sütunundaki formül sonuçları otomatik hesaplar. Satır sayısı farklıysa M3 formülündeki aralığı güncelleyin.
  4. VBA yöntemini denemek için boş bir hücre aralığı seçip fonksiyonu BitisikOlmayanlariToplama(B3:K12) biçiminde girin.

ExcelDepo tarafından daha fazla dosya

Detaylar
Yazar
ExcelDepo
İndirme
4
Gösterim
317
İlk sürüm
Güncel
SHA-256
de5915a224a1b235749acbaed5bd133fda48e9be958f7aa8bc6fdefd2a7ac203

Puanlar

5.00 Oylama 2 İnceleme

En son değerlendirmeler

Çok teşekkür ederim.
Emeğinize sağlık, teşekkürler.
Geri
Üst