Jump to content

(PEDIDO) Como contar atrasos?


Recommended Posts

Talvez assim @alissonsanchez.

1. Copie e cole a rotina abaixo dentro de um modulo do vba

2. Na celula K2 digite a formula  =atraso(K2) e arraste ate a célula K32

3. Retorna zero se a dezena não estiver nos dados pesquisados ou se estiver dentre as do ultimo sorteio

 

Function atraso(rng As Range) ' rng sera a célula que tem o valor a ser procurado
Application.Volatile 'calculo automatico ao alterar a planilha
LF = Cells(Rows.Count, "A").End(xlUp).Row 'determina a ultima linha preenchida
For i = 2 To LF 'loop a partir a linha 2
For j = 2 To 8 'loop ate a coluna 8
    If Cells(i, j) = rng Then ' compara o valor da célula com a posição do loop
    resultado = LF - Cells(i, j).Row ' se achou diminui para achar a diferença = atraso
    End If
    Next j
    Next i
    atraso = resultado ' resultado sai na célula correspondente na coluna"k"
End Function
 

  • Like 2
Link to comment
Share on other sites

  • 2 weeks later...

ok existe, atrasos pelo todo, existe atrasos por colunas, existe atrasos com a dezena vizinha na posiçao

existe atrasos de digitos, existe atrasos de  duplas, triplas, quadruplas, existe a soma dos atrasos, existe

 atrasos por posiçao ordem de sorteio, atrasos em grupinhos,( setores), mas cada loteria tem suas caracteristicas peculiares de ciclos e frequencia, peguar este viés de repetiçoes e  atrasos, voce esta bem em 80% dos casos

Link to comment
Share on other sites

  • 3 months later...

Primeiro formar um campo com as dezenas da modalidade

Acima dos sorteios................................................................R1...........Uma dezena em cada célula até a 25..............................................AG1

.A1....B1....................................................................P1..........01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

N°C  Resultados

A4

1      01 03 06 08 09 11 12 15 16 17 18 19 21 23 24            Na R4 coloque =SE(ÉNÚM($A4);SE(CONT.SE(R$1;$B4:$P4);$A4;"");"") arraste até AG4
2      01 02 03 04 06 07 10 11 14 16 17 18 23 24 25            Depois selecione R4:G4 e arraste por todos os sorteios para baixo e até para
3      01 03 04 05 09 10 13 15 16 17 19 21 23 24 25            quantos sorteios futuros quiser.
4      02 04 06 07 08 12 13 14 16 17 20 22 23 24 25            Na AH1 coloque =MÁXIMO(A:A) não digite número concursos futuro, acompanhe os números
5      02 03 04 05 06 08 09 10 11 12 14 17 18 22 25            Na R2 coloque =$AH$1-MÁXIMO(R$4:R$10000)   10000 quantos sorteios futuro quiser
6      02 03 04 07 09 10 12 13 14 15 16 18 22 23 25            E depois arraste até a AG1 para formar a contagem para todos os números.
7      01 02 04 05 08 11 12 13 14 15 19 21 22 24 25

.

Esse é o modelo de subtrair do total de concurso com base no último concurso que o número foi sorteado.

Não deve digitar números de sorteios futuros, se o último sorteio foi o 7 então não pode ter números de concursos abaixo 8 som que tenha números sorteados.

  • Like 1
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...