Bu dosya, tek bir hücrede yan yana yazılmış rakamların (örneğin 135 için 1+3+5) nasıl toplanacağını iki yöntemle gösterir: Kullanıcı Tanımlı Fonksiyon (KTF) ve iç içe formül.
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Makro kodunda dosya silme ya da dışarıya bağlantı gibi zararlı bir işlem yoktur.
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Makro kodunda dosya silme ya da dışarıya bağlantı gibi zararlı bir işlem yoktur.
Dosyanın içeriği
- Sheet1: B sütununda "Rakamlar" başlığı altında 12, 135, 1357, 13579 gibi 12 haneye kadar uzayan örnek sayılar bulunur. F sütunundaki "Geleneksel" başlığı altında ise bu sayıların rakamları toplamı yer alır (örneğin 135 için 9, 1357 için 16).
- Sheet2: A1:A6 aralığında RESİM (IMAGE) fonksiyonuyla ExcelDepo sitesinden çekilen görseller bulunur. Bu görseller internet bağlantısı gerektirir ve konunun çözümüyle ilgili değildir.
Kullanılan formüller
=SUM(IF(ISNUMBER(MID(B3,ROW(INDIRECT("1:"&LEN(B3))),1)*1),MID(B3,ROW(INDIRECT("1:"&LEN(B3))),1)*1,0))formülü F3 hücresindedir. UZUNLUK (LEN) ile hücredeki karakter sayısı bulunur, SATIR (ROW) ve DOLAYLI (INDIRECT) ile 1'den bu sayıya kadar bir sıra üretilir, PARÇAAL (MID) ile her karakter tek tek alınır. ESAYIYSA (ISNUMBER) sayı olmayan karakterleri 0 sayar, TOPLA (SUM) de sonuçları toplar.- Formül, dizi mantığıyla çalışır. Sürümünüze göre Ctrl+Shift+Enter ile girmeniz gerekebilir.
Makrolar
- Module1 - HucreTopla: Kullanıcı tanımlı bir fonksiyondur. Len ile hücredeki karakter sayısını bulur, For-Next döngüsüyle her karakteri Mid ile alır, Val ile sayıya çevirip sonuca ekler. Makro düğmesiyle çalıştırılmaz, sayfada normal bir formül gibi
=HucreTopla(C5)şeklinde kullanılır.
Nasıl kullanılır
- Dosyayı açın ve makroları etkinleştirin.
- Sheet1 sayfasında B sütununa rakamlarını yazın.
- Formül yöntemi için F3 hücresindeki formülü diğer satırlara kopyalayın.
- KTF yöntemi için boş bir hücreye
=HucreTopla(B3)yazın. - Kendi dosyanızda KTF'yi kullanmak için Module1 içindeki fonksiyonu kendi projenize taşıyın ve dosyayı .xlsm olarak kaydedin.