Can we output the possible ways a number is made using a UDF?

[Juggler_IN]

The following concept at Rosetta Code got me interested Integer.

Is there a way to output a string for a given n? such as, for example,
- The integer n=5 has 7 names as “1+1+1+1+1”, “2+1+1+1”, “2+2+1”, “3+1+1”, “3+2”, “4+1”, “5”. Or,
- The integer n=4 has 5 names as “1+1+1+1”, “2+1+1”, “2+2”, “3+1”, “4”.

 

[Eric W]

Those are called partitions of a number. There's a macro here that calculates them:

Print all unique integer partitions given an integer as input CODE

I am trying to replicate the following code in VBA: IntPartitions The equivalent VBA UDF, which is not giving output, is: Function printPartitions(target As Integer, maxValue As Integer, suffix As String) If target = 0 Then printPartitions = suffix Else If (maxValue >...

www.mrexcel.com

 

[Juggler_IN]

@Eric W ; Thanks I could not relate it to integer partition.

On help, how to print the output to Sheet versus Immediate Widow?

Sub demo()
  printPartitions 4, 4, ""
End Sub

Function printPartitions(tgt As Long, max As Long, sfx As String) As String
  If tgt = 0 Then
    Debug.Print sfx
  Else
    If max > 1 Then printPartitions tgt, max - 1, sfx
    If max <= tgt Then printPartitions tgt - max, max, max & " " & sfx
  End If
End Function

 

[Eric W]

Change

Debug.Print sfx

to

Sheets("Sheet1").Cells(Rows.Count, "F").End(xlUp).Offset(1).Value = sfx

 

[Juggler_IN]

Change

Debug.Print sfx

to

Sheets("Sheet1").Cells(Rows.Count, "F").End(xlUp).Offset(1).Value = sfx

Thanks