Wata Posted June 4, 2014 Author Share Posted June 4, 2014 Cara eu resolvi seu problema, usando Visual Basic para Excel funcionou perfeito, posso te mandar a planilha mas acredito que o jeito mais facil seria eu colocar os codigos na sua planilha, que acha? Ótimo!Se puder fazê-la, deixe na área de downloads do fórum para que todos possam utilizar.Valeu.Obrigado. ... Quote Link to comment Share on other sites More sharing options...
Guest Posted June 12, 2014 Share Posted June 12, 2014 Minha questão não é a mesma do tópico, mas vou formular aqui mesmo para não abrir outro tópico..Se alguém puder me ajudar nessa tarefa ficarei grato! Tarefa dificil...Quebrei a cabeça aqui mas não achei um jeito simples de fazer essa conferência de estatistica no excel, conferir uma combinação em cima de todos os resultados e retornar quantas vezes essa combinação ja prêmiou no histórico de sorteios..Quero fazer isso nas planilhas com desdobramentos weEfs que disponibilizei aqui no fórum, assim nas combinações geradas com o desdobramento também mostrar se as combinações geradas já premiaram alguma vez..É possivel uma fórmula mais curta? Pois formular funções celula a celula com uns 5.000 sorteios é brabo!!.Ficaria mais ou menos assim.. Quote Link to comment Share on other sites More sharing options...
Guest Posted June 13, 2014 Share Posted June 13, 2014 Bom, não achei uma maneira direta de fazer isso na J5, K5, L5, vou fazer na força bruta mesmo, criar as Matriciais de cada aba e mandar ferro. Quote Link to comment Share on other sites More sharing options...
Guest Posted June 13, 2014 Share Posted June 13, 2014 Bom, não achei uma maneira direta de fazer isso na J5, K5, L5, vou fazer na força bruta mesmo, criar as Matriciais de cada aba e mandar ferro.....Resultado. Isso é uma má idéia, a planilha fica muito pesada ''MB''..Melhor usar um soft colar e conferir lá..Fica até legal, útil, mas ''MEGABYTEMENTES'' falando, pedreira! Quote Link to comment Share on other sites More sharing options...
Guest Posted June 16, 2014 Share Posted June 16, 2014 Problema resolvido com a ajuda de um ''Chara'' Eduardo da cm excel do orkut que fez o procedimento em VBA. Ficou show de bola!.Adiante postarei ela em downloads Quote Link to comment Share on other sites More sharing options...
sniffer Posted July 27, 2014 Share Posted July 27, 2014 Oi Edu, voce ja postou a planilha ? Uma vez tentei fazer algo parecido para LF , mas ficou muito pesada, se ja postou, onde posso encontrá-la ? Grato Quote Link to comment Share on other sites More sharing options...
Guest Posted July 28, 2014 Share Posted July 28, 2014 Oi Edu, voce ja postou a planilha ? Uma vez tentei fazer algo parecido para LF , mas ficou muito pesada, se ja postou, onde posso encontrá-la ? Grato.Saudações sniffer!Sim já postei a planilha, mas sómente a da quina, veja lá em downloads ''QUINA VBA''...Fiz da LF tbm mas com macro gravado e apenas para 20 combinações, ainda não tenho essa experteza pra VBA Quote Link to comment Share on other sites More sharing options...
Shalanaya Posted November 7, 2014 Share Posted November 7, 2014 Esse tópico já era pra estar fechado... como eu disse que já resolvi esse problema em maio de 2014. Quote Link to comment Share on other sites More sharing options...
Wata Posted September 20, 2017 Author Share Posted September 20, 2017 @NandoADM Acho que é isso que vc procura. ... Quote Link to comment Share on other sites More sharing options...
NandoADM Posted September 20, 2017 Share Posted September 20, 2017 12 minutos atrás, Wata disse: @NandoADM Acho que é isso que vc procura. ... Cara eu não vi ainda.... Mas dei umas lida no que postaram por aqui e acredito que é isso mesmo.... Vou fazer os downloads das planilhas em casa e ver se é isso mesmo. De qualquer maneira, valeu mesmo, muito obrigado.... se eu puder te ajudar em alguma coisa é só falar. 1 Quote Link to comment Share on other sites More sharing options...
NandoADM Posted September 21, 2017 Share Posted September 21, 2017 Em 20/09/2017 at 18:42, NandoADM disse: Cara eu não vi ainda.... Mas dei umas lida no que postaram por aqui e acredito que é isso mesmo.... Vou fazer os downloads das planilhas em casa e ver se é isso mesmo. De qualquer maneira, valeu mesmo, muito obrigado.... se eu puder te ajudar em alguma coisa é só falar. Wata.... Consegui ficou muito legal, testei aqui e vi que é eficiente... me passa seu e-mail. Vou te passar para você fazer uma avaliação. 1 Quote Link to comment Share on other sites More sharing options...
Rambo Posted September 29, 2017 Share Posted September 29, 2017 Boa noite, Para quem não tem o código em VBA para resolver o problema da MAIOR frequência, segue o código que desenvolvi: No meu caso a planilha esta da seguinte forma: A primeira coluna tem a data do concurso Da coluna 2 até a 16 tem as dezenas sorteadas em ordem crescente A coluna 17 e 18 uso para outras estatisticas E na 19 salvo o valor da maior frequência Eu chamo essa macro diretamente na barra do excel mas pode criar um botão e chamar por ele. Sub ContMaiorSequencia() Dim SeqMaior, SeqAtual, LinIn, LinFin, col As Integer SeqMaior = 1 SeqAtual = 1 LinIn = 1 col = 2 LinFin = Range("A65536").End(xlUp).Row 'Este método retorna qual a ultima linha em que deve buscar a frequencia For LinIn = 1 To LinFin If Cells(LinIn, 19).Text = "" Then ' aqui testa se a linha já foi calculada a maior frequência para evitar processamento repetido e desnecessário For col = 2 To 15 If Cells(LinIn, col) = Cells(LinIn, col - 1) + 1 Then SeqAtual = SeqAtual + 1 Else If SeqAtual > SeqMaior Then SeqMaior = SeqAtual End If SeqAtual = 1 End If Next col Cells(LinIn, 19).Value = SeqMaior 'Aqui é onde eu mando salvar a MAIOR frequência escontrada SeqMaior = 1 Else SeqMaior = 1 Next LinIn End Sub Quote Link to comment Share on other sites More sharing options...
Wata Posted September 30, 2017 Author Share Posted September 30, 2017 45 minutos atrás, Rambo disse: Boa noite, Para quem não tem o código em VBA para resolver o problema da MAIOR frequência, segue o código que desenvolvi: No meu caso a planilha esta da seguinte forma: A primeira coluna tem a data do concurso Da coluna 2 até a 16 tem as dezenas sorteadas em ordem crescente A coluna 17 e 18 uso para outras estatisticas E na 19 salvo o valor da maior frequência Eu chamo essa macro diretamente na barra do excel mas pode criar um botão e chamar por ele. Sub ContMaiorSequencia() Dim SeqMaior, SeqAtual, LinIn, LinFin, col As Integer SeqMaior = 1 SeqAtual = 1 LinIn = 1 col = 2 LinFin = Range("A65536").End(xlUp).Row 'Este método retorna qual a ultima linha em que deve buscar a frequencia For LinIn = 1 To LinFin If Cells(LinIn, 19).Text = "" Then ' aqui testa se a linha já foi calculada a maior frequência para evitar processamento repetido e desnecessário For col = 2 To 15 If Cells(LinIn, col) = Cells(LinIn, col - 1) + 1 Then SeqAtual = SeqAtual + 1 Else If SeqAtual > SeqMaior Then SeqMaior = SeqAtual End If SeqAtual = 1 End If Next col Cells(LinIn, 19).Value = SeqMaior 'Aqui é onde eu mando salvar a MAIOR frequência escontrada SeqMaior = 1 Else SeqMaior = 1 Next LinIn End Sub ?? ... Quote Link to comment Share on other sites More sharing options...
Rambo Posted September 30, 2017 Share Posted September 30, 2017 (edited) Desculpe pelo erro, enqueci de de colocar o End If O código seria o seguinte: Sub ContMaiorSequencia() Dim SeqMaior, SeqAtual, LinIn, LinFin, col As Integer SeqMaior = 1 SeqAtual = 1 LinIn = 1 col = 2 LinFin = Range("A65536").End(xlUp).Row For LinIn = 1 To LinFin If Cells(LinIn, 19).Text = "" Then For col = 2 To 15 If Cells(LinIn, col) = Cells(LinIn, col - 1) + 1 Then SeqAtual = SeqAtual + 1 Else If SeqAtual > SeqMaior Then SeqMaior = SeqAtual End If SeqAtual = 1 End If Next col Cells(LinIn, 19).Value = SeqMaior SeqMaior = 1 Else SeqMaior = 1 End If 'Esqueci de colocar este End If Next LinIn End Sub Edited September 30, 2017 by Rambo adicionar comentário 1 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.