Fórmula ÚNICA para AUSENTES no Excel

[Joh2010]

=MENOR(SE(CONT.SE($B1:$P1;COL($1:$25))=0;COL($1:$25);"");COL(A1))

 

Boa pra quem tem bastante CPUs (processadores) ou threads.

A Cada modificação recalcula, demora uns 40 segundos (talvez a demora seja questão de HD ou memória com baixo Mhz).

Tem que usar as teclas CTRL+Shift+Enter juntas pra ativar

 

 

 

[genesioggs23]

11 horas atrás, Joh2010 disse:

=MENOR(SE(CONT.SE($B1:$P1;COL($1:$25))=0;COL($1:$25);"");COL(A1))

 

Boa pra quem tem bastante CPUs (processadores) ou threads.

A Cada modificação recalcula, demora uns 40 segundos (talvez a demora seja questão de HD ou memória com baixo Mhz).

Tem que usar as teclas CTRL+Shift+Enter juntas pra ativar

 

 

 

Bom dia Joh2010, vc irá postar a planilha e sem senha de acesso para o pessoal?

[kleitonKra]

Bom dia Joh2010 posta ela ai para nos testar 

[NandoADM]

Tentei aplicar essa fórmula mas não consegui... Alguém pode nos ajudar?

 

[sorel]

ola joh2010 porque nao coloca no setor  de downloards já ativada excel 2016 ou superior

[Joh2010]

Desculpe a demora, como não tenho tempo pra nomear minhas planilhas fica difícil achar no pc. Sugiro que a a partir da segunda linha vcs copiem e cole "Valores", só deixe a primeira linha com a fórmula caso use depois, pq como é fórmula matricial, pesa a planilha e recalcula a cada ajuste. Segue link: 

 

[Omesmo]

@Joh2010 

como são valores que não vão alterar com o passar do tempo considere substituir por valores fixos e deixar formula somente nas ultimas para ir arrastando

muitas formulas pesam na planilha e só é util caso se tenha que refazer recalculo a cada mudança de algum valor

[Omesmo]

@Joh2010 essa formula apesar de simples acaba sendo bem pesada por ser matricial

[sorel]

ok grande JOH, esta correto,conasegue apartir do ultimo ver as repetiçoes  mas das 10 ausentes, sim porque

 uma dezena pode ficar 3,4 sorteio sempre ausente no seu ciclo, e tem as que repetem nas ausentes, sabendo a quantidade das ausentes, as repetidas e as que continua ausentes nas 10 ausentes teremos bom filtro

[Joh2010]

7 minutos atrás, sorel disse:

ok grande JOH, esta correto,conasegue apartir do ultimo ver as repetiçoes  mas das 10 ausentes, sim porque

 uma dezena pode ficar 3,4 sorteio sempre ausente no seu ciclo, e tem as que repetem nas ausentes, sabendo a quantidade das ausentes, as repetidas e as que continua ausentes nas 10 ausentes teremos bom filtro

@sorel isso é possível, tinha uma planilha com um estudo matemático sobre esse filtro aí, na verdade tenho inúmeros filtros que percebi, boa parte já foi até embora pro ferro-velho com um hd que eu tinha. Como não tenho como filtrar os 3 milhões, pra mim não compensa ficar criando planilha novamente pq não tenho tempo livre mais!

[sorel]

ok mas nao é sobre os 3 milhoes, é apenas nas 10 ausentes, se no proximo repete ou nao,a base sao as ultimo 10 ausentes, porque para acertar nas 10 ausentes do ultimo vai ter passar sempre por isto queira ou nao, por causa da memoria das 10 ausentes, hora se em media da 6 das ausentes, 4 vai ficar de fora 60% x40%

o que precisa ver se estas 4 ja estavam sem sair mais vezes ou uma vez

[Joh2010]

1 minuto atrás, sorel disse:

ok mas nao é sobre os 3 milhoes, é apenas nas 10 ausentes, se no proximo repete ou nao,a base sao as ultimo 10 ausentes, porque para acertar nas 10 ausentes do ultimo vai ter passar sempre por isto queira ou nao, por causa da memoria das 10 ausentes, hora se em media da 6 das ausentes, 4 vai ficar de fora 60% x40%

o que precisa ver se estas 4 ja estavam sem sair mais vezes ou uma vez

Já fiz tdo isso que vc falou, a resposta é simples: vai sim se repetir essas 4 ausentes, vai ter uma média de 100 sorteios, o que é isso diante de 1939 concursos??? Como não tem programadores interessados nisso, tem que se virar com excel, o que exigem um computador de alta performance. Ninguém que tenha está nem disposto a dizer que tem pra não se comprometer. Vc hoje acha que quer um filtro, mas amanhã todos vamos precisar das melhores dezenas que correspondem ao filtro e isso que faz a planilha pesar. Se vc tiver esse super computador eu te passo as planilhas e vc gera os resultados! 

 

[Omesmo]

@Joh2010 é até possivel fazer com o excel, com vba claro,

o problema é que mesmo no vba dá um certo trabalho e tem que se mostrar interessante

tbm não dá para ficar montando tudo oq se ve ,

no final acaba se mexendo nisso por gosto, eu mesmo gosto de mexer nessas coisas mas me limito nas minhas proprias ideias  e com tempo limitado, já estou a alguns dias mexendo num filtro de sorteio e só na parte visual já que a parte logica de programação para mim é mais facil com a ideia implementada

