Este fórum está sendo desativado

[JCNeto]

Bom dia a todos

Gostaria que me ajudassem a construir uma macro que fechasse a combinação de 10 números de 6 em 6, como se fosse um jogo de loteria, mas a ordem dos numeros não importa.
Exp.

Tenho os números 1, 2, 3, 4, 5, 6, 7, 8, 9 e 10.
Teria fechar as combinações.
1, 2, 3, 4, 5 e 6
(6, 5, 4, 3, 2 e 1) não é necessário, pois a ordem dos números não importa.
1, 2, 3, 4, 5 e 7
1, 2, 3, 4, 5 e 8
....
5, 6, 7, 8, 9 e 10

Acredito que serão geradas 210 combinações diferentes.

Aguardo sugestões

Muito obrigado

JC Neto

[alexandrevba]

Bom dia!!

Use uma guia vazia, na coluna B será mostrado os resultados.

Código: Selecionar todos

Option Explicit
Option Base 0

Sub AleVBA_269()
'Criado por cytop
    Dim arrayA()              As Variant
    Dim arrayB()              As Variant
    arrayA = Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "10")
    arrayB = Array("1", "2", "3", "4", "5", "6")
     
    Dim cA                     As Long
    Dim cB                     As Long
    Dim cRow                   As Long
    cRow = 1
    For cA = 0 To UBound(arrayA)
        For cB = 0 To UBound(arrayB)
                Cells(cRow, 1) = arrayA(cA)
                Cells(cRow, 2) = arrayB(cB)
                cRow = cRow + 1
        Next cB
    Next cA
    
End Sub

Obs: O código faz a parte principal, agora tenta adaptar.

Att

[JCNeto]

Boa noite Alexandre, agradeço sua atenção, mas infelizmente ainda continuo com dúvidas! Agradeceria muito se puder continuar a me ajudar!!!!
Estou anexando uma planilha para exemplo de como + ou - seria o que preciso. Fiz uma macro simples, sem usar nenhuma lógica, pois ainda sou iniciante em VBA, só pra que verifique o que eu pretendo com a planilha.
No meu exemplo podemos escolher cinco entre sessenta dezenas e duas ou três dezenas por fechamento.

Desde já agradeço

JC Neto

[alexandrevba]

Boa tarde!!

Bom enquanto eu tento entender sua dúvida, vamos aguardar o pessoal que entendeu responder.

Att

[duds]

Boa tarde JCNeto,

Eu entendi o seu objetivo porém não consegui executá-lo, então dei uma boa pesquisada na internet e encontrei algo que acho que você vai se interessar por.
Segue em anexo o link para um artigo publicado por Hajime Yoshida (não sei mais muitos detalhes sobre ele), onde ele programou uma planilha para o ensino de conteúdos diversos. Nela se encontra o artifício que você procura entre outras funções.
Para obter o resultado que você procura, deve:

1. Ir na aba Perm&Comb
2. Clicar no botão Input Form
3. Colocar as dezenas que deverão ser Combinadas
4. Em Chose: Escolher a quantidade de algarismos
5. Selecionar a Option Box "Combinations"
6. Clicar no botão Go

Espero que te ajude.
Direitos reservados à: YOSHIDA Hajime 2001-2002

Artigo:
http://www.ne.jp/asahi/math.edu/ami/myp ... rcome2.pdf

Site para download do arquivo:
http://www.ne.jp/asahi/math.edu/ami/myprog/jk_eng.htm

Att.

[JCNeto]

Obrigado pessoal, com a ajuda do Alexandre e Eduardo entendi como fazer a macro.