-
Posts
123 -
Cadastrado em
-
Última visita
Reputação
99-
Excel Algorítimo para Visual Basic paraExcel
Marcela da Silva de Souza respondeu ao tópico de Marcela da Silva de Souza em Microsoft Office e similares
Ok. mas eu não sei onde está o ero o problema é esse só mostra erro de execução quando eu coloco no excel. -
Excel Algorítimo para Visual Basic paraExcel
Marcela da Silva de Souza respondeu ao tópico de Marcela da Silva de Souza em Microsoft Office e similares
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 -
Excel Fórmulas diversas avançadas VBA e outros
Marcela da Silva de Souza respondeu ao tópico de Marcela da Silva de Souza em Microsoft Office e similares
? Bom dia -
Excel Fórmulas diversas avançadas VBA e outros
Marcela da Silva de Souza respondeu ao tópico de Marcela da Silva de Souza em Microsoft Office e similares
Olá boa tarde eu gostaria de saber se se eu quiser mudar os valores no código como devo fazer? Obrigada -
Excel Fórmulas diversas avançadas VBA e outros
Marcela da Silva de Souza respondeu ao tópico de Marcela da Silva de Souza em Microsoft Office e similares
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. -
Excel Fórmulas diversas avançadas VBA e outros
Marcela da Silva de Souza respondeu ao tópico de Marcela da Silva de Souza em Microsoft Office e similares
Não estou encontrando o erro de compilação será que alguém pode me ajudar...Boa noite. -
Excel Fórmulas diversas avançadas VBA e outros
Marcela da Silva de Souza respondeu ao tópico de Marcela da Silva de Souza em Microsoft Office e similares
-
Excel Fórmulas diversas avançadas VBA e outros
Marcela da Silva de Souza respondeu ao tópico de Marcela da Silva de Souza em Microsoft Office e similares
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). -
Excel Algorítimo para Visual Basic paraExcel
Marcela da Silva de Souza respondeu ao tópico de Marcela da Silva de Souza em Microsoft Office e similares
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 -
Excel Algorítimo para Visual Basic paraExcel
Marcela da Silva de Souza respondeu ao tópico de Marcela da Silva de Souza em Microsoft Office e similares
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. -
Excel Algorítimo para Visual Basic paraExcel
Marcela da Silva de Souza respondeu ao tópico de Marcela da Silva de Souza em Microsoft Office e similares
Boa noite como faço para implementar no código uma função para que X e y somem e subtraia na mesma planilha. -
Excel Algorítimo para Visual Basic paraExcel
Marcela da Silva de Souza respondeu ao tópico de Marcela da Silva de Souza em Microsoft Office e similares
Tem como colocar a função subtração e soma na mesma planilha, mas em células diferentes? -
Excel Algorítimo para Visual Basic paraExcel
Marcela da Silva de Souza respondeu ao tópico de Marcela da Silva de Souza em Microsoft Office e similares
Boa noite mas para mostrar o intervalo de números tipo na planilha mostrar ? -
Excel Algorítimo para Visual Basic paraExcel
Marcela da Silva de Souza respondeu ao tópico de Marcela da Silva de Souza em Microsoft Office e similares
Bomais dia será que alguém sabe passar essa fórmula de Excel o V BA só estou conseguindo assim -
Excel Fórmulas diversas avançadas VBA e outros
Marcela da Silva de Souza postou um tópico em Microsoft Office e similares
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