How to generate permutated number ?

[ryan8200]

If I type 1234, excel with generate & permutate 24 sets of numbers like 1234,1243,1324,1342,1423,1432, 2134,2143, 2314,2341, 2413,2431,3124,3142,3214,3241,3412,3421,4123, 4132,4213,4231,4312,4321.

Is that possible to conduct in Excel ?

 

[mikerickson]

sure.
24 formulas like this will do the job
=MID(A1,1,1) & MID(A1,2,1) & MID(A1,3,1) & MID(A1,4,1)
=MID(A1,1,1) & MID(A1,2,1) & MID(A1,4,1) & MID(A1,3,1)
=MID(A1,1,1) & MID(A1,3,1) & MID(A1,2,1) & MID(A1,4,1)
=MID(A1,1,1) & MID(A1,3,1) & MID(A1,4,1) & MID(A1,2,1)
=MID(A1,1,1) & MID(A1,4,1) & MID(A1,2,1) & MID(A1,3,1)
=MID(A1,1,1) & MID(A1,4,1) & MID(A1,3,1) & MID(A1,2,1)
...

Its common that lists like this aren't needed and analysis is easier than listing.
What is the goal?

 

[T. Valko]

If I type 1234, excel with generate & permutate 24 sets of numbers like 1234,1243,1324,1342,1423,1432, 2134,2143, 2314,2341, 2413,2431,3124,3142,3214,3241,3412,3421,4123, 4132,4213,4231,4312,4321.

Is that possible to conduct in Excel ?

Maybe you can use this...

http://tinyurl.com/6okbp

 

[ryan8200]

sure.
24 formulas like this will do the job
=MID(A1,1,1) & MID(A1,2,1) & MID(A1,3,1) & MID(A1,4,1)
=MID(A1,1,1) & MID(A1,2,1) & MID(A1,4,1) & MID(A1,3,1)
=MID(A1,1,1) & MID(A1,3,1) & MID(A1,2,1) & MID(A1,4,1)
=MID(A1,1,1) & MID(A1,3,1) & MID(A1,4,1) & MID(A1,2,1)
=MID(A1,1,1) & MID(A1,4,1) & MID(A1,2,1) & MID(A1,3,1)
=MID(A1,1,1) & MID(A1,4,1) & MID(A1,3,1) & MID(A1,2,1)
...

Its common that lists like this aren't needed and analysis is easier than listing.
What is the goal?

This code isn't effective

I want to extend the permutation to 6 digits numbers

 

[ryan8200]

Maybe you can use this...

http://tinyurl.com/6okbp

When I try your code, overflow message appear why ?

 

[T. Valko]

When I try your code, overflow message appear why ?

It's not my code.

You have to select cell A1 before you run the code.

 

[ryan8200]

It's not my code.

You have to select cell A1 before you run the code.

Overflow message still appear

 

[mirabeau]

Overflow message still appear

Overflow will occur if numeric variables are declared to the wrong magnitude.

Go though the code and wherever

Dim xxx as Integer

occurs, change to

Dim xxx as Long

and if that still gives Overflow then change to

Dim xxx as Double

Here xxx just denotes any declared numeric variable.

 

[ryan8200]

Anyone can help me to generate permutations for 4 digits number without repetition ?

 

[mirabeau]

Anyone can help me to generate permutations for 4 digits number without repetition ?

OK. Here's a code of a type basically designed for something else, but run it as it stands and see if it's the sort of thing ...

Sub permutingsortofstuff()
Dim b(10 ^ 4) As Boolean, c() As Boolean
Dim u(1 To 10 ^ 3, 1 To 1)
Dim i&, g&, h&, q&
Randomize

For i = 1 To 10 ^ 4
g = 0: q = 0
ReDim c(9)
Do
x = Int(Rnd * 4 + 1)
If c(x) = False Then
    g = g + 1
    q = q & x
    c(x) = True
End If
Loop Until g = 4

If b(q) = False Then
    h = h + 1
    u(h, 1) = q
    b(q) = True
End If
Next i

Range("D1").Resize(h) = u
End Sub