A sütünuna 10 nun 3 lü permitasyonunu yazmak

[gencoglu27]

Değerli arkadaşlar A sütününa 1 den 10 a kadar olan sayıları 3 haneli olarak yamak istiyorum. Yani sıra önemli değil 720 satır olacak,
1,2,3
1,2,4
,,,,,
1,2,10
5,1,4
9,10,1
,,,
gibi
Teşekkür ediyorum

 

[monelogg]

Merhabalar, şu kodu yazdığımda 720 satırlık sonucu elde ettim, umarım sizin de işinize yarar.

Sub permütasyon()
For m = 1 To [a1048576].End(3).Row
For i = 1 To 10
For j = 1 To 10
For k = 1 To 10
If i <> j And i <> k And j <> k Then
Cells(m, 1).Value = i & "," & j & "," & k
m = m + 1
End If
Next k
Next j
Next i
Next m


End Sub

 

[Mustafa MUTLU]

Alternatif olsun.
Rakamlar 1 ile 10 arası olmasına gerek yok
İstediğiniz rakam arasını seçebilirsiniz.
Örneğin : 14 ile 65 arasıddaki rakamların 3 lü kombinasyonu gibi

Başlangı. rakamını B1 e Son Rakamı C1 e yazın
Kodu çalıştırın..

Sub Kombinasyon()
MM2 = 2
MM3 = 2
Range("A2:IV65536").ClearContents

For MM = [B1] To [C1]
For MM1 = MM + 1 To [C1]
For MM4 = MM1 + 1 To [C1]

If MM2 = 65530 Then
MM2 = 2
MM3 = MM3 + 4
End If

Cells(MM2, MM3) = MM
Cells(MM2, MM3 + 1) = MM1
Cells(MM2, MM3 + 2) = MM4
MM2 = MM2 + 1

Next
Next
Next
End Sub

 

[gencoglu27]

Teşekkürler
Güzel çalışıyor Monelogg arkadaşımın kodu istediğim gibi fakat Mustafa arkadaşımın kodu kombinasyon olmuş.

 

[Mustafa MUTLU]

Birleşik aynı hücreye yazmasını istiyorsan
If MM2 = 65530 Then
MM2 = 2
MM3 = MM3 + 4
End If

Cells(MM2, MM3) = MM
Cells(MM2, MM3 + 1) = MM1
Cells(MM2, MM3 + 2) = MM4

Kodları
If MM2 = 65530 Then
MM2 = 2
MM3 = MM3 + 2
End If

Cells(MM2, MM3) = MM & " | " & MM1 & " | " & MM1

Kırmızı renkli | yerine siz ne isterseniz onu yazabilirsiniz. Nokta virgül gibi..
Şeklinde Değişrtirin..