dois Posted March 27, 2016 Author Share Posted March 27, 2016 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 Quote Link to comment Share on other sites More sharing options...
Guest Zangado Posted March 27, 2016 Share Posted March 27, 2016 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 Quote Link to comment Share on other sites More sharing options...
Guest Zangado Posted March 27, 2016 Share Posted March 27, 2016 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 Quote Link to comment Share on other sites More sharing options...
dois Posted March 27, 2016 Author Share Posted March 27, 2016 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 velocidadesnã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... Quote Link to comment Share on other sites More sharing options...
Guest Zangado Posted March 27, 2016 Share Posted March 27, 2016 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 Quote Link to comment Share on other sites More sharing options...
dois Posted March 27, 2016 Author Share Posted March 27, 2016 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. Quote Link to comment Share on other sites More sharing options...
dois Posted March 27, 2016 Author Share Posted March 27, 2016 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. Quote Link to comment Share on other sites More sharing options...
Guest Zangado Posted March 27, 2016 Share Posted March 27, 2016 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 Quote Link to comment Share on other sites More sharing options...
dois Posted March 27, 2016 Author Share Posted March 27, 2016 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 Quote Link to comment Share on other sites More sharing options...
dois Posted April 1, 2016 Author Share Posted April 1, 2016 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!!! Quote Link to comment Share on other sites More sharing options...
kinka Posted April 1, 2016 Share Posted April 1, 2016 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 Quote Link to comment Share on other sites More sharing options...
dois Posted April 2, 2016 Author Share Posted April 2, 2016 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!!! Quote Link to comment Share on other sites More sharing options...
dois Posted January 21, 2017 Author Share Posted January 21, 2017 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!!! Quote Link to comment Share on other sites More sharing options...
dois Posted January 22, 2017 Author Share Posted January 22, 2017 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... Quote Link to comment Share on other sites More sharing options...
dois Posted January 26, 2017 Author Share Posted January 26, 2017 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!!! 1 Quote Link to comment Share on other sites More sharing options...
dois Posted January 26, 2017 Author Share Posted January 26, 2017 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 ! Quote Link to comment Share on other sites More sharing options...
dois Posted January 26, 2017 Author Share Posted January 26, 2017 Olá à todos, Está "Aguardando Aprovação" na área de downloads !!! um abraço ! Quote Link to comment Share on other sites More sharing options...
dois Posted January 29, 2017 Author Share Posted January 29, 2017 Olá à todos, Está DISPONÍVEL na área de downloads !!! um abraço ! Quote Link to comment Share on other sites More sharing options...
lazinha Posted February 21, 2017 Share Posted February 21, 2017 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!! Quote Link to comment Share on other sites More sharing options...
dois Posted February 24, 2017 Author Share Posted February 24, 2017 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: Abra a planilha Deve exibir uma caixa de mensagem informando que deve ser aberto como somente leitura Clique no botão SIM Pronto, você poderá utilizar normalmente. 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! 1 Quote Link to comment Share on other sites More sharing options...
dois Posted February 24, 2017 Author Share Posted February 24, 2017 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: Abra a planilha Deve exibir uma caixa de mensagem informando que deve ser aberto como somente leitura Clique no botão SIM Pronto, você poderá utilizar normalmente. 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 ! Quote Link to comment Share on other sites More sharing options...
lazinha Posted February 24, 2017 Share Posted February 24, 2017 (edited) 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 Quote Link to comment Share on other sites More sharing options...
dois Posted February 24, 2017 Author Share Posted February 24, 2017 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! Quote Link to comment Share on other sites More sharing options...
lazinha Posted February 24, 2017 Share Posted February 24, 2017 ok , aguardando. obrigado! Quote Link to comment Share on other sites More sharing options...
dois Posted February 24, 2017 Author Share Posted February 24, 2017 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. 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.