Ir ao conteúdo
  • Cadastre-se

Marcela da Silva de Souza

Membro Pleno
  • Posts

    123
  • Cadastrado em

  • Última visita

  1. Ok. mas eu não sei onde está o ero o problema é esse só mostra erro de execução quando eu coloco no excel.
  2. Bom dia gente, esse código está dando erro de compilação preciso de compila lo alguém ajuda? Sub Main() Dim I, J, N, T, R, W As Integer Dim iVetor(12), iConta As Integer Dim iColuna, iArq, x, y As Integer Dim sTipo As String iConta = 0 iColuna = 3 iArq = FreeFile Open ThisWorkbook.Path & "\COMBINACOES.TXT" For Output As iArq For J = 0 To 11 Do iVetor(J) = InputBox("Numero " & J + 1) N = 0 If iVetor(J) < 1 Or iVetor(J) > 99 Then N = 1 For R = 0 To 12 If iVetor(J) = iVetor(R) And J <> R Then N = 1 Next R Loop While N Next J For J = 0 To 10 For W = J + 1 To 11 If iVetor(J) > iVetor(W) Then T = iVetor(J) iVetor(J) = iVetor(W) iVetor(W) = T End If Next W Next J For J = 0 To 11 x = Int(iVetor(J) / 10) y = Int(iVetor(J) Mod 10) sTipo = IIf(x Mod 2 = 0, "P", "I") sTipo = sTipo & IIf(y Mod 2 = 0, "P", "I") If x = 0 Then x = 10 If y = 0 Then y = 10 R = Abs(y - x) Cells(1, iColuna) = sTipo Cells(2, iColuna) = iVetor(J) Cells(3, iColuna) = y & "-" & x & "=" & R iColuna = iColuna + 1 Next J For I = 0 To 5 For J = I + 1 To 11 For N = J + 1 To 11 For R = N + 1 To 11 For T = R + 1 To 11 For W = T + 1 To 11 iConta = iConta + 1 Print #iArq, _ iConta & " -> " & iVetor(I) & " - " & _ iVetor(J) & " - " & iVetor(N) & " - " & _ iVetor(R) & " - " & iVetor(T) & " - " & iVetor(W) Next W Next T Next R Next N Next J Next I Close #iArq Cells(4, 3) = "Total de Cartões =>" & iConta End Sub E eu gostaria que juntasse as funções dele com esse outro código que escolhe a quantidade que o usuário quer: Sub Main() Dim I, J, N, T, R, W, Z As Integer Dim iVetor() As Integer Dim iColuna, iArq, x, y As Integer Dim iNumeros As Integer Dim iConta As Long Dim sTipo As String iConta = 0 iColuna = 3 iArq = FreeFile Open ThisWorkbook.Path & "\COMBINACOES.TXT" For Output As iArq iNumeros = InputBox("Entre com a quantidade de números") ReDim iVetor(iNumeros) iNumeros = iNumeros - 1 For J = 0 To iNumeros Do iVetor(J) = InputBox("Numero " & J + 1) N = 0 If iVetor(J) < 1 Or iVetor(J) > 99 Then N = 1 For R = 0 To iNumeros If iVetor(J) = iVetor(R) And J <> R Then N = 1 Next R Loop While N Next J For J = 0 To iNumeros - 1 For W = J + 1 To iNumeros If iVetor(J) > iVetor(W) Then T = iVetor(J) iVetor(J) = iVetor(W) iVetor(W) = T End If Next W Next J For J = 0 To iNumeros - 1 For Z = J + 1 To iNumeros If iVetor(J) > iVetor(Z) Then T = iVetor(J) iVetor(J) = iVetor(Z) iVetor(Z) = R End If Next Z Next J For J = 0 To iNumeros x = Int(iVetor(J) / 10) y = Int(iVetor(J) Mod 10) sTipo = IIf(x Mod 2 = 0, "P", "I") sTipo = sTipo & IIf(y Mod 2 = 0, "P", "I") If x = 0 Then x = 10 If y = 0 Then y = 10 R = Abs(y - x) Cells(1, iColuna) = sTipo Cells(2, iColuna) = iVetor(J) Cells(3, iColuna) = y & "-" & x & "=" & R iColuna = iColuna + 1 Next J For I = 0 To 6 For J = I + 1 To iNumeros For N = J + 1 To iNumeros For R = N + 1 To iNumeros For T = R + 1 To iNumeros For W = T + 1 To iNumeros For Z = T + 1 To iNumeros iConta = iConta + 1 Print #iArq, _ iConta & " -> " & iVetor(I) & " - " & _ iVetor(J) & " - " & iVetor(N) & " - " & _ iVetor(R) & " - " & iVetor(T) & " - " & iVetor(W) - " & iVetor(W)" Next Z Next W Next T Next R Next N Next J Next I Close #iArq Cells(4, 3) = "Total de Cartões =>" & iConta End Sub adicionado 1 minuto depois Motivo: vou para a roça longe de internet e civilização rsrsrs adicionado 5 minutos depois Ou melhor o primeiro código tá dando erro de execução
  3. Olá boa tarde eu gostaria de saber se se eu quiser mudar os valores no código como devo fazer? Obrigada
  4. OLÁ,eu consegui compilar pois eu tinha copiado digitando, mas eu gostaria que a macro reagisse aos valores que eu mudo na planília.E eu gostaria que esse código estivesse junto com o anterior para eu obter todos os resultados na mesma planília. Obrigada boa noite.
  5. Não estou encontrando o erro de compilação será que alguém pode me ajudar...Boa noite.
  6. Boa noite, será que alguém poderia ajudar a ver o que seria mais adequado nessa planilha por favor, já tentei vária fórmulas até =PREVISÃO fórmulas lineares e linear sozonais.ALGUÉM AÍ PODE VIM COM UMA LÂMPADA E ACENDER UMA LUZ PODE SER DA CEBE rsrs.Brincadeira mas se puderem me auxiliar eu agradeceria muito abraços a todos(as).
  7. Boa noite, eu gostaria de saber apesar de eu já ter entregue meu trabalho.Pois na parte que eu não consegui fazer não tive pontuação no trabalho.Era o seguinte, era para determinar intervalo entre sequência de números ex: 1-01 02 06 10 13 20 2-04 07 15 16 19 30 3-05 08 17 28 34 50 4-01 02 06 10 13 20 Repetição de sequência de números: 1* grupo e 4* .Nesse exemplo mostrou que a sequência de números se repetiu na quarta linha.Então ela poderia ser mesclada para mostrar em qual linha essa sequência se repetiria com os mesmos números ou pelo menos parte deles. Tentei aplicar fórmula no Excel CONTA SES porém ele queria em vBA não consegui.Como será que aplico no codigo poderiam me explicar: E também gostaria de saber se posso colocar 2 macros na mesma planilha
  8. adicionado 1 minuto depois A parte de baixo é continuação da de cima?Eu já entreguei o trabalho quero aprender mesmo com vocês agora.
  9. Boa noite como faço para implementar no código uma função para que X e y somem e subtraia na mesma planilha.
  10. Tem como colocar a função subtração e soma na mesma planilha, mas em células diferentes?
  11. Boa noite mas para mostrar o intervalo de números tipo na planilha mostrar ?
  12. Bomais dia será que alguém sabe passar essa fórmula de Excel o V BA só estou conseguindo assim
  13. Sub Main() Dim I, J, N, T, R, W As Integer Dim iVetor() As Integer Dim iColuna, iArq, x, y As Integer Dim iNumeros As Integer Dim iConta As Long Dim sTipo As String iConta = 0 iColuna = 3 iArq = FreeFile Open ThisWorkbook.Path & "\COMBINACOES.TXT" For Output As iArq iNumeros = InputBox("Entre com a quantidade de números") ReDim iVetor(iNumeros) iNumeros = iNumeros - 1 For J = 0 To iNumeros Do iVetor(J) = InputBox("Numero " & J + 1) N = 0 If iVetor(J) < 1 Or iVetor(J) > 99 Then N = 1 For R = 0 To iNumeros If iVetor(J) = iVetor(R) And J <> R Then N = 1 Next R Loop While N Next J For J = 0 To iNumeros - 1 For W = J + 1 To iNumeros If iVetor(J) > iVetor(W) Then T = iVetor(J) iVetor(J) = iVetor(W) iVetor(W) = T End If Next W Next J For J = 0 To iNumeros x = Int(iVetor(J) / 10) y = Int(iVetor(J) Mod 10) sTipo = IIf(x Mod 2 = 0, "P", "I") sTipo = sTipo & IIf(y Mod 2 = 0, "P", "I") If x = 0 Then x = 10 If y = 0 Then y = 10 R = Abs(y - x) R = Abs(y + x) Cells(1, iColuna) = sTipo Cells(2, iColuna) = iVetor(J) Cells(3, iColuna) = y & "-" & x & "=" & R iColuna = iColuna + 1 Next J For I = 0 To 5 For J = I + 1 To iNumeros For N = J + 1 To iNumeros For R = N + 1 To iNumeros For T = R + 1 To iNumeros For W = T + 1 To iNumeros iConta = iConta + 1 Print #iArq, _ iConta & " -> " & iVetor(I) & " - " & _ iVetor(J) & " - " & iVetor(N) & " - " & _ iVetor(R) & " - " & iVetor(T) & " - " & iVetor(W) Next W Next T Next R Next N Next J Next I Close #iArq Cells(4, 3) = "comb. =>" & iConta End Sub Olá estou utilizando esse código no VBA porém eu gostaria de saber que formula posso utilizar para mostrar repetição em um intervalo, onde o usuário possa escolher o grupo que quer ver onde se repetirá a posição do concurso. Ex: Concurso 100- |02|05|10|13|18|20| Concurso 101-|06|08|15|19|20|21| Concurso 103-|01|07|09|15|21|31| Concurso 108-|02|05|10|13|18|20| Repetição concurso 100 repetiu no Concurso:108 Encontrei essas fórmulas: =CONT SES e CONT com SE separado. não sei qual seria mais adequada.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...