Reply to thread

Message

<blockquote data-quote="sumone" data-source="post: 1164413" data-attributes="member: 551481">aight, I was bored. here&#039;s what I was talkin about....you gotta enable macros...first column, putin digits accepted (sep. by spaces) for exmaple:&quot;0 1 2 3 4 5 6 7 8 9&quot;w/o quotes if you wanted stuff from 0-9second column put in number of place values (aka 2 digits, 3 digits, etc.)&quot;5&quot;w/o quotes if you wanted all 5-digit numbers using the numbers 0-9hit runand just so you don&#039;t think it&#039;s a virus or anything here&#039;s the code....I didn&#039;t do much error checking cause I don&#039;t really care if you put somethin in wrong. you could even use it for any character (doesn&#039;t have to be &quot;numbers&quot;).if you use big *** numbers it&#039;s gonna take a while cause all 5 digit numbers with 10 different numbers are 10^5 permutations = 100 thousand. so if you mess around and put in some huge number &amp;amp; get an overflow...oh well[CODE]Public Sub doIt()&nbsp;&nbsp; Dim thesheet As Worksheet&nbsp;&nbsp; Dim thebook As Workbook&nbsp;&nbsp; On Error GoTo waserr&nbsp;&nbsp; Set thebook = ActiveWorkbook&nbsp;&nbsp; Set thesheet = thebook.ActiveSheet&nbsp;&nbsp; Dim strDigits As String, strNumDigits As String, iNumDigits As Long&nbsp;&nbsp; Dim theDigits&nbsp;&nbsp; strDigits = thesheet.Cells(2, 1)&nbsp;&nbsp; strNumDigits = thesheet.Cells(2, 2)&nbsp;&nbsp; Err.Clear&nbsp;&nbsp; iNumDigits = CLng(strNumDigits)&nbsp;&nbsp; If Err.Number &amp;lt;&amp;gt; 0 Then&nbsp; &nbsp; &nbsp;&nbsp; GoTo waserr&nbsp;&nbsp; End If&nbsp;&nbsp; If strDigits &amp;lt;&amp;gt; &quot;&quot; Then&nbsp; &nbsp; &nbsp;&nbsp; Dim d As Long, thePositions, thePositionDigitIndexes&nbsp; &nbsp; &nbsp;&nbsp; Dim curNum As String, curIndex As Long&nbsp; &nbsp; &nbsp;&nbsp; theDigits = Split(strDigits, &quot; &quot;)&nbsp; &nbsp; &nbsp;&nbsp; ReDim Preserve theDigits(UBound(theDigits))&nbsp; &nbsp; &nbsp;&nbsp; ReDim thePositions(iNumDigits - 1)&nbsp; &nbsp; &nbsp;&nbsp; ReDim thePositionDigitIndexes(iNumDigits - 1)&nbsp; &nbsp; &nbsp;&nbsp; For d = 0 To UBound(thePositions)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; thePositions(d) = theDigits(0)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; thePositionDigitIndexes(d) = 0&nbsp; &nbsp; &nbsp;&nbsp; Next&nbsp; &nbsp; &nbsp;&nbsp; curIndex = 1&nbsp; &nbsp; &nbsp;&nbsp; curNum = &quot;&quot;&nbsp; &nbsp; &nbsp;&nbsp; Dim numTimesToDo As Long&nbsp; &nbsp; &nbsp;&nbsp; numTimesToDo = UBound(theDigits) + 1&nbsp; &nbsp; &nbsp;&nbsp; For d = 1 To UBound(thePositions)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; numTimesToDo = numTimesToDo * (UBound(theDigits) + 1)&nbsp; &nbsp; &nbsp;&nbsp; Next&nbsp; &nbsp; &nbsp;&nbsp; Dim curStuff As Long, rowOffset As Long, columnOffset As Long&nbsp; &nbsp; &nbsp;&nbsp; rowOffset = 0&nbsp; &nbsp; &nbsp;&nbsp; columnOffset = 0&nbsp; &nbsp; &nbsp;&nbsp; For curStuff = 1 To numTimesToDo&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; For d = UBound(thePositions) To 0 Step -1&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; thePositions(d) = theDigits(thePositionDigitIndexes(d))&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; Next&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; curNum = Join(thePositions, &quot;&quot;)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; If curIndex &amp;gt; 65530 Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; columnOffset = columnOffset + 2&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; curIndex = 1&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; thesheet.Cells(curIndex + 2, columnOffset + 1) = curStuff&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; thesheet.Cells(curIndex + 2, columnOffset + 2) = curNum&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; If curStuff = numTimesToDo Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; Exit For&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; End If&#039;1 2 3 / 3&#039;0 0 0 =&amp;gt; 1 1 1&#039;0 0 1 =&amp;gt; 1 1 2&#039;0 0 2 =&amp;gt; 1 1 3&#039;0 0 3 =&amp;gt; asdf 0 1 0&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; Dim lastIndex As Long&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; &#039;if last position index = last digit, set it to first digit, &amp;amp; set next position to next digit&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; lastIndex = thePositionDigitIndexes(UBound(thePositionDigitIndexes))&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; lastIndex = lastIndex + 1&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; thePositionDigitIndexes(UBound(thePositionDigitIndexes)) = lastIndex&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; For d = UBound(thePositionDigitIndexes) To 0 Step -1&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; Dim thisIndex As Long&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; thisIndex = thePositionDigitIndexes(d)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; If thisIndex &amp;gt; UBound(theDigits) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; thisIndex = 0&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; thePositionDigitIndexes(d - 1) = thePositionDigitIndexes(d - 1) + 1&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; thePositionDigitIndexes(d) = thisIndex&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; Next&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; curIndex = curIndex + 1&nbsp; &nbsp; &nbsp;&nbsp; Next&nbsp;&nbsp; End If&nbsp;&nbsp; GoTo getoutwaserr:&nbsp;&nbsp; MsgBox Err.Description, vbCritical, &quot;error&quot;getout:&nbsp;&nbsp; MsgBox &quot;i&#039;m out this *****&quot;&nbsp;&nbsp; Exit SubEnd Sub[/CODE]<a href="http:////applications/core/interface/file/attachment.php?id=112" target="_blank">permutations_stuff.zip</a></blockquote>

