Buscar o maior acerto de um conjunto

Visual Basic for Aplication e macros no Excel.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

Buscar o maior acerto de um conjunto

Mensagempor Pedepano » Ter Set 11, 2018 6:51 am

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 ?
Pedepano
Membro
Membro
 
Mensagens: 13
Registrado em: Qui Mai 24, 2018 12:11 pm
Has thanked: 5 times
Have thanks: 1 time

{ SO_SELECT }

Re: Buscar o maior acerto de um conjunto

Mensagempor JSCOPA » Ter Set 11, 2018 9:02 am

.
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)!!
.
JSCOPA
.
Se a resposta foi útil, agradeça clicando na mãozinha!! ... Se resolveu, clique em "resolvido"!!
Avatar do usuário
JSCOPA
Membro
Membro
 
Mensagens: 1247
Registrado em: Sáb Jul 04, 2009 7:54 pm
Has thanked: 201 times
Have thanks: 319 times

Re: Buscar o maior acerto de um conjunto

Mensagempor Pedepano » Ter Set 11, 2018 1:00 pm

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..
Código: Selecionar todos
Dim n como Integer
N = 0
Do até n = 10
    n = n + 1
Loop
Editado pela última vez por wagner em Ter Set 11, 2018 1:50 pm, em um total de 1 vez.
Razão: Não há necessidade de efetuar citações em resposta. Somente os trechos em que for necessários deverão ser citados
Pedepano
Membro
Membro
 
Mensagens: 13
Registrado em: Qui Mai 24, 2018 12:11 pm
Has thanked: 5 times
Have thanks: 1 time

Re: Buscar o maior acerto de um conjunto

Mensagempor wagner » Ter Set 11, 2018 1:54 pm

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.
Se a resposta foi útil para você, por gentileza, Amigo, clique na mãozinha ao lado direito da ferramenta CITAR, no canto superior direito.

Atenciosamente
Wagner Morel
Avatar do usuário
wagner
Moderador
Moderador
 
Mensagens: 4239
Registrado em: Sáb Out 20, 2012 12:49 pm
Localização: Fortaleza - CE
Has thanked: 71 times
Have thanks: 1840 times

Re: Buscar o maior acerto de um conjunto

Mensagempor GilbertoL » Seg Set 17, 2018 7:23 pm

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:
Código: Selecionar todos
https://www.sendspace.com/file/hxpcko


Essa plan utilizo para conferir jogos da LotoFacil!
GilbertoL
Membro
Membro
 
Mensagens: 9
Registrado em: Seg Jun 30, 2014 9:19 pm
Localização: São José dos Pinhais - Pr
Has thanked: 6 times
Have thanks: 0 time

Re: Buscar o maior acerto de um conjunto

Mensagempor JSCOPA » Seg Set 17, 2018 8:30 pm

.
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
JSCOPA
.
Se a resposta foi útil, agradeça clicando na mãozinha!! ... Se resolveu, clique em "resolvido"!!
Avatar do usuário
JSCOPA
Membro
Membro
 
Mensagens: 1247
Registrado em: Sáb Jul 04, 2009 7:54 pm
Has thanked: 201 times
Have thanks: 319 times

Re: Buscar o maior acerto de um conjunto

Mensagempor fcarlosc » Seg Set 17, 2018 9:40 pm

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
Avatar do usuário
fcarlosc
Membro
Membro
 
Mensagens: 429
Registrado em: Qui Jan 28, 2016 4:23 pm
Localização: São Paulo
Has thanked: 72 times
Have thanks: 96 times

Re: Buscar o maior acerto de um conjunto

Mensagempor fcarlosc » Seg Set 17, 2018 9:51 pm

Vixi não tá indo meu anexo...Compactado tem 279 Kb e tá dizendo que o tamanho máximo é de 50 Kb
Avatar do usuário
fcarlosc
Membro
Membro
 
Mensagens: 429
Registrado em: Qui Jan 28, 2016 4:23 pm
Localização: São Paulo
Has thanked: 72 times
Have thanks: 96 times

Re: Buscar o maior acerto de um conjunto

Mensagempor fcarlosc » Ter Set 18, 2018 12:36 pm

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
Avatar do usuário
fcarlosc
Membro
Membro
 
Mensagens: 429
Registrado em: Qui Jan 28, 2016 4:23 pm
Localização: São Paulo
Has thanked: 72 times
Have thanks: 96 times

Re: Buscar o maior acerto de um conjunto

Mensagempor GilbertoL » Ter Set 18, 2018 9:56 pm

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).
GilbertoL
Membro
Membro
 
Mensagens: 9
Registrado em: Seg Jun 30, 2014 9:19 pm
Localização: São José dos Pinhais - Pr
Has thanked: 6 times
Have thanks: 0 time


Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: Google Adsense [Bot] e 11 visitantes