Fechar combinação de números
Enviado: 21 Jun 2015 às 08:00
por 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
Re: Fechar combinação de números
Enviado: 22 Jun 2015 às 09:29
por alexandrevba
Bom dia!!
Use uma guia vazia, na coluna B será mostrado os resultados.
Código: Selecionar todosOption 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
Re: Fechar combinação de números
Enviado: 22 Jun 2015 às 23:22
por 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
Re: Fechar combinação de números
Enviado: 24 Jun 2015 às 16:33
por alexandrevba
Boa tarde!!
Bom enquanto eu tento entender sua dúvida, vamos aguardar o pessoal que entendeu responder.
Att
Fechar combinação de números
Enviado: 25 Jun 2015 às 17:30
por 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:
- Ir na aba Perm&Comb
- Clicar no botão Input Form
- Colocar as dezenas que deverão ser Combinadas
- Em Chose: Escolher a quantidade de algarismos
- Selecionar a Option Box "Combinations"
- 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.
Fechar combinação de números
Enviado: 15 Jul 2015 às 12:56
por JCNeto
Obrigado pessoal, com a ajuda do Alexandre e Eduardo entendi como fazer a macro.