3 haneli Kombinasyon listesi oluşturmak

[interstellar]

Merhaba ,

0,1,....,8,9 a kadar olan sayıların 3 haneli kombinasyonlu listelerini oluşturmak istiyorum yardımcı olabilir misiniz.

örnek
0,0,0
0,0,1
0,0,2
..
..
9,9,9

olacak şekilde sayılar arasında virgül olmasa da olur

 

[parametre]

Merhaba ,

0,1,....,8,9 a kadar olan sayıların 3 haneli kombinasyonlu listelerini oluşturmak istiyorum yardımcı olabilir misiniz.

örnek
0,0,0
0,0,1
0,0,2
..
..
9,9,9

olacak şekilde sayılar arasında virgül olmasa da olur

kombinasyon olarak aradıklarım inceleyiniz

 

[1Al2Ver]

Merhaba,

Forum'da, Kombinasyon-Permütasyon diye arama yaparsanız, bir çok öneri ve çözüm bulursunuz.

Kolay gelsin.

 

[interstellar]

Merhaba,

Aradım ve arıyorum ama bulamadım??

yönlendireceğiniz bir link varsa bakayım

 

[1Al2Ver]

Merhaba,

Örneğin ; http://www.excel.web.tr/f48/5-harfli-kombinasyon-t159213.html

 

[interstellar]

Merhaba,

Örneğin ; http://www.excel.web.tr/f48/5-harfli-kombinasyon-t159213.html

Merhaba tekrardan,

Bunu görüntülemiştim ancak şöyle bir sorun var makro bilgim olmadığı için makroyu istediğim formatta düzenleyemiyorum??

 

[1Al2Ver]

Merhaba,

Kodu düzenledim, bir bakın istediğiniz böyle bir şey mi ?

Kod; Sayın Ömer'e aittir. http://www.excel.web.tr/f47/kombinasyon-4-rakamly-t99965.html#post545241

Kolay gelsin.

 

[1Al2Ver]

Merhaba By_Tozi,

Modül'e kopyalayınız,

Sub GrupluPermutasyon()

Dim sat As Long, sut As Integer
Dim ilk As Double, son As Double
Dim S1 As Worksheet
Dim a As Byte, b As Byte, c As Byte ', d As Byte

Set S1 = Sheets("Sayfa1")
Application.ScreenUpdating = False

Sheets("Sayfa2").Select
With Cells
.ClearContents
.NumberFormat = "@"
.EntireColumn.AutoFit
.HorizontalAlignment = xlCenter
End With

Range("A1") = "Kod"
ilk = S1.Range("A1")
son = S1.Range("A" & S1.Cells(Rows.Count, "A").End(xlUp).Row)
sat = 2: sut = 1

For a = ilk To son
For b = ilk To son
For c = ilk To son
'For d = ilk To son
Cells(sat, sut) = a & b & c '& d
sat = sat + 1
If sat = Rows.Count Then sat = 2: sut = sut _
+ 1: Cells(1, sut) = "Kod"
'Next d
Next c
Next b
Next a

Application.ScreenUpdating = True
End Sub