Joh2010 Posted May 24, 2020 Share Posted May 24, 2020 Será que podemos criar uma planilha que calcula QUALQUER TIPO DE ATRASO? Seja de padrões, dezenas, grupos etc (versátil)? E que também tenha quantidade considerável de possíveis cálculos (pra fazer várias contagens de uma vez) Quote Link to comment Share on other sites More sharing options...
sorel Posted May 24, 2020 Share Posted May 24, 2020 atrasos, é ciclos e tres tipos de freqeuncias= 50% mais saem 35% medio e 15% frios, pelo todo e posiçao por posiçao na crescente dos sorteio, deltas em atrasos? poderia ser tambem Quote Link to comment Share on other sites More sharing options...
Joh2010 Posted May 24, 2020 Author Share Posted May 24, 2020 2 horas atrás, sorel disse: ATRASOS GERAIS+ CICLOS EM ATRASO (OU PADRÃO OU DEZENA DO CICLO)+ DELTAS EM ATRASO Verdade poderia ser bem versátil. Eu acho que começando por pequenos grupos já ajudaria. Não sei se sei ver atrasos de "grupos" ainda, só dezena por dezena. Na correria falta tempo. Mas esses aqui já são outros temas: 3 TIPOS DE FREQUÊNCIAS= 50% mais saem 35% médio e 15% frios (tem que descobrir se esse é o melhor padrão) NA CRESCENTE DOS SORTEIOS (aqui seria ideal a FORMAÇÃO de uma "constante" pra saber a quantidade de sorteios ideal). Pelo todo e posição por posição. Quote Link to comment Share on other sites More sharing options...
Omesmo Posted May 24, 2020 Share Posted May 24, 2020 @Joh2010 essa planilha tem uma função que conta grupos https://www.comoganharnaloteria.com.br/forum/applications/core/interface/file/attachment.php?id=12291 a função tbm informa a ultima vez que saiu o grupo uma é para contar quantas vezes deu um grupo de numeros procurados coloquei para a mega, mas com pouca alteração funciona para qualquer loteria até para lotomania =Cont_grupo(1;2;3;...) =Cont_grupo(10;33) total= 28 ultimo= 1699 no caso 10 e 33 deram 28 vezes juntos e a ultima vez foi no 1699 =Cont_grupo(10;33;11) total= 1 ultimo= 1451 Function Cont_grupo(ParamArray Grupos_juntos() As Variant) Dim TG1 As Long, TtL As Long, Coluno(), L1 As Long, C1 As Long With ThisWorkbook.Worksheets("Mega-Sena") lf1 = .Cells(Rows.Count, 1).End(xlUp).Row Coluno = .Range("A2:H" & lf1).Value2 End With Cc1 = UBound(Coluno, 2) Lc1 = UBound(Coluno, 1) CC2 = UBound(Grupos_juntos, 1) For L1 = Lc1 To 1 Step -1 TtL = 0 For C1 = 3 To Cc1 For c2 = 0 To CC2 If Coluno(L1, C1) = Grupos_juntos(c2) Then TtL = TtL + 1: If TtL = CC2 + 1 Then TG1 = TG1 + 1: If TG1 = 1 Then concs = Coluno(L1, 1) GoTo lk0 End If End If Next Next lk0: Next Cont_grupo = " total= " & TG1 & " ultimo= " & concs End Function Citar With ThisWorkbook.Worksheets("Mega-Sena") <<<ABA DO RESULTADO lf1 = .Cells(Rows.Count, 1).End(xlUp).Row Coluno = .Range("A2:H" & lf1).Value2 <<< "A2:H" A=COLUNA INICIAL DO RESULTADO, 2= LINHA INICIAL DO RESULTADO, H = COLUNA FINAL DO RESULTADO End With bem tem mais algumas coisas aqui http://www.planilhando.com.br/forum/viewtopic.php?f=21&t=13912 Quote Link to comment Share on other sites More sharing options...
Joh2010 Posted May 26, 2020 Author Share Posted May 26, 2020 Em 24/05/2020 em 18:58, Omesmo disse: @Joh2010 essa planilha tem uma função que conta grupos https://www.comoganharnaloteria.com.br/forum/applications/core/interface/file/attachment.php?id=12291 a função tbm informa a ultima vez que saiu o grupo uma é para contar quantas vezes deu um grupo de numeros procurados coloquei para a mega, mas com pouca alteração funciona para qualquer loteria até para lotomania =Cont_grupo(1;2;3;...) =Cont_grupo(10;33) total= 28 ultimo= 1699 no caso 10 e 33 deram 28 vezes juntos e a ultima vez foi no 1699 =Cont_grupo(10;33;11) total= 1 ultimo= 1451 Function Cont_grupo(ParamArray Grupos_juntos() As Variant) Dim TG1 As Long, TtL As Long, Coluno(), L1 As Long, C1 As Long With ThisWorkbook.Worksheets("Mega-Sena") lf1 = .Cells(Rows.Count, 1).End(xlUp).Row Coluno = .Range("A2:H" & lf1).Value2 End With Cc1 = UBound(Coluno, 2) Lc1 = UBound(Coluno, 1) CC2 = UBound(Grupos_juntos, 1) For L1 = Lc1 To 1 Step -1 TtL = 0 For C1 = 3 To Cc1 For c2 = 0 To CC2 If Coluno(L1, C1) = Grupos_juntos(c2) Then TtL = TtL + 1: If TtL = CC2 + 1 Then TG1 = TG1 + 1: If TG1 = 1 Then concs = Coluno(L1, 1) GoTo lk0 End If End If Next Next lk0: Next Cont_grupo = " total= " & TG1 & " ultimo= " & concs End Function bem tem mais algumas coisas aqui http://www.planilhando.com.br/forum/viewtopic.php?f=21&t=13912 Desculpe a demora na resposta mas não sei como usar sua fórmula de forma de que seja versátil. Quote Link to comment Share on other sites More sharing options...
Omesmo Posted May 26, 2020 Share Posted May 26, 2020 @Joh2010 sobre como vc vai usar já não posso ajudar poso até mudar a função para se ter a parte do sorteio, 1 Quote Link to comment Share on other sites More sharing options...
Joh2010 Posted May 26, 2020 Author Share Posted May 26, 2020 9 minutos atrás, Omesmo disse: @Joh2010 sobre como vc vai usar já não posso ajudar poso até mudar a função para se ter a parte do sorteio, Exemplo: temos 53130 combinações de 5 dezenas, o interesse seria controlar apenas pra ver qual está no limite histórico do atraso. Agora nesse caso teríamos que ter como "saída": atraso máximo e no histórico e atual Ou seja não teria matemática alguma nisso, só lógica básica: "não vai ser no próximo sorteio que vai quebrar o record histórico", entende? O ideal tb era que pudesse usar como parâmetro outras coisas que não sejam números, pra ver por exemplo atraso de padrões. Quote Link to comment Share on other sites More sharing options...
Omesmo Posted May 26, 2020 Share Posted May 26, 2020 @Joh2010 eu só postei a função pq ela informa atraso do grupo de dezena procurado e quantas vezes saiu se pode servir para vc ou não só vc pode fazer testes e dizer 1 Quote Link to comment Share on other sites More sharing options...
Joh2010 Posted May 26, 2020 Author Share Posted May 26, 2020 44 minutos atrás, Omesmo disse: @Joh2010 eu só postei a função pq ela informa atraso do grupo de dezena procurado e quantas vezes saiu se pode servir para vc ou não só vc pode fazer testes e dizer Entendo, desculpe o fato de não testar pq eu vou ter aprender como colocar ela numa planilha, mas a questão é a seguinte: a função descobrirá o atraso de um grupo,blz Mas e se eu tiver mais de um grupo, se eu tiver 100 grupos? Eu vou ter que saber vba pra modificá-la? Quote Link to comment Share on other sites More sharing options...
Omesmo Posted May 26, 2020 Share Posted May 26, 2020 @Joh2010 não, ela é como uma função do proprio vba afinal pelo menos vc baixou a planilha para testar e ver como funciona? Quote Link to comment Share on other sites More sharing options...
Joh2010 Posted May 26, 2020 Author Share Posted May 26, 2020 26 minutos atrás, Omesmo disse: @Joh2010 não, ela é como uma função do proprio vba afinal pelo menos vc baixou a planilha para testar e ver como funciona? @Omesmo Quote Link to comment Share on other sites More sharing options...
Joh2010 Posted May 26, 2020 Author Share Posted May 26, 2020 *56 não= 55! Quote Link to comment Share on other sites More sharing options...
Omesmo Posted May 26, 2020 Share Posted May 26, 2020 @Joh2010 sabe usar o excel, viu as formulas, seguiu como elas estão? =Cont_grupo($D18;J$16) quer dizer que está pegando 2 celulas no caso coluna e linha =Cont_grupo(F4;G4;H4) 3 celulas = 3 dezenas 1 Quote Link to comment Share on other sites More sharing options...
Joh2010 Posted May 26, 2020 Author Share Posted May 26, 2020 Entendi, ela conta grupos, e até mtos jogos! Quote Link to comment Share on other sites More sharing options...
Joh2010 Posted May 26, 2020 Author Share Posted May 26, 2020 Pra: ver se atualmente ele está no "ápice histórico sem premiação", daí sairia resposta se ele seria escolhido pro próximo sorteio. Desculpe se me expressei mal nas explicação, mas questão do tópico era a seguinte: a necessidade era que ela informasse o maior tempo QUE JÁ ESTEVE sem premiar a dezena ou grupo no histórico. Quote Link to comment Share on other sites More sharing options...
viniciuscampos Posted January 8, 2023 Share Posted January 8, 2023 alguem pode repostar o link dessa planilha, por favor ? Quote Link to comment Share on other sites More sharing options...
Omesmo Posted January 8, 2023 Share Posted January 8, 2023 4 horas atrás, viniciuscampos disse: alguem pode repostar o link dessa planilha, por favor ? estava ali em cima essa planilha tem uma função que conta grupos https://www.comoganharnaloteria.com.br/forum/applications/core/interface/file/attachment.php?id=12291 Quote Link to comment Share on other sites More sharing options...
viniciuscampos Posted January 9, 2023 Share Posted January 9, 2023 18 horas atrás, Omesmo disse: estava ali em cima essa planilha tem uma função que conta grupos https://www.comoganharnaloteria.com.br/forum/applications/core/interface/file/attachment.php?id=12291 Eu vi, mas o link esta indisponível. Ja nao funciona. Quote Link to comment Share on other sites More sharing options...
Omesmo Posted January 9, 2023 Share Posted January 9, 2023 4 horas atrás, viniciuscampos disse: Eu vi, mas o link esta indisponível. Ja nao funciona. funciona sim, mas acho que vc por ser membro novato nao consegue baixar mas acho qque é para mega e creio que vc quer para a loto facil e tem que modificar a macro mas bem, a macro está aí para ser usada pelo menos vc sabe como colocar uma macro num modulo? se souber coloca o resultado da lf da sua planilha numa aba chamada "lotofacil" coloca o resultado a parti da linha 2 e começando na coluna "A" o resultado tem que ter o numero do sorteio , data, e dezenas uma em cada coluna e modifique a macro"função" essa parte With ThisWorkbook.Worksheets("Mega-Sena") lf1 = .Cells(Rows.Count, 1).End(xlUp).Row Coluno = .Range("A2:H" & lf1).Value2 para With ThisWorkbook.Worksheets("lotofacil") 'indica nome da aba onde tem o resultado lf1 = .Cells(Rows.Count, 1).End(xlUp).Row Coluno = .Range("A2:Q" & lf1).Value2' pega range onde está o resultado 1 Quote Link to comment Share on other sites More sharing options...
viniciuscampos Posted January 11, 2023 Share Posted January 11, 2023 tive que fazer algumas modificações no Codigo, mas consegui chegar ao resultado almejado. Vou aos poucos melhorando e automatizando a planilha. Grupo 7 dezenas com maior frequencia ultimos 100 jogos e seu respectivo atraso. 01 03 04 08 11 13 15 total= 7 ultimo= 2706 2699 2696 2692 2674 2667 2636 atraso= 4 7 3 4 18 7 31 01 03 04 09 16 18 22 total= 7 ultimo= 2701 2696 2661 2647 2643 2634 2616 atraso= 9 5 35 14 4 9 18 01 03 04 09 18 22 25 total= 7 ultimo= 2706 2701 2661 2647 2643 2636 2616 atraso= 4 5 40 14 4 7 20 01 03 05 06 16 19 25 total= 7 ultimo= 2708 2663 2654 2652 2647 2618 2613 atraso= 2 45 9 2 5 29 5 01 03 05 08 10 12 17 total= 6 ultimo= 2698 2661 2657 2652 2622 2617 atraso= 12 37 4 5 30 5 01 03 05 08 12 17 24 total= 6 ultimo= 2698 2690 2657 2652 2641 2617 atraso= 12 8 33 5 11 24 01 03 05 13 18 22 24 total= 7 ultimo= 2701 2696 2661 2647 2643 2634 2616 atraso= 9 5 35 14 4 9 18 01 03 06 09 16 17 25 total= 7 ultimo= 2661 2654 2647 2633 2630 2618 2612 atraso= 49 7 7 14 3 12 6 01 03 06 09 16 18 25 total= 7 ultimo= 2661 2647 2643 2633 2618 2616 2612 atraso= 49 14 4 10 15 2 4 01 03 06 10 13 17 25 total= 7 ultimo= 2654 2647 2630 2622 2617 2614 2612 atraso= 56 7 17 8 5 3 2 01 03 06 10 16 17 25 total= 7 ultimo= 2661 2654 2652 2647 2630 2614 2612 atraso= 49 7 2 5 17 16 2 01 03 06 13 16 19 25 total= 8 ultimo= 2708 2663 2660 2654 2647 2643 2614 2612 atraso= 2 45 3 6 7 4 29 2 01 03 06 16 18 19 25 total= 9 ultimo= 2708 2663 2660 2647 2643 2633 2618 2613 2612 atraso= 2 45 3 13 4 10 15 5 1 04 09 10 12 13 20 25 total= 9 ultimo= 2684 2679 2675 2656 2637 2628 2625 2622 2619 atraso= 26 5 4 19 19 9 3 3 3 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.