Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Number Switch Code
Does anyone have some good number shuffling code? If I
have up to 10 one digit numbers in a list, I would like to see all the different orders the numbers to go in. for example, if there were 3 numbers: 1, 3 and 5 the code would produce the following number combination orders: 1,3,5 1,5,3 3,5,1 3,1,5 5,1,3 5,3,1 Of course it gets more complicated when you add more numbers. Anyone? |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Number Switch Code
From a previous post of Myrna Larson's
Paste the following code into a module and then in cell A1 put either a C or P, in cell A2 put however many numbers you want to pull from the list of number you have, and then in cells A3 downwards put the list of numbers. then run 'List Permutations' As an addendum you can put this in any cell and you will soon see before you run it whetehr or not you can fit it all in on a sheet:- =IF(A1="C","For your data there are "&TEXT(COMBIN(COUNTA(A:A)-2,A2),"#,##0")&" Combinations",IF(A1="P","For your data there are "&TEXT(PERMUT(COUNTA(A:A)-2,A2),"#,##0")&" Permutations","You Screwed up")) Option Explicit Dim vAllItems As Variant Dim Buffer() As String Dim BufferPtr As Long Dim Results As Worksheet ' ' Posted by Myrna Larson ' July 25, 2000 ' Microsoft.Public.Excel.Misc ' Subject: Combin ' ' 'Since you asked, here it is. It is generic, i.e. it isn't written specifically 'for a given population and set size, as yours it. It will do permutations or 'combinations. It uses a recursive routine to generate the subsets, one routine 'for combinations, a different one for permutations. 'To use it, you put the letter C or P (for combinations or permutations) in a 'cell. The cell below that contains the number of items in a subset. The Cells 'below are a list of the items that make up the population. They could be 'numbers, letters and symbols, or words, etc. 'You select the top cell, or the entire range and run the sub. The subsets are 'written to a new sheet in the workbook. ' ' Sub ListPermutations() Dim Rng As Range Dim PopSize As Integer Dim SetSize As Integer Dim Which As String Dim N As Double Const BufferSize As Long = 4096 Range("A1").Select Set Rng = Selection.Columns(1).Cells If Rng.Cells.Count = 1 Then Set Rng = Range(Rng, Rng.End(xlDown)) End If PopSize = Rng.Cells.Count - 2 If PopSize < 2 Then GoTo DataError SetSize = Rng.Cells(2).Value If SetSize PopSize Then GoTo DataError Which = UCase$(Rng.Cells(1).Value) Select Case Which Case "C" N = Application.WorksheetFunction.Combin(PopSize, SetSize) Case "P" N = Application.WorksheetFunction.Permut(PopSize, SetSize) Case Else GoTo DataError End Select If N Cells.Count Then GoTo DataError Application.ScreenUpdating = False Set Results = Worksheets.Add vAllItems = Rng.Offset(2, 0).Resize(PopSize).Value ReDim Buffer(1 To BufferSize) As String BufferPtr = 0 If Which = "C" Then AddCombination PopSize, SetSize Else AddPermutation PopSize, SetSize End If vAllItems = 0 Application.ScreenUpdating = True Exit Sub DataError: If N = 0 Then Which = "Enter your data in a vertical range of at least 4 cells. " _ & String$(2, 10) _ & "Top cell must contain the letter C or P, 2nd cell is the number " _ & "of items in a subset, the cells below are the values from which " _ & "the subset is to be chosen." Else Which = "This requires " & Format$(N, "#,##0") & _ " cells, more than are available on the worksheet!" End If MsgBox Which, vbOKOnly, "DATA ERROR" Exit Sub End Sub Private Sub AddPermutation(Optional PopSize As Integer = 0, _ Optional SetSize As Integer = 0, _ Optional NextMember As Integer = 0) Static iPopSize As Integer Static iSetSize As Integer Static SetMembers() As Integer Static Used() As Integer Dim i As Integer If PopSize < 0 Then iPopSize = PopSize iSetSize = SetSize ReDim SetMembers(1 To iSetSize) As Integer ReDim Used(1 To iPopSize) As Integer NextMember = 1 End If For i = 1 To iPopSize If Used(i) = 0 Then SetMembers(NextMember) = i If NextMember < iSetSize Then Used(i) = True AddPermutation , , NextMember + 1 Used(i) = False Else SavePermutation SetMembers() End If End If Next i If NextMember = 1 Then SavePermutation SetMembers(), True Erase SetMembers Erase Used End If End Sub 'AddPermutation Private Sub AddCombination(Optional PopSize As Integer = 0, _ Optional SetSize As Integer = 0, _ Optional NextMember As Integer = 0, _ Optional NextItem As Integer = 0) Static iPopSize As Integer Static iSetSize As Integer Static SetMembers() As Integer Dim i As Integer If PopSize < 0 Then iPopSize = PopSize iSetSize = SetSize ReDim SetMembers(1 To iSetSize) As Integer NextMember = 1 NextItem = 1 End If For i = NextItem To iPopSize SetMembers(NextMember) = i If NextMember < iSetSize Then AddCombination , , NextMember + 1, i + 1 Else SavePermutation SetMembers() End If Next i If NextMember = 1 Then SavePermutation SetMembers(), True Erase SetMembers End If End Sub 'AddCombination Private Sub SavePermutation(ItemsChosen() As Integer, _ Optional FlushBuffer As Boolean = False) Dim i As Integer, sValue As String Static RowNum As Long, ColNum As Long If RowNum = 0 Then RowNum = 1 If ColNum = 0 Then ColNum = 1 If FlushBuffer = True Or BufferPtr = UBound(Buffer()) Then If BufferPtr 0 Then If (RowNum + BufferPtr - 1) Rows.Count Then RowNum = 1 ColNum = ColNum + 1 If ColNum 256 Then Exit Sub End If Results.Cells(RowNum, ColNum).Resize(BufferPtr, 1).Value _ = Application.WorksheetFunction.Transpose(Buffer()) RowNum = RowNum + BufferPtr End If BufferPtr = 0 If FlushBuffer = True Then Erase Buffer RowNum = 0 ColNum = 0 Exit Sub Else ReDim Buffer(1 To UBound(Buffer)) End If End If 'construct the next set For i = 1 To UBound(ItemsChosen) sValue = sValue & ", " & vAllItems(ItemsChosen(i), 1) Next i 'and save it in the buffer BufferPtr = BufferPtr + 1 Buffer(BufferPtr) = Mid$(sValue, 3) End Sub 'SavePermutation -- Regards Ken....................... Microsoft MVP - Excel Sys Spec - Win XP Pro / XL 00/02/03 ---------------------------------------------------------------------------- It's easier to beg forgiveness than ask permission :-) ---------------------------------------------------------------------------- "Joe B." wrote in message ... Does anyone have some good number shuffling code? If I have up to 10 one digit numbers in a list, I would like to see all the different orders the numbers to go in. for example, if there were 3 numbers: 1, 3 and 5 the code would produce the following number combination orders: 1,3,5 1,5,3 3,5,1 3,1,5 5,1,3 5,3,1 Of course it gets more complicated when you add more numbers. Anyone? --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.560 / Virus Database: 352 - Release Date: 08/01/2004 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Number Switch Code
Joe,
If you don't want to do it yourself then... I have written an Excel add-in "Display Word Combinations". It should do what you want... All possible combinations for a series of characters are determined. (alpha and or numeric) Duplicate combinations are eliminated and a listing of the result is added to the first empty column on the worksheet. Valid words in the list are highlighted and shown at the top of the list. It handles 3 to 8 character combinations and comes with a one page Word.doc install/use file. It is available (for free) upon direct request. Remove the xxx from email address. Regards, Jim Cone San Francisco, CA XX "Joe B." wrote in message ... Does anyone have some good number shuffling code? If I have up to 10 one digit numbers in a list, I would like to see all the different orders the numbers to go in. for example, if there were 3 numbers: 1, 3 and 5 the code would produce the following number combination orders: 1,3,5 1,5,3 3,5,1 3,1,5 5,1,3 5,3,1 Of course it gets more complicated when you add more numbers. Anyone? |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Number Switch Code
Joe
John Walkenbach has a Permutation Generator workbook downlaod at http://www.j-walk.com/ss/excel/tips/tip46.htm Gord Dibben Excel MVP On Sat, 10 Jan 2004 11:16:33 -0800, "Jim Cone" wrote: Joe, If you don't want to do it yourself then... I have written an Excel add-in "Display Word Combinations". It should do what you want... All possible combinations for a series of characters are determined. (alpha and or numeric) Duplicate combinations are eliminated and a listing of the result is added to the first empty column on the worksheet. Valid words in the list are highlighted and shown at the top of the list. It handles 3 to 8 character combinations and comes with a one page Word.doc install/use file. It is available (for free) upon direct request. Remove the xxx from email address. Regards, Jim Cone San Francisco, CA XX "Joe B." wrote in message ... Does anyone have some good number shuffling code? If I have up to 10 one digit numbers in a list, I would like to see all the different orders the numbers to go in. for example, if there were 3 numbers: 1, 3 and 5 the code would produce the following number combination orders: 1,3,5 1,5,3 3,5,1 3,1,5 5,1,3 5,3,1 Of course it gets more complicated when you add more numbers. Anyone? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
switch off transforming number into date | Excel Discussion (Misc queries) | |||
switch off transforming number into date | Excel Discussion (Misc queries) | |||
SWITCH NUMBER BY LETTERS | Excel Discussion (Misc queries) | |||
Convert a Number Code to a Text Code | Excel Discussion (Misc queries) | |||
switch number order | Excel Worksheet Functions |