Neguin Posted October 23, 2018 Share Posted October 23, 2018 Boa noite, não sou muito bom com Excel, e gostaria de saber se alguém teria aí uma macro que fizesse isso para jogos da lotofácil, buscando uma média nos últimos 30 concursos, para aleatoriamente escolher uma linha em um determinado grupo de 1000 linhas de 15 ou mais dezenas a linha que mais se aproxima da média dos últimos concursos? Os 30 concursos foi apenas um exemplo pode ser mais ou menos, o que for mais viável. Não sei se isso é possível??? Neguin Sorte e Paz! Quote Link to comment Share on other sites More sharing options...
DixieJoe Posted October 23, 2018 Share Posted October 23, 2018 @Neguin O que uma linha que mais se aproxima da média? Poderia ajudar com algum exemplo? Que tipo de média? Outra questão: Escolher em quais 1000 linhas de 15? Elas serão fixas? Você tem essas 1000 linhas? E o que elas premiam no futuro? Confesso que fiquei perdido Quote Link to comment Share on other sites More sharing options...
Neguin Posted November 1, 2018 Author Share Posted November 1, 2018 Em 23/10/2018 at 06:26, DixieJoe disse: @Neguin O que uma linha que mais se aproxima da média? Poderia ajudar com algum exemplo? Que tipo de média? Outra questão: Escolher em quais 1000 linhas de 15? Elas serão fixas? Você tem essas 1000 linhas? E o que elas premiam no futuro? Confesso que fiquei perdido Bom dia, @DixieJoe, vamos simplificar gostaria de uma macro que sorteasse aleatoriamente 25 dezenas posicionadas de acordo com o intervalo que eu digitar em cada célula da planilha, exemplo: na célula A2 digito 456, A3 567, ... A25 656. Na coluna B2 coloco os números de 1 a 25, depois uso a função PROCH onde cada número está posicionado de acordo com as numerações que digitei na coluna A2 em já faço isso com a função Aleatório() mas toda vez que fecho a planilha ou mudo alguma coisa na planilha os números mudam, queria uma macro que só fizesse essa escolha ao apertar um botão. É possível fazer essa macro? Neguin Quote Link to comment Share on other sites More sharing options...
DixieJoe Posted November 1, 2018 Share Posted November 1, 2018 @Neguin Continuo no escuro. Posicionadas aqui significa posição nas linhas de 1 a 1000? Se for isso, então você já tem o conjunto de 15 dezenas, correto? Não entendi o sorteio de 25 dezenas posicionadas de acordo com o intervalo.... Estou devagar para entender o que pretende. Sem entender, não posso opinar. Quote Link to comment Share on other sites More sharing options...
Neguin Posted November 1, 2018 Author Share Posted November 1, 2018 7 horas atrás, DixieJoe disse: @Neguin Continuo no escuro. Posicionadas aqui significa posição nas linhas de 1 a 1000? Se for isso, então você já tem o conjunto de 15 dezenas, correto? Não entendi o sorteio de 25 dezenas posicionadas de acordo com o intervalo.... Estou devagar para entender o que pretende. Sem entender, não posso opinar. Boa noite, @DixieJoe , não sei se te ajuda mas segue uma imagem do que tô querendo, tem também as fórmulas que usei, mas como te disse sempre que mudo alguma celula da planilha ela muda os números, queria uma macro que só executasse quando clicasse em algum botão. Agradeço se for possível fazer essa macro? Quote Link to comment Share on other sites More sharing options...
DixieJoe Posted November 3, 2018 Share Posted November 3, 2018 @Neguin Me desculpe, Neguin, Não posso ajudar. Existem coisas que só o criador entende. Quote Link to comment Share on other sites More sharing options...
Guest Zangado Posted November 3, 2018 Share Posted November 3, 2018 @Neguin acho que a logica do que vc quer não está nada explicada pelo que entendo oq vc quer é um aleatorio dentro do sorteios primeiro um aleatorio que escolhe o numero do sorteio e depois um aleatorio que escolhe a coluna desse sorteio "ou não" hum... tá meio confuso mas se a planilha já funciona vc pode desativar o calculo automático e usar tecla de atalho para atualizar as formulas Quote Link to comment Share on other sites More sharing options...
San Posted November 3, 2018 Share Posted November 3, 2018 @edcronos2 O que eu entendi pela imagem e descritivo dele, é para "embaralhar" as 25 dezenas em duas linhas de 1 a 25 , de forma aleatória, como não há relação com nenhum concurso acho que é só isso mesmo, faltou o como ele utiliza essas linhas .... Uso algo parecido para uma linha conforme macro no spoiler Spoiler Sub Mistura() Dim list As Variant Dim rng As Range Dim t As Long, j As Long, k As Long t = 27 Set rng = Range(Cells(1, 6), Cells(1, 20)) ' onde Range(Cells(linha, coluna inicial), Cells(linha, coluna final)) do intervalo list = rng.Value t = UBound(list, 2) j = t Randomize For i = 1 To t On Error Resume Next k = Rnd() * j + 2 lngTemp = list(1, j) list(1, j) = list(1, k) list(1, k) = lngTemp j = j - 1 Next rng.Value = list End Sub Quote Link to comment Share on other sites More sharing options...
Neguin Posted November 3, 2018 Author Share Posted November 3, 2018 33 minutos atrás, San disse: @edcronos2 O que eu entendi pela imagem e descritivo dele, é para "embaralhar" as 25 dezenas em duas linhas de 1 a 25 , de forma aleatória, como não há relação com nenhum concurso acho que é só isso mesmo, faltou o como ele utiliza essas linhas .... Uso algo parecido para uma linha conforme macro no spoiler Mostrar conteúdo oculto Sub Mistura() Dim list As Variant Dim rng As Range Dim t As Long, j As Long, k As Long t = 27 Set rng = Range(Cells(1, 6), Cells(1, 20)) ' onde Range(Cells(linha, coluna inicial), Cells(linha, coluna final)) do intervalo list = rng.Value t = UBound(list, 2) j = t Randomize For i = 1 To t On Error Resume Next k = Rnd() * j + 2 lngTemp = list(1, j) list(1, j) = list(1, k) list(1, k) = lngTemp j = j - 1 Next rng.Value = list End Sub Isso mesmo @San, só que a sequência deve se manter de acordo com o intervalo A e B em ordem crescente, e depois a planilha automaticamente escolhe umas linhas de 15 de acordo com o posicionamento da linha em questão, consigo em poucas linhas de 15 acertar 09, 10 e as vezes 12 pontos. obrigado pela ajuda vou testar aqui. Sorte e Paz! Quote Link to comment Share on other sites More sharing options...
Guest Zangado Posted November 3, 2018 Share Posted November 3, 2018 @Neguin @San sobre embaralhar eu já tinha postado uma macro que embalhara conteudo de ranges, está na parte de excel Quote Link to comment Share on other sites More sharing options...
Neguin Posted November 3, 2018 Author Share Posted November 3, 2018 3 minutos atrás, edcronos2 disse: @Neguin @San sobre embaralhar eu já tinha postado uma macro que embalhara conteudo de ranges, está na parte de excel Bom dia, @DixieJoe, desculpa aí se não me expressei bem. Mas, não quero só embaralhar, quero embaralhar mais de acordo com os intervalos A e B, (na imagem), entende? Quote Link to comment Share on other sites More sharing options...
Guest Zangado Posted November 3, 2018 Share Posted November 3, 2018 @Neguin então vc não quer embaralhar, vc tá mais querendo ordenar para que fique de acordo com A e B desculpa, mas realmente nem entendi direito, como falei se a planilha já funciona o melhor para vc é definir a atualização das formulas , pelo menos é o mais facil de vc fazer Quote Link to comment Share on other sites More sharing options...
Guest Zangado Posted November 3, 2018 Share Posted November 3, 2018 @Neguin a macro, ela embaralha , é a mesma coisa que aleatório se vc só quer mudar as posições das dezenas Quote Link to comment Share on other sites More sharing options...
Neguin Posted November 3, 2018 Author Share Posted November 3, 2018 1 minuto atrás, edcronos2 disse: @Neguin a macro, ela embaralha , é a mesma coisa que aleatório se vc só quer mudar as posições das dezenas Obrigado @edcronos2, vou dar uma olhada aqui. Sorte e Paz! Quote Link to comment Share on other sites More sharing options...
Neguin Posted November 3, 2018 Author Share Posted November 3, 2018 19 minutos atrás, Pedepano disse: neguin talvez esteja faltando explicar o critério usado para definir essa classificação das dezenas. já deu para entender que vc usa a função aleatório entre ( 01 a 1000 ) para gerar números aleatórios. depois usa a função menor para classificar os números aleatórios gerados entre ( 01 a 1000 ) Depois usa a função procv para buscar os números em ordem .. se existe um tipo de critério para essa geração e preciso que vc explique mais. pois como esta sua explicação, dá a entender que vc quer apenas gerar números aleatórios entre ( 1 e 1000) e usar esses números para clssificar as 25 dezenas em ordem de posição.. não tinha prestado atenção nesse detalhe e tinha criado uma rotina para gerar jogos entre 01 a 25, mais agora vou refazer dentro do que entendi. @Pedepano, é isso mesmo que estou procurando (quero apenas gerar números aleatórios entre ( 1 e 1000) e usar esses números para classificar as 25 dezenas), apenas usei o sorteio aleatório entre 1 e 10000 para que diminuísse a ocorrência de dezenas iguais na mesma linha, você compreendeu exatamente o que quero, estou pensando numa planilha aqui que busque nestes sorteios aleatório uma maneira de reduzir linhas com determinadas dezenas de acordo com o seu posicionamento. Aguardo sua rotina para isso e desde já agradeço. Exemplo: pelo posicionamento das linhas sorteadas aleatoriamente, gerar entre 400 até 600 linhas com 19 dezenas que sempre tenha uma com 15 pontos, já que o minimo teórico é 844, segundo o cologa, seria uma redução drástica, mais acho que é possível. Sorte e Paz! Quote Link to comment Share on other sites More sharing options...
Guest Zangado Posted November 3, 2018 Share Posted November 3, 2018 @Pedepano acho que o intuito dele seria junta na posição das 15 primeiras as dezenas que vão ser pegas nesse caso a macro que postei serve Quote Link to comment Share on other sites More sharing options...
Neguin Posted November 3, 2018 Author Share Posted November 3, 2018 14 minutos atrás, Pedepano disse: @Neguin segue a planilha, fiz com base na imagem que você postou aqui. qualquer coisa da um grito.. @Pedepano, ficou perfeita era isso mesmo, e ainda ficou melhor porque posso escolher qual sorteio e intervalo sortear... SHOOOOOWWWWW. Neguin Sorte e Paz! 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.