Alt küme oluşturma

[rammstein_s]

ARKADAŞLAR RESİMDE GÖRÜLDÜĞÜ GİBİ SATIRDAKİ DEĞERLERİN BİR KÜME OLUŞTURDUĞUNU VARSAYARSAK BEN BU KÜMENİN 2 3 4 ... N ELEMANLI ALT KÜMELERİNİ NASIL SINIFLANDIRIM

 

[rammstein_s]

Konu yukarıda kalsın

 

[rammstein_s]

Yukarııı...

 

[Muhammet Okumuş]

Merhaba,
En fazla 9 eleman mi var?

 

[rammstein_s]

örnek olsun diye yazmıştım 10 elemanlı da benim işimi bunun 3 elemanlı alt kümeleri görür.

 

[rammstein_s]

9 da olabilir bir eleman tolere edilebilir..

 

[ataköylü-59]

Sayın rammstein_s :
Elimde bu forumdan mı yoksa başka bir forumdan mı bilemediğim bir kod var. Ve aşağıdaki ekte uyarlamasını yaptım. Ancak Elemanları tek hücreye yazmak gerekiyor. Ben kod bilmediğim için ayrı ayrı hücreleri referans aldıramadım. Belki işinize yarar diye düşünüyorum.

http://dosya.co/ev5d1ff1jase/Alt_küme.rar.html

 

[Muhammet Okumuş]

Merhaba, kodu deneyiniz.

Sub Sırala()
Range("B2:B86") = ""
a = 1
b = 2
c = 3

For i = 2 To 85

Cells(i, 2) = Cells(1, a) & Cells(1, b) & Cells(1, c)
c = c + 1
If c = 10 Then
c = b + 2
b = b + 1
End If
If b = 9 Then
c = a + 3
b = a + 2
a = a + 1
End If
Next



End Sub

 

[rammstein_s]

Hepinize çok teşekkür ederim.