combination of 2 letters

[salim hasan]

Find all Possible combination of 2 letters repeating 3 times​

I have the two letters S and T I want to extract all combinations of those tow letters repeating 3 times like
S T T
T T T
S S T
S S S
T S S
T T S
etc.....

 

[hrayani]

Hi,

try this code. if it helps

Sub MakeValues()
    Dim d As Object
    Dim i As Long, j As Long
    Dim strNbr As String
    Dim lngChoices As Long
    Dim mykeys
    Dim strChoice As String
    Dim lngPossibles As Long
    'change these input box inputs to pull directly from spreadsheet
    'if desired.
    strNbr = Range("A1").Value
    lngChoices = 3
 
    Set d = CreateObject("Scripting.Dictionary")
 
    'find out which digits are being used: get unique list
    For i = 1 To Len(Trim(strNbr))
        If Not d.exists(Mid(Trim(strNbr), i, 1)) Then
            d.Add Mid(Trim(strNbr), i, 1), ""
        End If
    Next i
 
    'mykeys is an array containing the unique values to
    'get the combo's from
    mykeys = d.keys()
 
    Range("C:C").Clear
    'hopefully we don't blow out the max size of i
    'of course, if we do, we won't be able to
    'output to a single column anyway :)
    lngPossibles = d.Count
    For i = 0 To (lngPossibles) ^ lngChoices - 1
        strChoice = ""
        For j = lngChoices - 1 To 0 Step -1
            strChoice = strChoice & mykeys(Int(i / (lngPossibles ^ j)) Mod lngPossibles)
        Next j
        'change i+1 to i+x to start inputing in row x
        Cells(i + 1, 3).NumberFormat = "@"
        Cells(i + 1, 3) = strChoice
    Next i
    Set d = Nothing
End Sub

 

[JamesCanale]

Here is a general solution:

MrExcelPlayground.xlsm
	A	B	C	D	E
1		1	2	4	8
2	0	S	S	S	S
3	1	T	S	S	S
4	2	S	T	S	S
5	3	T	T	S	S
6	4	S	S	T	S
7	5	T	S	T	S
8	6	S	T	T	S
9	7	T	T	T	S
10	8	S	S	S	T
11	9	T	S	S	T
12	10	S	T	S	T
13	11	T	T	S	T
14	12	S	S	T	T
15	13	T	S	T	T
16	14	S	T	T	T
17	15	T	T	T	T
Sheet26

Cell Formulas
Range	Formula
B2:E17	B2	=IF(BITAND($A2,B$1)=0,"S","T")

And a more compact specific solution:

MrExcelPlayground.xlsm
	G	H
2	0	SSS
3	1	TSS
4	2	STS
5	3	TTS
6	4	SST
7	5	TST
8	6	STT
9	7	TTT
Sheet26

Cell Formulas
Range	Formula
H2:H9	H2	=IF(BITAND($A2,1)=0,"S","T")&IF(BITAND($A2,2)=0,"S","T")&IF(BITAND($A2,4)=0,"S","T")

 

[salim hasan]

Hi,

try this code. if it helps

Sub MakeValues()
    Dim d As Object
    Dim i As Long, j As Long
    Dim strNbr As String
    Dim lngChoices As Long
    Dim mykeys
    Dim strChoice As String
    Dim lngPossibles As Long
    'change these input box inputs to pull directly from spreadsheet
    'if desired.
    strNbr = Range("A1").Value
    lngChoices = 3

    Set d = CreateObject("Scripting.Dictionary")

    'find out which digits are being used: get unique list
    For i = 1 To Len(Trim(strNbr))
        If Not d.exists(Mid(Trim(strNbr), i, 1)) Then
            d.Add Mid(Trim(strNbr), i, 1), ""
        End If
    Next i

    'mykeys is an array containing the unique values to
    'get the combo's from
    mykeys = d.keys()

    Range("C:C").Clear
    'hopefully we don't blow out the max size of i
    'of course, if we do, we won't be able to
    'output to a single column anyway :)
    lngPossibles = d.Count
    For i = 0 To (lngPossibles) ^ lngChoices - 1
        strChoice = ""
        For j = lngChoices - 1 To 0 Step -1
            strChoice = strChoice & mykeys(Int(i / (lngPossibles ^ j)) Mod lngPossibles)
        Next j
        'change i+1 to i+x to start inputing in row x
        Cells(i + 1, 3).NumberFormat = "@"
        Cells(i + 1, 3) = strChoice
    Next i
    Set d = Nothing
End Sub

Thank You hrayani

The code works like magic​

 

[hrayani]

Thank You @hrayani

The code works like magic​

You are welcome & thanks for the feedback
Regards,