[TUTORIAL e DÚVIDAS] Planilha da Matriz Método GAP Joh2010

[dois]

5º PASSO)

aba_1 GAP_Joh2010    (É onde a [Matriz Condicionada] 25-15-11-15 Método GAP Joh2010 é gerada/criada).

 

Para gravar o intervalo C6:Q6 para a próxima LINHA da Matriz (neste caso é a LINHA 2), clique na figura  i  e confirme.

 

 

 

[sorel]

sera que nao da para agregar no estudo valores de deltas ou distancias entre no geral e nos pares e impares separados ex 01 03 04 05 08.... valor de delta do par é 4 edos impares é 2,1 ,2

[dois]

6º PASSO)

aba_1 GAP_Joh2010    (É onde a [Matriz Condicionada] 25-15-11-15 Método GAP Joh2010 é gerada/criada).

 

A Combinação escolhida pelo Joh2010 foi a 1 da aba LinhasParaFiltrar  e após os procedimentos já descritos

foi gravada como próxima LINHA da Matriz (neste caso é a LINHA 3):

 

 

[dois]

7º PASSO)

aba_1 GAP_Joh2010    (É onde a [Matriz Condicionada] 25-15-11-15 Método GAP Joh2010 é gerada/criada).

 

A Combinação escolhida pelo Joh2010 foi a 396 da aba LinhasParaFiltrar  (vide link abaixo e alguns seguintes a ele)

e após os procedimentos já descritos foi gravada como próxima LINHA da Matriz (neste caso é a LINHA 4):

 

 

 

[dois]

8º PASSO)

aba_1 GAP_Joh2010    (É onde a [Matriz Condicionada] 25-15-11-15 Método GAP Joh2010 é gerada/criada).

 

Nenhuma Combinação foi escolhida pelo Joh2010 (vide link abaixo e alguns anteriores e seguintes a ele)

para após os procedimentos já descritos ser gravada como próxima LINHA da Matriz (neste caso é a LINHA 5):

 

 

[Joh2010]

 se eu filtrar, só as filtradas aparecerão no intervalo C6:Q6 da aba GAP_Joh2010?

 

3 horas atrás, dois disse:

 

4º PASSO...continuação)

aba_1 LinhasParaFiltrar    (É onde são gravados os CSNs quando existem mais de 1 Combinação com o MENOR GAP atual).

 

Um dos vários métodos de análise é o que comumente chamamos de FILTRAR e também há várias maneiras de se fazer.

Eis dois exemplos através do recurso Filtro do EXCEL:

 

 

 

 

 

 

[dois]

9º PASSO)

Com isto chegamos a etapa atual do projeto; Você também pode:

    a) Continuar acompanhando este Tópico básico e o Tópico técnico

    b) Escolher uma Combinação e continuar a criação da Matriz

    c) Excluir a Matriz atual e começar #DoZero a criação da Matriz

    d) Sugerir, discutir (lá no Tópico técnico) sobre assuntos referentes a esta Matriz

    e) Postar aqui comentários de dúvidas referentes a utilização da planilha.

 

Para diminuir possíveis ações muito imprevistas decorrentes de dúvida, as Macros possuem instruções que podem apresentar uma caixa de diálogo

informando e/ou orientando/alertando. Por exemplo digamos que:

Ação: Na intenção de gerar a LINHA 6, após clicar na figura Joh2010 ocorreu conforme a figura abaixo

Resposta: Significa que a LINHA 5 foi gerada mas ainda não foi gravada, Então você clica na opção não, escolhe uma Combinação

                   e grava como LINHA 5, depois você pode clicar na figura Joh2010 para gerar a LINHA 6.

Observação: Caso você clicar na opção sim, será efetuado novamente o processamento da LINHA 5.

                        Pode ser que futuramente não permita escolher, Então ficará somente opção ok.

 

 

[dois]

11 minutos atrás, Joh2010 disse:

 se eu filtrar, só as filtradas aparecerão no intervalo C6:Q6 da aba GAP_Joh2010?

 

 

De forma automática eu desconheço; mas posso colocar nas Macros; O que eu faço é o seguinte:

1.) Copio para o Notepad somente o intervalo com as Dezenas

2.) Excluo as combinações atuais

3.) Copio do Notepad para o intervalo com as Dezenas

4.) Analiso normalmente na aba GAP_Joh2010  (ela não necessita do CSN).

 

Aproveitando a orientação, você também pode desproteger a aba e:

- Colar quaisquer outras Dezenas no intervalo C6:Q6

- Colar fórmulas no intervalo C6:Q6 ,mas salve-as em algum lugar, pois no processamento o intervalo é apagado.

 

[dois]