repare nesse pedaço de codigo, esse simples filtro acaba por ser bem complexo

For L = -Lmin + 2 To lv - Lmax - 2       '-----( inicio Loop Linha )
     Pass = 0
     For i = 0 To 9
          If Ats_(i) Then
               Sai = 0
               For c = 4 To Cf2
                    If dez_(i, Array_O(L + Lin_(i), c)) > 0 Then
                         Sai = Sai + 1
                    End If
               Next
          End If
          If Ous_(i) Then
               If Sai >= Min_(i) Then Pass = Pass + 1
          Else
               If Pass = 0 Then If Sai < Min_(i) Then GoTo PULA
               Pass = 0
          End If
     Next

 

[Joh2010]

.

[sorel]

ola JOH2010, repetiçoes e ausentes mas das10 ausentes somente  é  para o proximo é bom caminho, 

ex= repetiu 9 do ultimo as outras 6 sao das 10 ausentes, mas estas 6 repetiram do ultimos 4 e deu duas a 1ª vez, este  é o controle,

[sorel]

JOH, nas ultimas 10 ausentes temos o fator do desequiibrio( quantidades de pares e impares( as terminaçoes é claro) pois o digito inicial é de 0,1,2, bom tambem podemos ver isto do digito inicail exemplo 6 dezenas das 10 ausentes  000112

 nao fiz quantas sao 000000

                                     000001

                                        .....

                                     222222

mas nao deve dar muitas, isto é para as 6 das ausentes digito inicial

 JOH, quanto mais estrategias melhor para cruzar padroes de referencias da faixa central da curva do sino

[Pataca]

20 horas atrás, NandoADM disse:

Tentei aplicar essa fórmula mas não consegui... Alguém pode nos ajudar?

 

@NandoADM Bom dia. eu também não conhecia esta fórmula, você inseriu ela como fórmula matricial? 

{=MENOR(SE(CONT.SE($B1:$P1;COL($1:$25))=0;COL($1:$25);"");COL(A1))}

[NandoADM]

6 horas atrás, Pataca disse:

@NandoADM Bom dia. eu também não conhecia esta fórmula, você inseriu ela como fórmula matricial? 

{=MENOR(SE(CONT.SE($B1:$P1;COL($1:$25))=0;COL($1:$25);"");COL(A1))}

Sim, tentei sim, como fórmula matricial, vc consegue me explicar o que é :

B1:$P1   Imagino que seja as 15 sorteadas

$1:$25    Imagino que seja os 25 possíveis

e  A1       Imagino que seja um dos 25 não presentes entre as 15

 

Mas não funciona, não tem dado certo. Então?

 

 

[Joh2010]

24 minutos atrás, NandoADM disse:

Sim, tentei sim, como fórmula matricial, vc consegue me explicar o que é :

B1:$P1   Imagino que seja as 15 sorteadas

$1:$25    Imagino que seja os 25 possíveis

e  A1       Imagino que seja um dos 25 não presentes entre as 15

 

Mas não funciona, não tem dado certo. Então?

 

 

@NandoADM postei duas planilhas, teve algum problema?

 

[Joh2010]

.

[San]

Testei aqui e funcionou. Valeu @Joh2010

@NandoADM Está dando algum erro?

[Joh2010]

Adaptei essa formula desse site: https://www.get-digital-help.com/what-values-are-missing-in-list-1-that-exists-i-list-2/ Tem todas as explicações sobre como funciona a fórmula, inclusive tem uma xls pra quem quiser  refazer o processo que fiz.

 

[Omesmo]

eu já tinha postado antes e sei que a maioria nem gosta de usar macros, mas tá aí para completar
 

Function NunAusente(ByVal Rang As Range, ByVal Ocorrencia As Long, ByVal Menor_Valor As Long, ByVal Maior_Valor As Long) As Long
     reg1 = Rang.Value2
     Lc1 = UBound(reg1, 1): Cc1 = UBound(reg1, 2)
     ocr = 0
     For v = Menor_Valor To Maior_Valor
          TtL = 0:
          GoSub tes
          If TtL = 0 Then ocr = ocr + 1
          If ocr = Ocorrencia And TtL = 0 Then NunAusente = v: Exit Function
     Next
     Exit Function
tes:
     For L = 1 To Lc1
          For c = 1 To Cc1
               If reg1(L, c) = v Then TtL = 1: Exit For
          Next: Next
     Return
End Function

=NunAusente($B4:$P4; U$1; 1; 25)

$B4:$P4=linha das dezenas do sorteio

U$1=ocorrencia a retornar," no caso de 1 a 10" , (coloquei na celul pq é mas facil do que colocar , 1, 2 ,3 ... em cada formula )

1; 25= periodo de dezenas que quer verificar faltas

Edited March 13, 2020 by Omesmo

[Joh2010]

3 minutos atrás, Omesmo disse:

eu já tinha postado

@Omesmo vc tb tinha postado uma planilha com a fórmula que compara grupos.

Ela é capaz de informar quanto uma linha de 15 premiou mais de 10 nos sorteios anteriores? 

E, é possível replicar pra todas as atuais 1939 linhas?

[Omesmo]

@Joh2010 kk nem lembro disso