Preciso pegar um vetor em vba com N elementos quaisquer e realizar a combinação de tais elementos. A idéia e ter uma função que receba 2 argumentos. O vetor com os elementos a serem combinados e o tipo de combinação. 3x3, 4x4 , etc.
Caso essa ideia seja muito complicada, pois acho que deverá ser utilizado recursão poderia ser um algoritmo que realize esta tarefa por iteração. Neste caso elementos combinados 3x3.
O vetor que era o retorno da função possuirá os elementos agrupados e ao pegar os elementos agrupados eu terei a combinação desejada.
Ex: Este vetor será inserido na função, mas pode ser com quantos elementos desejar. Este é só um exemplo.
Array_Items(1)=1
Array_Items(2)=2
Array_Items(3)=3
Array_Items(4)=4
Resultado da combinação 3x3 neste vetor abaixo. Se eu pegar esse vetor de 3 em 3 elementos cada iteração me dá uma combinação. Ou seja a primeira combinação é 1,2,3; a segunda 1,2,4; a terceira 1,3,4, etc. Até o fim. A função deve trabalhar para qualquer tamanho de vetor que entrar para gerar a saída 3 a 3. (È claro sem estourar o limite do vba, mas isso é outra história). Pra combinação não importa a ordem. São únicas. O vetor que entrará como argumento da função nunca terá elementos repetidos. Ele vai ter consistência de dados antes.
Comb_array(1)=1
Comb_array(2)=2
Comb_array(3)=3
Comb_array(4)=1
Comb_array(5)=2
Comb_array(6)=4
Comb_array(7)=1
Comb_array(8)=3
Comb_array(9)=4
Comb_array(10)=2
Comb_array(11)=3
Comb_array(12)=4
vba
Imagino dois laços um dentro do outro, mas tentei escrever de trocentas maneiras e nada.
Data: 15/09/2019 Funcao que realiza todas combinacaoes 3x3 dos itens do vetor Nao implementado
Public Function aMake_Comb_x3(Array_Items() As String) As String()
Dim Index1 As Integer
Dim Index2 As Integer
Dim index3 As Integer
Dim Index4 As Integer
Dim Comb_Array() As Integer
Dim Array_Aux1() As Integer
Dim Cont As Integer
Dim Comb_Type As Integer
Dim X As Integer
Comb_Type = 3
Index1 = 1
Index2 = 2
index3 = 3
Index4 = 1
X = 2
'Redimensiona o vetor para a qtd. max. de combinacoes.
'A posicao 0 sera Ignorada, para facilitar os calculos e loops no preenchimento
ReDim Comb_Array((( WorksheetFunction. combin(UBound(Array_Items) + 1, Comb_Type)) * Comb_Type))
'Redimensiona os vetores para ignorar a posicao "0"
ReDim Array_Aux1(UBound(Array_Items) + 1)
'Preenche o vetor auxiliar
For Cont = 1 To UBound(Array_Items) + 1
Array_Aux1(Cont) = Array_Items(Cont - 1)
Next Cont
For Index4 = 1 To UBound(Comb_Array)
Comb_Array(Index4) = Array_Aux1(Index1)
Index4 = Index4 + 1
For Index2 = X To UBound(Array_Aux1)
Comb_Array(Index4) = Array_Aux1(Index2)
If Index2 Mod Comb_Type = 0 Then
Index2 = X
Exit For
End If
Index4 = Index4 + 1
'If Index4 Mod Comb_Type = 0 Then
'Index2 = Index2 * 2
'End If
Next Index2
Next Index4
End Function
Caso alguém tenha uma idéia ou link com tal algoritmo ficaria grato. Gastei um tempão tentando e nada.
Desde já agradeço pela ajuda.