Farklı Kombinasyon Oluşturma

[msms]

Sevgili Üstadlar ,

Aşağıdaki kombinasyon listesi formülünde kendi belirlediğim sayılara göre kombinasyon listesi nasıl yaptırabilirim. Yani sayıları ben yazarak . örn. 1-2-3-4-10-15-16-17-18-29-30-34-40 bu sayıları kullanarak kombinasyon listesi oluştur gibi , yazacağım sayı adeti 40-50-60 civarında da olabilir. Veya farklı formül varsa iletebilecek bilgili bir arkadaşın yardımını bekliyorum


Sub Kombinasyon_Hesapla()

adet = 20
Kolon = 1
Sıra = 1
Satır = 1

t = Timer
For s1 = 1 To adet - 9
For s2 = s1 + 1 To adet - 8
For s3 = s2 + 1 To adet - 7
For s4 = s3 + 1 To adet - 6
For s5 = s4 + 1 To adet - 5
For s6 = s5 + 1 To adet - 4
For s7 = s6 + 1 To adet - 3
For s8 = s7 + 1 To adet - 2
For s9 = s8 + 1 To adet - 1
For s10 = s9 + 1 To adet - 0
If Cells(Satır, Kolon).Address = "$IV$65536" Then
Worksheets.Add after:=Worksheets(Worksheets.Count)
Kolon = 1
Satır = 1
End If

Cells(Satır, Kolon).Value = Sıra & "--) " & _
s1 & "-" & s2 & "-" & s3 & "-" & s4 & "-" & s5 & "-" & s6 & "-" & s7 & "-" & s8 & "-" & s9 & "-" & s10

Sıra = Sıra + 1
Satır = Satır + 1

If Satır > Rows.Count Then
Satır = 1
Kolon = Kolon + 1
End If
Next s10
Next s9
Next s8
Next s7
Next s6
Next s5
Next s4
Next s3
Next s2
Next s1

End Sub

 

[msms]

Site ölmüş, eskiden bilgili insan kaynardı burada..

 

[Korhan Ayhan]

Merhaba,

Linki inceleyiniz. (Özellikle Haluk beyin paylaştığı dosya sizin işinizi görebilir.)

Kombinasyon sonucunu sayfalara yazdırabilirmiyiz

Selam Excelde kombinasyon sonucunu sayfalara yazdırabilirmiyiz örneğin 20 ismin 3 erli kombinasyonu 1140 adet oluyor VBA kodlarıyla veya başka bir yöntemle bu 1140 adet 3 erli ismi sayfaya/sayfalara yazdırabilirmiyiz

www.excel.web.tr