Jump to content

(pedido) Planilha CALCULADORA do Atraso de tudo!


Joh2010

Recommended Posts

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)

 

Link to comment
Share on other sites

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.

Link to comment
Share on other sites

@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

Link to comment
Share on other sites

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.

Link to comment
Share on other sites

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.

Link to comment
Share on other sites

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?

Link to comment
Share on other sites

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.

Link to comment
Share on other sites

  • 2 years later...
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
  • Like 1
Link to comment
Share on other sites

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

 

Link to comment
Share on other sites

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.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...