kombinasyon toplamını doğrudan yazdırmak

[excellcan]

Forumda eöeği geçen herkese merhaba. Arkadaşlar aşağıdaki kodlar kombinasyon kodları. Kodlarda bir sorun yok hepsi çalışıyor. Benim sorunum
Aı ve AJ sütununa yazdırmadan aşağıdaki kodda 6 nın 2 li kombinayonlarının sonucunu doğrudan label 1 e yazdırmak. Range("AF2:AF7") aralığının birden
altıya kadar sıralı olduğunu varsayarsak sonuç 175 eder. Hücrelere yazdırıp toplatmadan direk label 1 e sonucu yazdırmak istiyorum. ilgilenen arkadaşlara
şimdiden teşekkürler.


Dim x As Double
Dim xx As Double
Dim satır As Integer

For x = 2 To 6
For xx = x + 1 To 7
satır = satır + 1
Cells(satır, "AI") = Cells(x, "AF")
Cells(satır, "AJ") = Cells(xx, "AF")
Cells(satır, "AK") = Cells(satır, "AI") * Cells(satır, "AJ")
Next xx, x

Label1 = WorksheetFunction.Sum(Range("AK1:AK15"))

 

[chngrcn]

zaten yazdığınız formülde,

Label1 = WorksheetFunction.Sum(Range("AK1:AK15"))

kısmı otomatikman sonucu toplayip, label1' e veriyor.. denedim..

Hücrelere yazdırıp toplatmadan direk label 1 e sonucu yazdırmak istiyorum

siz neyi soruyorsunuz ben onu anlamadim sanirim ? yanılıyor muyum ? sorduğunuz soru bu ise cevabı zaten icinde..

 

[chngrcn]

bir bakın..

 

[excellcan]

zaten yazdığınız formülde,

Label1 = WorksheetFunction.Sum(Range("AK1:AK15"))

kısmı otomatikman sonucu toplayip, label1' e veriyor.. denedim..



siz neyi soruyorsunuz ben onu anlamadim sanirim ? yanılıyor muyum ? sorduğunuz soru bu ise cevabı zaten icinde..

Hocam kodların çalıştığını zaten yazdım. Kodların yaptığı şu : Kombinasyonun birinci kısmını Aı sütununa ikinci kısmını Aj sütununa yazıyor bunları AK sütununda çarpıyor. En sonunda da topluyor. Bütün bu işlemleri hücrelere yazdırmadan hafızadan halletmesini istiyorum. Değişkenlere atayarak yapmak istedim ama beceremedim. İlginiz için teşekkürler

 

[chngrcn]

ilk mesajınız..

Hücrelere yazdırıp toplatmadan direk label 1 e sonucu yazdırmak istiyorum.

en son cevabınız..

Bütün bu işlemleri hücrelere yazdırmadan hafızadan halletmesini istiyorum.

bu çelişkiden dolayi yanildim sanirim..

 

[chngrcn]

Sub ikinin_6li_kombinasyonu() 'coded by CİHANGİR...

e = 1
a = 2

f = e * a
f1 = e * (a + 1)
f2 = e * (a + 2)
f3 = e * (a + 3)
f4 = e * (a + 4)

f6 = (e + 1) * (a + 1)
f7 = (e + 1) * (a + 2)
f8 = (e + 1) * (a + 3)
f9 = (e + 1) * (a + 4)

f10 = (e + 2) * (a + 2)
f11 = (e + 2) * (a + 3)
f12 = (e + 2) * (a + 4)

f13 = (e + 3) * (a + 3)
f14 = (e + 3) * (a + 4)

f15 = (e + 4) * (a + 4)

toplam = f + f1 + _
        f2 + f3 + _
        f4 + _
        f6 + f7 + _
        f8 + f9 + _
        f10 + f11 + _
        f12 + f13 + _
        f14 + f15

Label1.Caption = toplam



End Sub

bu şekilde yapmaya çalıştım.. biraz uğraştırdı lakin döngü değil. işinize yararmı bilmem.. saygılar

 

[excellcan]

Sub ikinin_6li_kombinasyonu() 'coded by CİHANGİR...

e = 1
a = 2

f = e * a
f1 = e * (a + 1)
f2 = e * (a + 2)
f3 = e * (a + 3)
f4 = e * (a + 4)

f6 = (e + 1) * (a + 1)
f7 = (e + 1) * (a + 2)
f8 = (e + 1) * (a + 3)
f9 = (e + 1) * (a + 4)

f10 = (e + 2) * (a + 2)
f11 = (e + 2) * (a + 3)
f12 = (e + 2) * (a + 4)

f13 = (e + 3) * (a + 3)
f14 = (e + 3) * (a + 4)

f15 = (e + 4) * (a + 4)

toplam = f + f1 + _
        f2 + f3 + _
        f4 + _
        f6 + f7 + _
        f8 + f9 + _
        f10 + f11 + _
        f12 + f13 + _
        f14 + f15

Label1.Caption = toplam



End Sub

bu şekilde yapmaya çalıştım.. biraz uğraştırdı lakin döngü değil. işinize yararmı bilmem.. saygılar

Hocam belli ki epey uğraşmısınız. Ama bu kodlarla 10 un 2 li kombinasyonlarını bulup birbiriyle çarptırıp toplayamayız herhalde. Yine de emeğiniz ve ilginiz için çok çok teşekkürler.