[Comentários e Suporte] Planilha de inversão de matrizes Lotofácil

[dois]

veja o trecho principal do código VBA da planilha deste tópico:

 

 ''''Cria vetor/matriz das dezenas
  For yr = 1 To 25
    zjgATUAL(yr) = "S"
  Next
  For ycol = 3 To 26
    miz = Cells(ylin, ycol).Value
    If miz < 1 Then
      Exit For
    End If
    If IsNumeric(miz) = False Or miz > 25 Then
      Cells(ylin, ycol).Select
      MsgBox "CUIDADO!!!" & Chr(10) & Chr(10) & "Dezena inválida." & Chr(10) _
           & "INVERSÃO interrompida."
      Exit Sub
    End If
    zjgATUAL(miz) = "N"
  Next

 

[Guest Zangado]

9 minutos, mas eram varios arrays
no total seria  um loop de 1600 linhas x 6 colunas  x 1600 linhas x 6 colunas +1600 linhas x 60 colunas e tinha amis algumas coisas envolvidas  ou algo assim, essa eu nuca maís usei
mas como falei na maioria dos casos não é necessário maiores velocidades
não estou aqui para defender o excel, mesmo pq nem ganho nada com ele

 

 

É ISSO!!!

ISSO. ISSO, ISSO

 

são 9 "eternos" minutos... kkk (como eu disse; se comparado com "C", ou mesmo CLIPPER)

 

Dias atrás fiz um programa "teste" pra comparar performance C  versus EXCEL.... kkkkk

Proposta: Apresentar ao usuário SÓ 15.504 combinações  (20-15-15-15)

resultado em "C".........: alguns poucos segundos 

resultado em EXCEL...: interrompi o processamento após vários minutos

 

[Guest Zangado]

Function NunAusente(ByVal Rang As Range, ByVal Ocorrencia As Long, ByVal Menor As Long, ByVal Maior As Long) As Long
    reg1 = Rang.Value2
    Lc1 = UBound(reg1, 1): Cc1 = UBound(reg1, 2)
    ocr = 0
    For v = Menor To Maior
        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

Function ContarPar(ByVal Rang As Range) As Long
    reg1 = Rang.Value2: ttL = 0
    Lc1 = UBound(reg1, 1): Cc1 = UBound(reg1, 2)
    For L = 1 To Lc1
        For C = 1 To Cc1
            If reg1(L, C) Mod 2 = 0 Then ttL = ttL + 1
        Next: Next
    ContarPar = ttL
End Function

bem, na minha planilha é tudo em cima de array, mas as que disponibilizo mesmo pq é para as pessoas usarem tbm na propria planilhas são funções iguais a essas

[dois]

 

9 minutos, mas eram varios arrays
no total seria  um loop de 1600 linhas x 6 colunas  x 1600 linhas x 6 colunas +1600 linhas x 60 colunas e tinha amis algumas coisas envolvidas  ou algo assim, essa eu nuca maís usei
mas como falei na maioria dos casos não é necessário maiores velocidades
não estou aqui para defender o excel, mesmo pq nem ganho nada com ele

 

 

Longe disso... Estamos apenas trocando idéias sobre as ferramentas que usamos...

 

[Guest Zangado]

mas para grandes projetos realmente o excel não é a melhor solução, mas vc tem que concordar que é o mais pratico kkk
minhas macros não seriam dificeis de passar para C , mas por enquanto não ganho nada em fazer isso e para projeto que eu nem sei no que vai dar o excel está me servindo
acho que mesmo usando outra linguagem seja pra proteger o projeto ou deixar mais rapido o excel como interface visual ainda é mais autônomo e dinamico

imagina só, eu tenho a mania de criar ferramentas que nem mesmo me servem kkk

[dois]

 

mas para grandes projetos realmente o excel não é a melhor solução, mas vc tem que concordar que é o mais pratico kkk
minhas macros não seriam dificeis de passar para C , mas por enquanto não ganho nada em fazer isso e para projeto que eu nem sei no que vai dar o excel está me servindo
acho que mesmo usando outra linguagem seja pra proteger o projeto ou deixar mais rapido o excel como interface visual ainda é mais autônomo e dinamico

imagina só, eu tenho a mania de criar ferramentas que nem mesmo me servem kkk

 

Concordo sim, com certeza, sem dúvida alguma!!! rsrs

Como eu já disse em post anterior:

 

Eu tenho criado estes projetos em EXCEL porque todo mundo "tem" e é bem flexivel.

Quanto a performance eu sei que OO (Orientação a Objeto) tem este "custo",

mas me decepciono, principalmente por não ter 2 rotinas nativas:

macro-substituição e gerenciamento de array/vetor (preenchimento, ordenação,...).

 

Quando preciso de performance eu crio programa em CLIPPER, mas estou estudando

"C" pra ter MAIS performance e também vou estudar BD e SGDB, Então abandono

EXCEL ou, TALVEZ faça conexão entre eles.

[dois]

 

imagina só, eu tenho a mania de criar ferramentas que nem mesmo me servem kkk

 

Eu tenho tantas ferramentas pra criar que quanto mais praticidade, produtividade e performance, melhor.

[Guest Zangado]

essa macro que leva 9 minutos achei aqui não , essa que falei é de ação instantanea
para falar a verdade nem lembro oq essa de 9 minutos faz  tanto é o tempo que fiz ela kkk

[dois]

 

essa macro que leva 9 minutos achei aqui não , essa que falei é de ação instantanea
para falar a verdade nem lembro oq essa de 9 minutos faz  tanto é o tempo que fiz ela kkk

 

kkkk

 

[dois]

Em 27/03/2016 at 21:41, kinka disse:

e amigo dois  consegui alguma  coisa agora diz quando eu colo os jogos e   a 1 combinaçao nao atende o criterio para inversao e puxado .kkkkk.. quando nao é uma coisa é outra.

 

Olá Kinka,

 

Conseguiu utilizar a planilha ?

 

Estratégias, objetivos e muita disciplina...

e Ao trabalho!!!

[kinka]

ola meu amigo 2 ainda nao consegui  sempre q eu colo os jogos diz q a 1a  linha nao condiz com a inverso cuidado dezenas invalidas???

 

Em 27/03/2016 at 20:41, kinka disse:

e amigo dois  consegui alguma  coisa agora diz quando eu colo os jogos e   a 1 combinaçao nao atende o criterio para inversao e puxado .kkkkk.. quando nao é uma coisa é outra.

 

Olá Kinka,

 

Conseguiu utilizar a planilha ?

 

Estratégias, objetivos e muita disciplina...

e Ao trabalho!!!

 Curtir

•  
• Citar

[dois]

13 horas atrás, kinka disse:

ola meu amigo 2 ainda nao consegui  sempre q eu colo os jogos diz q a 1a  linha nao condiz com a inverso cuidado dezenas invalidas???

•  
• Citar

 

Olá Kinka,

 

Se você me mandar o arquivo eu posso te dizer o que está acontecendo !!!..

 

Estratégias, objetivos e muita disciplina...

e Ao trabalho!!!

[dois]

Olá à todos,

 

Melhorei drasticamente o tempo de processamento desta minha planilha,

só preciso colocar um "termômetro/barra de progresso" e disponibilizo.

PS: Aqui no meu PC i3 de 2ª geração agora faz 10.000 Linhas em +-9 segundos !!!

 

Estou iniciando estudos e análises de Conjuntos Matemáticos,

Então, está previsto também outra Planilha com Quantidade de dezenas de 2 até 99.

 

Alguém sugere algo mais ???

 

 

Estratégias, objetivos e muita disciplina...

e Ao trabalho!!!

 

[dois]

11 horas atrás, dois disse:

Melhorei drasticamente o tempo de processamento desta minha planilha,

só preciso colocar um "termômetro/barra de progresso" e disponibilizo.

PS: Aqui no meu PC i3 de 2ª geração agora faz 10.000 Linhas em +-9 segundos !!!

 

 

 

Olá à todos,

10 segundos mesmo com vários processamentos simultâneos...

 

 

[dois]

Em 26/03/2016 at 21:10, Pitaco_certo! disse:

Prezado Amigo Dois,

 

Agradeço sua gentileza em disponibilizar sua planilha de inversas!

 

Destaco três vantagens da mesma;

 

1-Em termos de capacidade, a quantidade de linhas salvo engano é a maior já disponibilizada no fórum .

 

2-Ela é otimizada, usa apenas uma única guia e usa um sistema de inversão automático.

 

3-Permite a inversão de qualquer tipo de matriz usando os limites 1-25, usando o limite de linhas estabelecido.

 

Fiz um teste usando 8568 combinações, que foram processadas de forma perfeita.

 

Levou um tempo para o processamento, consumindo grande poder de processamento máquinas menos robustas, devem demorar ainda mais, entretanto o processo é concluído com êxito!

 

Havendo alguma nova informação apresento aqui!

 

Parabéns e 

Muito obrigado!

 

 

Olá amigo forista,

 

Peço seu feedback !!!

 

O Que Há de Novo na Versão 1.1

 

Versão com tempo de processamento turbinado.

(Caso encontre algum erro, por favor me avise)

 

Meus agradecimentos aos amigos que tem me ajudado gigantescamente.

Neste caso ao irmão e parceiro  edcronos2 .

 

 

Estratégias, objetivos e muita disciplina...

e Ao trabalho!!!

 

[dois]

Em 01/04/2016 at 09:36, kinka disse:

ola meu amigo 2 ainda nao consegui  sempre q eu colo os jogos diz q a 1a  linha nao condiz com a inverso cuidado dezenas invalidas???

 

 

 

Olá,

Você está utilizando esta planilha ???

 

Lembrei-me deste ocorrido e até coloquei aviso na versão atual.

 

 

um abraço !

 

[dois]

 

Olá à todos,

 

Está "Aguardando Aprovação" na área de downloads !!!

 

 

 

um abraço !

 

[dois]

Olá à todos,

 

Está  DISPONÍVEL  na área de downloads !!!

 

 

 

um abraço !

 

[lazinha]

ola amigo  2 !!   estou precisando usar sua planilha mas pede senha, na hora de abilitar os macros. favor enviar me a senha por mp. obrigado pela planilha!!

[dois]

Em 21/02/2017 at 02:33, lazinha disse:

ola amigo  2 !!   estou precisando usar sua planilha mas pede senha, na hora de abilitar os macros. favor enviar me a senha por mp. obrigado pela planilha!!

 

Olá lazinha,

 

1,) Por favor use o recurso Citar para que possamos receber Notificação 

     assim sabemos e respondemos, OK ?

 

2.) Já te respondi na MP que me mandou, mas vou reproduzí-la aqui caso

     haja mais alguém com a mesma dúvida:

 

Olá Lazinha,

 

Graças ao nosso Amoroso, Misericordioso e Justíssimo DEUS não estive doente, estive ausente por motivos de trabalho, mas agora estou de volta

 

A proteção.da planilha não impede de utilizá-la.

Faça assim:

1. Abra a planilha
2. Deve exibir uma caixa de mensagem informando que deve ser aberto como somente leitura
3. Clique no botão SIM
4. Pronto, você poderá utilizar normalmente.
5. Caso queira salvar a Matriz: Copie e cole onde desejar ou salve a planilha com outro nome.

Por favor, me responda se conseguiu.

Caso tenha outras dúvidas é só dizer, OK ?

 

Boa $orte!

 

[dois]

Em 21/02/2017 at 02:33, lazinha disse:

ola amigo  2 !!   estou precisando usar sua planilha mas pede senha, na hora de abilitar os macros. favor enviar me a senha por mp. obrigado pela planilha!!

 

20 minutos atrás, dois disse:

1. Abra a planilha
2. Deve exibir uma caixa de mensagem informando que deve ser aberto como somente leitura
3. Clique no botão SIM
4. Pronto, você poderá utilizar normalmente.
5. Caso queira salvar a Matriz: Copie e cole onde desejar ou salve a planilha com outro nome.

 

 

Me desculpe, o correto: é

3. Clique no botão SIM

 

Entretanto, mesmo clicando no botão NÃO, ela deve abrir normalmente !!!

Eu prefiro SEMPRE abrir em modo SOMENTE LEITURA, exceto SE eu tiver

certeza que vou fazer alterações na planilha.

 

 

Boa $orte !

 

[lazinha]

ola amigo 2 dois, obrigado por responder. que bom que esta tudo bem , tenho acompanhado seus topicos e voce tinha estado doente, por isso pensei.... mas graças a Deus esta tudo bem com voce.  estou precisando inverter uma matriz, e essa planiha e uma mao na roda. agradeço!  mas nao deu certo.   quando vou colar a matriz, diz      -  a celula ou grafico que voce esta tentando alterar esta protegido, portanto, e somente leitura. para modificat celulas ou graficos protegidos, primeito remova a proteçao usando o comando desproteger planilha /guia revisar, grupo alteraçoes/. uma senha pode ser solicitada a voce.      -   ai eu fui em desproteger planilha e pede senha.  aguardo sua resposta. muito obrigado pela atençao!!

Edited February 24, 2017 by lazinha

[dois]

2 horas atrás, lazinha disse:

ola amigo 2 dois, obrigado por responder. que bom que esta tudo bem , tenho acompanhado seus topicos e voce tinha estado doente, por isso pensei.... mas graças a Deus esta tudo bem com voce.  estou precisando inverter uma matriz, e essa planiha e uma mao na roda. agradeço!  mas nao deu certo.   quando vou colar a matriz, diz      -  a celula ou grafico que voce esta tentando alterar esta protegido, portanto, e somente leitura. para modificat celulas ou graficos protegidos, primeito remova a proteçao usando o comando desproteger planilha /guia revisar, grupo alteraçoes/. uma senha pode ser solicitada a voce.      -   ai eu fui em desproteger planilha e pede senha.  aguardo sua resposta. muito obrigado pela atençao!!

 

Olá lazinha,

 

Isto significa que você consegue abrir normalmente a planilha.

Por favor, aguarde que em menos de 5 minutinhos posto a solução.

 

Boa $orte!

[lazinha]

ok , aguardando. obrigado!

[dois]

40 minutos atrás, lazinha disse:

Questão (1)

ola amigo 2 dois, obrigado por responder. que bom que esta tudo bem , tenho acompanhado seus topicos e voce tinha estado doente, por isso pensei.... mas graças a Deus esta tudo bem com voce.  

 

Questão (2)

estou precisando inverter uma matriz, e essa planiha e uma mao na roda. agradeço!  mas nao deu certo.   quando vou colar a matriz, diz      -  a celula ou grafico que voce esta tentando alterar esta protegido, portanto, e somente leitura. para modificat celulas ou graficos protegidos, primeito remova a proteçao usando o comando desproteger planilha /guia revisar, grupo alteraçoes/. uma senha pode ser solicitada a voce.      -   ai eu fui em desproteger planilha e pede senha.  aguardo sua resposta. muito obrigado pela atençao!!

 

 

Questão (1)

A saúde continua sob cuidados...

Mas realmente estive ausente por motivos de trabalho.

 

Questão (2)

A situação que você descreve geralmente ocorre quando se tenta colar um tipo de dado

incompatível com a validação que há para a célula. Neste caso, uma situação comum

é quando se tenta colar uma Matriz copiada de uma página WEB.

 

Também pode ocorrer que cada LINHA da Matriz seja colada em uma única célula

ao invés de 1 dezena por célula.

 

A solução é bem simples, basta colar utilizando a opção colar especial / valores

ou colar especial /Texto.

 

Por favor me responda se a solução resolveu o problema.

 

 

Boa $orte.