Combinaçoes

Question

Bom dia! Época de Mega Sena

Como fazer combinações para jogos da Mega Sesa?

Exemplo: em 3 (1,2 e 3) números, é possível 3 combinações de 2 números, 1,2; 1,3 e 2,3

Em 10 números é possível 210 combinações de 6 números: (1 a 6), (1 a 5+7), (1 a 5+8),..... = 210 combinações

Como listar estas combinações no Excel ou Excel VBA?

Obrigado

Answer 1

Jose RobertoHaddas,

No Excel é possível saber a quantidade de combinações possíveis:

=COMBIN(60;6)

60 total de itens

6 quantidade de itens por combinação

Total de combinações possíveis 50.065.860

Para gerar uma lista com todas as combinações possíveis, só em VBA.

Para dúvidas relacionadas a VBA, acesse o fórum MSDN:

http://social.msdn.microsoft.com/Forums/pt-BR/home?forum=vbapt

Ou veja um código pronto no fórum VBMania:

http://www.vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=abrir&varID=331398

See ya!!!

Answer 2

Ola Thomas

Obrigado pela resposta.

Vi o código no VBmania:

Private Function AnaliseCombinatoria(Numero As String) As String

Dim x, y As Integer, n, s() As String, r As String

s() = Split(Numero, ";")

For x = 0 To UBound(s) - 1

    For y = x + 1 To UBound(s)

        r = r & s(x) & " - " & s(y) & vbLf

    Next y

Next x

AnaliseCombinatoria = r

End Function

1o.) Tem como você me ajudar a completar o código para aplicar no Excel?

2o.) Esse código é para Grupo de 2. Logo abaixo do código tem uma explicação do JeanCoelho para Grupos Variáveis:

"Opa funciono sim Pra quem tiver a mesma duvida é so fazer 1 For pra cada que da certo!"

Novamente, obrigado