Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Beyin Fırtınası
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Beyin Fırtınası Bu başlıkta, ilginç olduğunu düşündüğünüz sorularınızı, bir problem şeklinde sorabilir, alternatif olduğunu düşündüğünüz çözümlerinizi paylaşabilirsiniz. (Bu başlıkta yeni konu açılması onaya bağlıdır.)
Dosya ekleyebilirsiniz

Özel Arama


Kapalı Konu
 
Paylaş Konu Araçları Görünüm Modları
Eski 20-07-2009, 12:16   #1
Ali
 
Ali kullanıcısının avatarı
 
Giriş: 21/07/2005
Mesaj: 7,318
Excel Vers. ve Dili:
İş:Excel 2007-Türkçe Ev:Excel 2003-Türkçe
Varsayılan Aşağı ve sağa doğru büyüyen bir dizide toplam alma

Bu kısım farklı örnekler ile soru sorulup üyelerimizin deneyerek ,aktif olarak katılarak ve cevaplar vererek öğrenmesi amacıyla açılmıştı. Uzun zamandan beri kullanılmadığını gözlemlediğim için bir soru sorarak bu kısmı aktif hale getirmek istedim.

Çözümler, Fonksiyonla, Makro ve Kullanıcı Tanımlı Fonksiyonlar ile olabilir.

Yanlış yada eksikte olsa cevap verirseniz sevinirim böylece birlikte doğrusunu bulabiliriz.

Fonksiyon ve kullanıcı tanımlı fonksiyonlarda I2 hücresine yazılan formül aşağı doğru çekildikçe otomatik olarak hesaplamalıdır.

Yardımcı sütun kullanılmamalıdır.
Eklenmiş Dosyalar
Dosya Türü: zip Aşağı ve sağa doğru büyüyen bir dizi.zip (6.1 KB, 93 Görüntülenme)
Ali Çevrimdışı  
Eski 20-07-2009, 15:27   #2
fedeal
Banned
 
Giriş: 29/05/2008
Şehir: uşak
Mesaj: 1,987
Excel Vers. ve Dili:
2003 tr
Varsayılan

ben makrolu bir çözüm buldum,
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub fdl()
Dim a, i, k As Long
Range("J2:J65000").ClearContents
For i = 2 To Range("A65536").End(xlUp).Row
a = 1
For k = i To 2 Step -1
Cells(i, "j") = Cells(i, "j") + Cells(k, a)
a = a + 1
Next
Next
End Sub
kolay görünüyor ama baya kafa yoruyor iyi bir beyin fırtınası teşekkürler.
Eklenmiş Dosyalar
Dosya Türü: xls Aşağı ve sağa doğru büyüyen bir dizi.xls (40.5 KB, 27 Görüntülenme)
fedeal Çevrimdışı  
Eski 20-07-2009, 15:41   #3
fedeal
Banned
 
Giriş: 29/05/2008
Şehir: uşak
Mesaj: 1,987
Excel Vers. ve Dili:
2003 tr
Varsayılan

Hocam kullanıcı tanımlı fonksiyonunuda yaptım,
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Function yatay_topla(birim As Integer)
a = 1
For k = birim To 2 Step -1
yatay_topla = yatay_topla + Cells(k, a)
a = a + 1
Next
End Function
formulüde k3 hücresi için,

Alıntı:
=yatay_topla(SATIR(A2))
Eklenmiş Dosyalar
Dosya Türü: xls Aşağı ve sağa doğru büyüyen bir dizi.xls (45.0 KB, 20 Görüntülenme)
fedeal Çevrimdışı  
Eski 20-07-2009, 15:45   #4
mesudiye_052
 
mesudiye_052 kullanıcısının avatarı
 
Giriş: 04/04/2006
Şehir: ÇEKMEKÖY/İSTANBUL
Mesaj: 897
Excel Vers. ve Dili:
Excel 2003 Türkçe
Varsayılan

Selamlar;

basit formülle yapmaya çalıştım

dizi formül oluşturarak yapılırsa çok güzel olur

Saygılar;
Eklenmiş Dosyalar
Dosya Türü: xls Aşağı ve sağa doğru büyüyen bir dizi.xls (30.0 KB, 52 Görüntülenme)
__________________
321.Kısa Dönem

[Dua]

'Allah'ım, yararsız bilgiden, korkusuz kalpten, kabul olmayacak yakarıştan ve doymak bilmeyen nefisten
Sana sığınırım. Şiddetli acı veren açlıktan ve kötü bir huy olan hainlikten, tembellik, cimrilik ve yaşlılıktan Sana sığınırım. Deccal'ın fitenesinden Sana sığınırım. Hayatın ve ölümün kötülüklerinden Sana sığınırım.
Allah'ım, kalbimi, gözümü, kulağımı, dilimi, sağ, sol, ön, art, alt ve üstümü nurlandır. Allah'ım bana nur ver.

Hz.Muhammed [sas] [Buhari, Müslüm]
mesudiye_052 Çevrimdışı  
Eski 20-07-2009, 15:59   #5
Ali
 
Ali kullanıcısının avatarı
 
Giriş: 21/07/2005
Mesaj: 7,318
Excel Vers. ve Dili:
İş:Excel 2007-Türkçe Ev:Excel 2003-Türkçe
Varsayılan