[QUOTE="sumone, post: 1164413, member: 551481"] aight, I was bored. here's what I was talkin about.... you gotta enable macros... first column, putin digits accepted (sep. by spaces) for exmaple: "0 1 2 3 4 5 6 7 8 9" w/o quotes if you wanted stuff from 0-9 second column put in number of place values (aka 2 digits, 3 digits, etc.) "5" w/o quotes if you wanted all 5-digit numbers using the numbers 0-9 hit run and just so you don't think it's a virus or anything here's the code....I didn't do much error checking cause I don't really care if you put somethin in wrong. you could even use it for any character (doesn't have to be "numbers"). if you use big *** numbers it's gonna take a while cause all 5 digit numbers with 10 different numbers are 10^5 permutations = 100 thousand. so if you mess around and put in some huge number & get an overflow...oh well [CODE]Public Sub doIt() Dim thesheet As Worksheet Dim thebook As Workbook On Error GoTo waserr Set thebook = ActiveWorkbook Set thesheet = thebook.ActiveSheet Dim strDigits As String, strNumDigits As String, iNumDigits As Long Dim theDigits strDigits = thesheet.Cells(2, 1) strNumDigits = thesheet.Cells(2, 2) Err.Clear iNumDigits = CLng(strNumDigits) If Err.Number <> 0 Then GoTo waserr End If If strDigits <> "" Then Dim d As Long, thePositions, thePositionDigitIndexes Dim curNum As String, curIndex As Long theDigits = Split(strDigits, " ") ReDim Preserve theDigits(UBound(theDigits)) ReDim thePositions(iNumDigits - 1) ReDim thePositionDigitIndexes(iNumDigits - 1) For d = 0 To UBound(thePositions) thePositions(d) = theDigits(0) thePositionDigitIndexes(d) = 0 Next curIndex = 1 curNum = "" Dim numTimesToDo As Long numTimesToDo = UBound(theDigits) + 1 For d = 1 To UBound(thePositions) numTimesToDo = numTimesToDo * (UBound(theDigits) + 1) Next Dim curStuff As Long, rowOffset As Long, columnOffset As Long rowOffset = 0 columnOffset = 0 For curStuff = 1 To numTimesToDo For d = UBound(thePositions) To 0 Step -1 thePositions(d) = theDigits(thePositionDigitIndexes(d)) Next curNum = Join(thePositions, "") If curIndex > 65530 Then columnOffset = columnOffset + 2 curIndex = 1 End If thesheet.Cells(curIndex + 2, columnOffset + 1) = curStuff thesheet.Cells(curIndex + 2, columnOffset + 2) = curNum If curStuff = numTimesToDo Then Exit For End If '1 2 3 / 3 '0 0 0 => 1 1 1 '0 0 1 => 1 1 2 '0 0 2 => 1 1 3 '0 0 3 => asdf 0 1 0 Dim lastIndex As Long 'if last position index = last digit, set it to first digit, & set next position to next digit lastIndex = thePositionDigitIndexes(UBound(thePositionDigitIndexes)) lastIndex = lastIndex + 1 thePositionDigitIndexes(UBound(thePositionDigitIndexes)) = lastIndex For d = UBound(thePositionDigitIndexes) To 0 Step -1 Dim thisIndex As Long thisIndex = thePositionDigitIndexes(d) If thisIndex > UBound(theDigits) Then thisIndex = 0 thePositionDigitIndexes(d - 1) = thePositionDigitIndexes(d - 1) + 1 thePositionDigitIndexes(d) = thisIndex End If Next curIndex = curIndex + 1 Next End If GoTo getout waserr: MsgBox Err.Description, vbCritical, "error" getout: MsgBox "i'm out this *****" Exit Sub End Sub[/CODE] [URL="http:////applications/core/interface/file/attachment.php?id=112"]permutations_stuff.zip[/URL] [/QUOTE]

Verification