permütasyon

[meslan]

Merhaba
Sn.Zeki Gürsoy Bey'in Kodlarını da kullanarak dosyanız hazır.
Sonuç almak 2 -3 dk. sürüyor.
Benden bu kadar.
Kolay gelsin

 

[Muharrem41]

zeki bey merhaba

banada böyle bir excel permütasyon dosyası lazım 123456*654321*621452 gibi sıralaması lazım tüm sonuçları yazdırmasını istiyorum
yarımlarınız için şimdiden teşekür ederim

Deneyin...

Sub test()
Dim arr() As Long
Dim sutun As Byte
Dim x As Long, y As Long, s As Long

Const L = 111110
Const U = 888888

sutun = (U \ 65536)

ReDim arr(1 To 65536, 1 To sutun)

    For x = 1 To sutun
    
        For y = 1 To 65536
        
            arr(y, x) = L + s
            
            If arr(y, x) = U Then
               GoTo bitir
            End If
            
            s = s + 1
            
        Next y
        
    Next x

bitir:
Range("a1:" & Chr$(64 + sutun) & 65536) = arr

Erase arr
End Sub

 

[Bigalı]

Benim şöyle bir sorunum var. Elimdeki rakamlar ''0123456789ABCDEF''
Bana bunların 8 haneli tüm olasılıklarını listeleyerek çıktı alacağım bir program lazım fakat aynı rakamlar tek satırda en fazla 2 kez yan yana gelmeli yada tek satırda en fazla 2 tane olmalı Yani:

AA AA F3 45 Doğru
AA 04 AA 87 Doğru
AA B2 AA AA Yanlış
FF 25 FF FF Yanlış