dois Posted May 21, 2020 Author Share Posted May 21, 2020 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. Quote Link to comment Share on other sites More sharing options...
sorel Posted May 21, 2020 Share Posted May 21, 2020 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 Quote Link to comment Share on other sites More sharing options...
dois Posted May 21, 2020 Author Share Posted May 21, 2020 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): Quote Link to comment Share on other sites More sharing options...
dois Posted May 21, 2020 Author Share Posted May 21, 2020 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): Quote Link to comment Share on other sites More sharing options...
dois Posted May 21, 2020 Author Share Posted May 21, 2020 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): Quote Link to comment Share on other sites More sharing options...
Joh2010 Posted May 21, 2020 Share Posted May 21, 2020 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: 1 Quote Link to comment Share on other sites More sharing options...
dois Posted May 21, 2020 Author Share Posted May 21, 2020 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. Quote Link to comment Share on other sites More sharing options...
dois Posted May 21, 2020 Author Share Posted May 21, 2020 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. 1 Quote Link to comment Share on other sites More sharing options...
dois Posted May 21, 2020 Author Share Posted May 21, 2020 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. 1 Quote Link to comment Share on other sites More sharing options...
dois Posted May 22, 2020 Author Share Posted May 22, 2020 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 1 Quote Link to comment Share on other sites More sharing options...
Joh2010 Posted May 22, 2020 Share Posted May 22, 2020 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! 1 Quote Link to comment Share on other sites More sharing options...
dois Posted May 22, 2020 Author Share Posted May 22, 2020 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 !!! Quote Link to comment Share on other sites More sharing options...
Joh2010 Posted May 22, 2020 Share Posted May 22, 2020 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 1 Quote Link to comment Share on other sites More sharing options...
Joh2010 Posted May 22, 2020 Share Posted May 22, 2020 1 Quote Link to comment Share on other sites More sharing options...
Joh2010 Posted May 22, 2020 Share Posted May 22, 2020 e essa seta? kk 1 Quote Link to comment Share on other sites More sharing options...
dois Posted May 22, 2020 Author Share Posted May 22, 2020 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 .. 1 1 Quote Link to comment Share on other sites More sharing options...
dois Posted May 22, 2020 Author Share Posted May 22, 2020 1 minuto atrás, Joh2010 disse: e essa seta? kk Muitíssimo interessante... Até sugere um estudo próprio .. 1 Quote Link to comment Share on other sites More sharing options...
Joh2010 Posted May 22, 2020 Share Posted May 22, 2020 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! Quote Link to comment Share on other sites More sharing options...
Joh2010 Posted May 22, 2020 Share Posted May 22, 2020 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 Quote Link to comment Share on other sites More sharing options...
dois Posted May 22, 2020 Author Share Posted May 22, 2020 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... 1 1 Quote Link to comment Share on other sites More sharing options...
dois Posted May 22, 2020 Author Share Posted May 22, 2020 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. 1 Quote Link to comment Share on other sites More sharing options...
Joh2010 Posted May 22, 2020 Share Posted May 22, 2020 @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. 1 Quote Link to comment Share on other sites More sharing options...
dois Posted May 22, 2020 Author Share Posted May 22, 2020 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") Quote Link to comment Share on other sites More sharing options...
Joh2010 Posted May 22, 2020 Share Posted May 22, 2020 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: Quote Link to comment Share on other sites More sharing options...
Joh2010 Posted May 22, 2020 Share Posted May 22, 2020 *mais do que 10 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.