Notifications
Clear all

Buscar o maior acerto de um conjunto

12 Posts
6 Usuários
0 Reactions
3,298 Visualizações
(@pedepano)
Posts: 0
New Member
Topic starter
 

Pessoal como faço pra desenvolver uma rotina que faça o seguinte.

Plan1.
Tenho 100 mil linhas de 15 números
Como se fosse resultados.

Plan2
Tenho 100 mil linhas de 15 dezenas.
Como se fosse jogos.

Preciso cria uma rotina que pegue cada um dos jogos..
E confira com todos os resultados.
E me retorne na frente de cada jogo, a maior pontuação acertada

E possível criar uma rotina simply porém que me faça isso ?

 
Postado : 11/09/2018 3:51 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

.
Pedepano, de acordo com a regras do fórum, e para que a solução para seu caso não demore, sugiro postar seu arquivo (ou um exemplo idêntico)!!
.

 
Postado : 11/09/2018 6:02 am
(@pedepano)
Posts: 0
New Member
Topic starter
 

Vou posta um exemplo, porém não vai resolver muita coisa, pois a funcionalidade e que eu citei acima.

Ou talvez um código até mais simples poderia resolver.
Meu problema.

Como faço pra colocar essa rotina gerar números, porém preciso que uma célula seja definida para receber o número..

E preciso colocar uma opção onde o rotina gere até o número que eu digitar em uma célula expecifica.
==================
No caso abaixo vai gerar número de 1 até 10..

Dim n como Integer
N = 0
Do até n = 10
    n = n + 1
Loop
 
Postado : 11/09/2018 10:00 am
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

Pedepano,

Boa tarde!

Solicitamos, por gentileza, ao postar código VBA, utilizar a ferramenta CODE existente logo acima da caixa de mensagens (quinto botão da esquerda para a direito). Também pedimos não usar citações de inteiro teor das mensagens que lhe são encaminhadas. Elas são desnecessárias. As citações devem ser utilizadas apenas de pequenos trechos para o correto entendimento da mensagem que se quer enviar.

Quanto a sua demanda, não consegui compreender o que você de fato quer.

 
Postado : 11/09/2018 10:54 am
(@gilbertol)
Posts: 0
New Member
 

Segue modelo com aba resultados e com a aba N_Pontos20
Dispare a CombResult20 ela irá gerar nas colunas Y:AK o número de acertos que cada jogo fez em relação a todos os jogos.
Link para baixar:

 https://www.sendspace.com/file/hxpcko

Essa plan utilizo para conferir jogos da LotoFacil!

 
Postado : 17/09/2018 4:23 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

.
GilbertoL, gostei da sua planilha, pena que não entendi bem o funcionamento dela, para adaptar para minha plan da Mega Sena!!
.
Eu tenho uma da Mega Sena com todos os resultados desde 1996, e tenho um Bolão no trabalho de 10 cartões por jogo (mas faço para 8 concursos, assim vou na lotérica uma vez por mês)!!
.
Com fórmulas confiro os 10 jogos com o resultado ATUAL, mas sempre tive a curiosidade de saber se em outros sorteios passei perto k

 
Postado : 17/09/2018 5:30 pm
(@fcarlosc)
Posts: 0
New Member
 

Boa-noite

Segue um exemplo:

Do lado esquerdo nos jogos aumente os campos até onde precisar e do lado direito "Conferidor" e os "Acertos" , vai ter que aumentar as fórmulas conforme os jogos.

Att,

Francisco

 
Postado : 17/09/2018 6:40 pm
(@fcarlosc)
Posts: 0
New Member
 

Vixi não tá indo meu anexo...Compactado tem 279 Kb e tá dizendo que o tamanho máximo é de 50 Kb

 
Postado : 17/09/2018 6:51 pm
(@fcarlosc)
Posts: 0
New Member
 

Será preciso inserir uma "Barra de Rolagem", depois vá em "Formatar Controle" altere o "Valor máximo" e no "Vínculo da célula" coloque $AF$14

https://1drv.ms/x/s!Au6LjSjNTpLlqSBqm0ptArAcNx6L

 
Postado : 18/09/2018 9:36 am
(@gilbertol)
Posts: 0
New Member
 

JSCOPA e demais planilheiros
Com as conferências, não quero desanimá-los :( ou criar expectativas 8-), então segue o tutorial:

A Plan Resultados recebe as extrações publicadas pela caixa.

Na plan N_Pontos20:
A coluna V que indica a quantidade de pontos em determinado concurso;
A Coluna W é a soma das dezenas lançadas de B (dezena01) a U (dezena20);
As colunas Y:AK recebem valores via VBA que indicam a quantidade de acertos com 15,14..4,3 pontos;
Célula AL2 tem o comentário sobre a função do botão de comando.
Célula AM3 possui fórmula para conferir a extração de determinado sorteio que pode ser lançado na Célula AO3 e se esta estiver em branco recebe o último sorteio lançado na Plan Resultados;
As Células AM4:AM23 conferem o valor da Célula AM3 e busca as dezenas correspondentes;
Na célula AO2 tem um valor aleatório (nem eu sei porque ele está lá);
Na célula AO3 você pode lançar qualquer concurso que as células AM4:AM23 buscarão os valores correspondentes;
Caso você queira testar uma combinação de dezenas basta inserir nas células AO4:AO23, sendo que no caso da Mega Sena, serão apenas seis dezenas (AO4:AO9), assim as demais (AO10:AO23) devem ser preenchidas com valores acima de 60 para não atrapalhar as fórmulas e os cálculos de acertos.
Na Coluna AQ tem as quantidades possíveis de acertos e na Coluna AR e quantidade acertos que cada aposta teve em todos os concursos.

O Botão localizar (Coluna AL) chama a macro que classifica as apostas pelo maior números de pontos atingidos no concurso inserido ou pelas dezenas combinadas;

No VBA dispare a Macro CombResult20 e ela buscará todos os resultados em sequência e a cada resultado copiará as auantidades nas Colunas Y:AK
Veja que cada resultado altera os valores na Coluna AR.

Ps. tem erro na fórmula da Coluna W, está somando somente até a quinze (B2), tem que alterar para somar até a vinte (U2).

 
Postado : 18/09/2018 6:56 pm
(@gilbertol)
Posts: 0
New Member
 

Mais um arquivo com conferência de apostas da Mega Sena
As instruções estão nas planilhas das pastas de trabalho

https://www.sendspace.com/file/ucvo4c

 
Postado : 30/09/2018 1:34 pm
(@edcronos2)
Posts: 0
New Member
 

tem uma que fiz
https://i.pinimg.com/originals/9f/c9/71 ... 83f5bc.jpg
https://www.sendspace.com/file/82zw0b

para falar a verdade tem como fazer muito mais eficiente
e as macros foram feitas de qualquer jeito "uma bagunça só"

 
Postado : 01/10/2018 11:38 am