24 minutos atrás, Joh2010 disse:

 se eu filtrar, só as filtradas aparecerão no intervalo C6:Q6 da aba GAP_Joh2010?

 

 

EXCELente idéia e que eu não havia nem pensado ..

Vou implementar isto na próxima versão.

 

À você e também aos demais: Sugestões, são sempre muitíssimo bem-vindas.

 

[dois]

6 horas atrás, Joh2010 disse:

 se eu filtrar, só as filtradas aparecerão no intervalo C6:Q6 da aba GAP_Joh2010?

 

 

6 horas atrás, dois disse:

 

EXCELente idéia e que eu não havia nem pensado ..

Vou implementar isto na próxima versão.

 

À você e também aos demais: Sugestões, são sempre muitíssimo bem-vindas.

 

 

Quem não quiser esperar, no spoiler estão as Macros com esta melhoria, basta substituir as antigas no VBA Módulo 2.

(são 2 Macros, a Sub LF_GAP_Joh2010_LPF_Anterior  e a Sub LF_GAP_Joh2010_LPF_Proxima)

Veja nas figuras abaixo, como ficará:

 

Spoiler

Sub LF_GAP_Joh2010_LPF_Anterior()
'
'Macro criada por dois em 03/05/2020
' Alterada em 01/05/2020 por dois (melhorias)
' IMPORTANTE:
'
Dim wd As Worksheet, wo As Worksheet
Dim mCelAtu As Variant, mLPFQtde  As Variant
Dim ya As Long
Dim mrng As String

Set wo = Sheets("LinhasParaFiltrar")
Set wd = ActiveSheet

mLPFQtde = wo.Range("A9").Value2
If IsNumeric(mLPFQtde) = False Then mLPFQtde = 0
mchr1310 = Chr(13) & Chr(10)
mbtipo = vbOKOnly + vbCritical
mbtitulo = wd.Name & ": Exportar Combinação da aba " & wo.Name
If mLPFQtde < 1 Then
  MsgBox "Não encontrou nenhuma Combinação.", mbtipo, mbtitulo
  Exit Sub
End If

mCelAtu = wd.Range("A6").Value2
If IsNumeric(mCelAtu) = False Or mCelAtu > mLPFQtde Then
  mCelAtu = mLPFQtde
Else
  mCelAtu = mCelAtu - 1
End If

If mCelAtu < 1 Then
  mbtipo = vbOKOnly + vbInformation
  MsgBox "Esta é a primeira Combinação encontrada.", mbtipo, mbtitulo
  Exit Sub
End If

For ya = mCelAtu + 10 To 10 Step -1
 If wo.Range("A" & ya).Rows.Hidden = False Then Exit For
Next
If ya < 11 Then
  mbtipo = vbOKOnly + vbInformation
  MsgBox "As Combinações anteriores estão ocultas pelo AutoFiltro.", mbtipo, mbtitulo
  Exit Sub
End If

wd.Unprotect
'mrng = "C" & mCelAtu + 10 & ":Q" & mCelAtu + 10
mrng = "C" & ya & ":Q" & ya
wd.Range("C6:Q6").Value2 = wo.Range(mrng).Value2
wd.Range("A6:B6").ClearContents
'wd.Range("A6").Value2 = mCelAtu
wd.Range("A6").Value2 = ya - 10
wd.Range("A6").Select
wd.Protect

End Sub



Sub LF_GAP_Joh2010_LPF_Proxima()
'
'Macro criada por dois em 03/05/2020
' Alterada em 01/05/2020 por dois (melhorias)
' IMPORTANTE:
'
Dim wd As Worksheet, wo As Worksheet
Dim mCelAtu As Variant, mLPFQtde  As Variant
Dim yp As Long
Dim mrng As String

Set wo = Sheets("LinhasParaFiltrar")
Set wd = ActiveSheet

mLPFQtde = wo.Range("A9").Value2
If IsNumeric(mLPFQtde) = False Then mLPFQtde = 0
mchr1310 = Chr(13) & Chr(10)
mbtipo = vbOKOnly + vbCritical
mbtitulo = wd.Name & ": Exportar Combinação da aba " & wo.Name
If mLPFQtde < 1 Then
  MsgBox "Não encontrou nenhuma Combinação.", mbtipo, mbtitulo
  Exit Sub
End If

mCelAtu = wd.Range("A6").Value2
If IsNumeric(mCelAtu) = False Or mCelAtu > mLPFQtde Then
  mCelAtu = 1
Else
  mCelAtu = mCelAtu + 1
End If

If mCelAtu > mLPFQtde Then
  mbtipo = vbOKOnly + vbInformation
  MsgBox "Esta é a última Combinação encontrada.", mbtipo, mbtitulo
  Exit Sub
End If

For yp = mCelAtu + 10 To mLPFQtde + 10
 If wo.Range("A" & yp).Rows.Hidden = False Then Exit For
Next
If yp > mLPFQtde + 10 Then
  mbtipo = vbOKOnly + vbInformation
  MsgBox "As próximas Combinações estão ocultas pelo AutoFiltro.", mbtipo, mbtitulo
  Exit Sub
End If

wd.Unprotect
'mrng = "C" & mCelAtu + 10 & ":Q" & mCelAtu + 10
mrng = "C" & yp & ":Q" & yp
wd.Range("C6:Q6").Value2 = wo.Range(mrng).Value2
wd.Range("A6:B6").ClearContents
'wd.Range("A6").Value2 = mCelAtu
wd.Range("A6").Value2 = yp - 10
wd.Range("A6").Select
wd.Protect

End Sub

 

 

 

 

 

[Joh2010]

 

DEPOIS DESSA ACREDITO NO QUE DISSE NUM TÓPICO QUE FIZ HÁ UM TEMPO ATRÁS:

ESTAMOS NUM LABIRINTO E ALGUÉM PASSOU POR AQUI ANTES!

ESTRANHA ESSA COINCIDÊNCIA DOS NOVOS PADRÕES E A MATRIZ GARANTIA DE 11 QUE JÁ POSTARAM HÁ TANTOS ANOS!

 

[dois]

19 minutos atrás, Joh2010 disse:

 

DEPOIS DESSA ACREDITO NO QUE DISSE NUM TÓPICO QUE FIZ HÁ UM TEMPO ATRÁS:

ESTAMOS NUM LABIRINTO E ALGUÉM PASSOU POR AQUI ANTES!

ESTRANHA ESSA COINCIDÊNCIA DOS NOVOS PADRÕES E A MATRIZ GARANTIA DE 11 QUE JÁ POSTARAM HÁ TANTOS ANOS!

 

 

 

Então são 46 Padrões.!?

Mas já eram com 5 INVICTAS ????????????????

Mais cum essas coris aí já é impussivi !!!

 

 

[Joh2010]

43 minutos atrás, dois disse:

 

 

Então são 46 Padrões.!?

Mas já eram com 5 INVICTAS ????????????????

Mais cum essas coris aí já é impussivi !!!

 

 

Isso mostra que as invictas uma hora vão acabar!

Não, eram 35!

As cores foi nós! kk

[Joh2010]

[Joh2010]

e essa seta? kk

[dois]

1 minuto atrás, Joh2010 disse:

Isso mostra que as invictas uma hora vão acabar!

As cores foi nós! kk

 

A #Curva indica que ainda vai demorar bastante até o #LockDown ..

[dois]

1 minuto atrás, Joh2010 disse:

e essa seta? kk

 

Muitíssimo interessante...

Até sugere um estudo próprio ..

 

[Joh2010]

Evito falar de política no fórum, mas eu queria saber que tipo de teste os grandes do mundo querem fazer, pq estão esvaziando cidades? Apesar que não compete a nós saber, só aceitar!

[Joh2010]

esse "segredo" do centro da seta será que os 11 estão aí?

Sou lento até pra testar... não saí ainda da linha 2 kk

[dois]

1 minuto atrás, Joh2010 disse:

Evito falar de política no fórum, mas eu queria saber que tipo de teste os grandes do mundo querem fazer, pq estão esvaziando cidades? Apesar que não compete a nós saber, só aceitar!

 

#FoiSemQuererQuerendo... #Scapuliu...

Não resisti aos efeitos da atual #Alienação

Melhor #DeixarQuieto... São todos ingênuos... #TadinhoDeles...

 

[dois]

3 minutos atrás, Joh2010 disse:

esse "segredo" do centro da seta será que os 11 estão aí?

Sou lento até pra testar... não saí ainda da linha 2 kk

 

Não sei.

Mas sei que certamente sugere um estudo próprio e vou pensar nisto.

 

[Joh2010]

@dois Será que existe alguma macro que mostre em apenas "uma célula" quantas vezes uma linha premiou mais que 10 em todos os sorteios? Em fórmulas estou tentando há meses e meses e nada.

[dois]

4 minutos atrás, Joh2010 disse:

@dois Será que existe alguma macro que mostre em apenas "uma célula" quantas vezes uma linha premiou mais que 10 em todos os sorteios? Em fórmulas estou tentando há meses e meses e nada.

 

Claro que sim... nem precisa de Macro, use esta fórmula:

=CONT.SE(range,">10")

 

[Joh2010]

9 minutos atrás, dois disse:

 

Claro que sim... nem precisa de Macro, use esta fórmula:

=CONT.SE(range,">10")

 

não assim, dessa forma aqui:

 

[Joh2010]

*mais do que 10