Sayın fedeal çözümleriniz için teşekkürler.


Alıntı:
mesudiye_052 tarafından gönderildi Mesajı Görüntüle
Selamlar;

basit formülle yapmaya çalıştım

dizi formül oluşturarak yapılırsa çok güzel olur

Saygılar;
Sayın mesudiye_052, ekleyen olmazsa yazarım.
Ali Çevrimdışı  
Eski 20-07-2009, 16:52   #6
fedeal
Banned
 
Giriş: 29/05/2008
Şehir: uşak
Mesaj: 1,987
Excel Vers. ve Dili:
2003 tr
Varsayılan

Sorunun fonksiyonla yapılışı farkettimki makroyla yapmak kadar basit değil
Alıntı:
=DOLAYLI("A"&SATIR())+EĞER(EHATALIYSA(DOLAYLI("b"& SATIR()-1));0;DOLAYLI("b"&SATIR()-1))+EĞER(EHATALIYSA(DOLAYLI("c"&SATIR()-2));0;DOLAYLI("c"&SATIR()-2))+EĞER(EHATALIYSA(DOLAYLI("d"&SATIR()-3));0;DOLAYLI("d"&SATIR()-3)+EĞER(EHATALIYSA(DOLAYLI("e"&SATIR()-4));0;DOLAYLI("e"&SATIR()-4))+EĞER(EHATALIYSA(DOLAYLI("f"&SATIR()-5));0;DOLAYLI("f"&SATIR()-5))+EĞER(EHATALIYSA(DOLAYLI("g"&SATIR()-6));0;DOLAYLI("6"&SATIR()-6)))
gibi bir yöntem buldum ama işlevsel değil,soru 5 değilde 10 basamak olursa çuvallıyor.Cevabı ilgiyle bekliyorum.Saygılar.
fedeal Çevrimdışı  
Eski 20-07-2009, 17:15   #7
Ali
 
Ali kullanıcısının avatarı
 
Giriş: 21/07/2005
Mesaj: 7,318
Excel Vers. ve Dili:
İş:Excel 2007-Türkçe Ev:Excel 2003-Türkçe
Varsayılan

Kullanıcı tanımlı bir fonksiyon ile

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Function Koseleri_Topla(Bakılacak_alan As Range, Artıs As Integer) As Double
Dim arr As Variant, i As Integer, j As Integer, Topla As Double
arr = Bakılacak_alan
Topla = 0
For i = 1 To Artıs
    Topla = Topla + arr(i, Artıs - i + 1)
Next i
Koseleri_Topla = Topla
End Function

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
 
=Koseleri_Topla($A$2:$E$6;SATIRSAY($I$2:I2))
yazılıp aşağı doğru çekilir.
Eklenmiş Dosyalar
Dosya Türü: zip Aşağı ve sağa doğru büyüyen bir dizi-1.zip (10.7 KB, 44 Görüntülenme)
Ali Çevrimdışı  
Eski 20-07-2009, 17:35   #8
Ali
 
Ali kullanıcısının avatarı
 
Giriş: 21/07/2005
Mesaj: 7,318
Excel Vers. ve Dili:
İş:Excel 2007-Türkçe Ev:Excel 2003-Türkçe
Varsayılan

Dizi formülü ile çözüm

=TOPLA(ALTTOPLAM(9;KAYDIR(A2;(-1*(SATIR(DOLAYLI("1:"&SATIR()))-1));SATIR(DOLAYLI("1:"&SATIR()))-1)))

yazılıp CTRL+SHIFT+ENTER tuşlarına birlikte basılıp aşağı doğru çekilir.
Eklenmiş Dosyalar
Dosya Türü: zip Aşağı ve sağa doğru büyüyen bir dizi-fonk.zip (8.9 KB, 50 Görüntülenme)
Ali Çevrimdışı  
Eski 20-07-2009, 22:20   #9
İdris SERDAR
Moderatör
 
İdris SERDAR kullanıcısının avatarı
 
Giriş: 21/10/2005
Şehir: Ankara
Mesaj: 14,411
Excel Vers. ve Dili:
Excel, 2016 - İngilizce
Varsayılan

Alıntı:
Ali tarafından gönderildi Mesajı Görüntüle
Dizi formülü ile çözüm

=TOPLA(ALTTOPLAM(9;KAYDIR(A2;(-1*(SATIR(DOLAYLI("1:"&SATIR()))-1));SATIR(DOLAYLI("1:"&SATIR()))-1)))

yazılıp CTRL+SHIFT+ENTER tuşlarına birlikte basılıp aşağı doğru çekilir.
.

Ali bey, bu da, sizin formülün dizi olmayan şekli:

=SUMPRODUCT(SUBTOTAL(9;OFFSET(A2;(-1*(ROW(INDIRECT("1:"&ROW()))-1));ROW(INDIRECT("1:"&ROW()))-1)))

=TOPLA.ÇARPIM(ALTTOPLAM(9;KAYDIR(A2;(-1*(SATIR(DOLAYLI("1:"&SATIR()))-1));SATIR(DOLAYLI("1:"&SATIR()))-1)))


.
__________________
Çalışmalarımı görmek için:

http://www.excelgurusu.com/

İdris SERDAR
İdris SERDAR Çevrimdışı  
Kapalı Konu


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 23:00


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden