Marcela da Silva de Souza

Olá estou com uma dúvida a respeito do usabilidade.Pois se ele quiser colocar qualquer quantidade de números que ele quiser tipo, menos doque está programado lá.Lá no código mostra 12 números e se quiser colocar 7 números fica um quadro com botão OK que não fecha até digitar o último número.Professor quer que seja a escolha do usuário .Será que tem uma função que faz isso a escolha do usuário sem precisar que fique toda hora atualizando o código?

- 1 Step 2 If vet(j)<10 Then Console.Write("0{0:D} , ",vet(j)) Else Console.Write("{0:D} , ",vet(j)) End If If vet(j+1)<10 Then Console.Write("0{0:D}" & vbLf,vet (j+1)) Else Console.Write("{0:D}" & vbLf,vet (j+1)) End If Next j Console.Write(vbLf & "Resultado Da Subtracao" & vbLf) For j = 0 To Tm - 1 num = CInt(Math.Truncate(vet(j)))\10 resto = vet(j) Mod 10 If resto=0 Then resto=10 End If If num =0 Then num=10 End If result = Math.Abs(resto - num) Console.Write("{0,3:D} - {1,3:D} => {2,3:D}" & vbLf,resto,num,result) Next j Console.Write(vbLf & vbLf) Console.ReadKey(True) Return 0 } Será que esse trecho de código funcionará a função de subtração entre o número irá se subtrair por ele mesmo? Abaixo segue o trecho do código original em C++, não sei se passei para VBA corretamente... Tô em dúvida for(j=0;j<Tm;j+=2){ if(vet[j]<10) printf("0%d , ",vet[j] ); else printf( "%d , ",vet[j] ); if(vet[j+1]<10)printf("0%d\n",vet [j+1]); else printf( "%d\n",vet [j+1]); } printf("\nResultado Da Subtracao\n"); for(j=0;j<Tm;j++){ num = (int)vet[j]/10; resto = vet[j] % 10 ; if(resto==0)resto=10; if(num ==0)num=10; result = abs (resto - num ) ; printf("%3d - %3d => %3d\n",resto,num,result); } printf("\n\n"); getch(); return 0; }

Dê uma olhada nesse material: https://www.pucsp.br/~so-comp/cursoc/gab8.html Espero ter ajudado...

Eu posso juntar as fórmulas normais do Excel na planilha normal mesmo que tenha VBA? Como por exemplo para contar o número maior assim: =MÁXIMO(célula inicial:célula final). Posso inserir normalmente ? Se puder é muito bom!

Será como faz para colocar total de PP,PI, II, e IP ou simplesmente o que caiu mais ex: |Categoria com mais números| |PI______________________| |20______________________| Um exemplo mais ou menos. Ou simplesmente a cor da célula se destacar. adicionado 3 minutos depois E naquele código em c++ tem a função de subtração de números entre eles mesmos ou estou enganada? eu gostaria de passar essa função para VBA também.

Sub Main() Dim i, j, q, t, r, w, x, y, px, py, vet(12), cont As Integer i = 0: j = 0: q = 0: t = 0: r = 0: w = 0: x = 0: y = 0: cont = 0: px = 0: py = 0 For j = 0 To 12 Do vet(j) = InputBox("Numero " & j + 1) q = 0 If vet(j) < 1 Or vet(j) > 99 Then q = 1 For r = 0 To 12 If vet(j) = vet(r) And j <> r Then q = 1 Next r Loop While q <> 0 Next j For j = 0 To 11 For w = j + 1 To 12 If vet(j) > vet(w) Then t = vet(j) vet(j) = vet(w) vet(w) = t End If Next w Next j px = 1 py = 1 For j = 0 To 12 y = vet(j) Mod 10 x = vet(j) / 10 Cells(px, py).Select If x Mod 2 = 0 Then Dim Vetor(6) As String dig_1 = Left( Vetor(i), 1)' Atribui o primeiro algarismo dig_2 = Right(Vetor(i), 2)' Atribui o segundo algarismo If(dig_1 Mod 2 = 0) And (dig_2 Mod 2 = 0) Then PP = PP + 1 If(dig_1 Mod 2 = 0) And (dig_2 Mod 2 <> 0) Then PI = PI + 1 If(dig_1 Mod 2 <> 0) And (dig_2 Mod 2 <> 0) Then II = II + 1 If(dig_1 Mod 2 <> 0) And (dig_2 Mod 2 = 0) Then IP = IP + 1 Cells(px, py + 1).Select px = px + 3 ActiveCell = vet(j) Next j i = 0: j = 0: q = 0: t = 0: r = 0: w = 0: x = 0: y = 0: cont = 0: px = 0: py = 0 For i = 0 To 6 For j = i + 1 To 12 For q = j + 1 To 12 For t = r + 1 To 12 For w = t + 1 To 12 cont = cont + 1 ActiveCell.Offset(3) = cont & ", " & vet(i) & ", " & vet(j) & ", " & vet(q) & ", " & vet(r) & ", " & vet(t) & ", " & vet(w) Next w Next t Next q Next j Next i ActiveCell.Offset(6) = "Total de Cartões =>" & cont End Sub Boa tarde gente estou tentando acrescentei função PP,PI, IP e II,mais faltam outras o código não foi todo convertido colega Olliver.Soul?

Obgada pela força de vcs falta pouco p eu conseguir entregar essa tarefa tô tentando aquí sou devagar de mais faço faço testo e nada valeu gente não me abandonam. Tô tentando...

Estou abrindo o desenvolvedor.É porque estava tentando passar para VBA, estou aprendendo agora esse formato vou testar seu código

Imports System Imports Microsoft.VisualBasic Private Sub Cells(ByVal x As Integer, ByVal y As Integer) 'imprimir na linha e coluna desejada Dim c As New COORD() c.X = x c.Y = y SetConsoleCursorPosition(GetStdHandle(STD_OUTPUT_HANDLE), c) End Sub Shared Function Main() As Integer Dim i As Integer Dim j As Integer Dim q As Integer Dim t As Integer Dim r As Integer Dim w As Integer Dim x As Integer Dim y As Integer Dim px As Integer Dim py As Integer Dim vet(11) As Integer Dim cont As Integer =0 Dim arq As FILE =fopen("Minhas Combinacoes.txt","w") For j = 0 To 11 Do Console.Write("{0,2:D}{1} numero ",j+1,167) q = 0 Dim tempVar As String = ConsoleInput.ScanfRead() If tempVar IsNot Nothing Then vet(j) = Integer.Parse(tempVar) End If If vet(j)<1 OrElse vet(j)>99 Then q = 1 End If For r = 0 To 11 If vet(j) = vet(r) AndAlso j <> r Then q = 1 End If Next r Loop While q <> 0 Next j For j = 0 To 10 For w = j+1 To 11 If vet(j)> vet(w) Then t = vet(j) vet(j) = vet(w) vet(w) = t End If Next w Next j Console.Write(vbLf) fprintf(arq,"%s","combinações com esses números --> ") ' grava no arquivo no bloco de notas Dim hOut As IntPtr ' controle dos dispositivos do pc hOut = GetStdHandle(STD_OUTPUT_HANDLE) ' pega a saída padrão Dim SBInfo As New CONSOLE_SCREEN_BUFFER_INFO() ' informações sobre a buffer da tela GetConsoleScreenBufferInfo(hOut, SBInfo) ' pega a posição do cursor do console px = SBInfo.dwCursorPosition.X ' pX será a posição da coluna do cursor no console py = SBInfo.dwCursorPosition.Y ' pY será a posição da linha do cursor no console For j = 0 To 11 Cells(j + 1, 1) = vet(j) Next y = vet(j) Mod 10 x = vet(j)\10 gotoxy_2(px, py) If x Mod 2=0 Then Dim Vetor(11) As String dig_1 = Left( Vetor(i), 1)' Atribui o primeiro algarismo dig_2 = Right(Vetor(i), 2)' Atribui o segundo algarismo If(dig_1 Mod 2 = 0) And (dig_2 Mod 2 = 0) Then PP = PP + 1 If(dig_1 Mod 2 = 0) And (dig_2 Mod 2 <> 0) Then PI = PI + 1 If(dig_1 Mod 2 <> 0) And (dig_2 Mod 2 <> 0) Then II = II + 1 If(dig_1 Mod 2 <> 0) And (dig_2 Mod 2 = 0) Then IP = IP + 1 Cells(px, py+1) ' pula para a linha de baixo px+=3 Console.Write("{0:D} ",vet(j)) ' imprime na tela do pc fprintf(arq,"|%d| ",vet(j)) ' grava no arquivo Next j Console.Write(vbLf & vbLf & " tecle" & vbLf & vbLf) fprintf(arq,"%s",vbLf & vbLf) Console.ReadKey(True) For i = 0 To 11 For j = i+1 To 11 For q = j+1 To 11 For r = q+1 To 11 For t = r+1 To 11 For w = t+1 To 11 cont += 1 Console.Write("{0,4:D} -> {1:D} - {2:D} - {3:D} - {4:D} - {5:D} - {6:D}" & vbLf, cont,vet(i),vet(j),vet(q),vet(r),vet(t),vet(w)) fprintf(arq,"%4d -> %d - %d - %d - %d - %d - %d" & vbLf, cont,vet(i),vet(j),vet(q),vet(r),vet(t),vet(w)) 'if(cont==23){cont=-1;printf(" Tecle\n");getch();} Next w Next t Next r Next q Next j Next i Dim MyVar fprintf =(vbLf & "Total De Cartoes => %d" & vbLf,cont) fprintf(arq,"%s%d",vbLf & "Total de cartões => ",cont) fclose(arq) Console.Write(vbLf & vbLf & "Abra O Bloco De notas e abra esse arquivo --> ") Console.Write("( Minhas Combinacoes )" & vbLf) Console.Write("Que esta na mesma pasta desse programa" & vbLf & vbLf & vbLf) MsgBox ("Aqui Estão Os Resultados") End Sub Gente, boa noite estou tentando converter esse código porém estou com muita dificuldades em substituir o gotoxy esse acima é meu código para VBA olha o jeito que meu código ficou estou tentando e estudando aquí sei que está horrível mas estou aprendendo, sendo que o que eu preciso é: Mostrar números PP, PI, II, IP Esses números deverão se subtrair entre si sendo uqe números que tiverem 0 serão contados como dezena como 10 ex: 02, 04 10-2= 8 10-4= 6...E tem mais funções E ainda tem que ter função de contar a quantidade de cada categoria PP,PI,II,IP ex: PP= 30 PI= 28 II= 27 IP= 10 E mostrar qual categoria que obteve mais números ex: PP= 30 Essas são as funções básicas além de ter a função para que o usuário possa digitar de 6 a 15 números dependendo do jogo e escolha dele. Esses são os comandos básicos.

Código em C++ #include <stdio.h> #include <conio.h> #include <windows.h> void gotoxy_2(int x, int y){/*imprimir na linha e coluna desejada */ COORD c; c.X = x; c.Y = y; SetConsoleCursorPosition (GetStdHandle(STD_OUTPUT_HANDLE), c); } int main(){ int i,j,q,t,r,w,x,y,px,py,vet[12],cont=0; FILE *arq=fopen("Minhas Combinacoes.txt","w"); for(j=0;j<12;j++){ do{ printf("%2d%c numero ",j+1,167); q=0; scanf("%d",&vet[j]); if(vet[j]<1 || vet[j]>99)q=1; for(r=0;r<12;r++) if(vet[j]==vet[r] && j != r )q=1; }while( q ); } for(j=0;j<11;j++) for(w=j+1;w<12;w++) if( vet[j]> vet[w]){ t = vet[j] ; vet[j]= vet[w] ; vet[w]= t ; } printf("\n"); fprintf(arq,"%s","combinações com esses números --> ");/* grava no arquivo no bloco de notas */ HANDLE hOut; /* controle dos dispositivos do pc */ hOut= GetStdHandle(STD_OUTPUT_HANDLE); /* pega a saída padrão */ CONSOLE_SCREEN_BUFFER_INFO SBInfo; /* informações sobre a buffer da tela */ GetConsoleScreenBufferInfo(hOut, &SBInfo);/* pega a posição do cursor do console */ px = SBInfo.dwCursorPosition.X; /* pX será a posição da coluna do cursor no console */ py = SBInfo.dwCursorPosition.Y; /* pY será a posição da linha do cursor no console */ for(j=0;j<12;j++){ y=vet[j]%10; x=vet[j]/10; gotoxy_2(px,py); if(x%2==0)printf("P" );else printf("I" ); if(y%2==0)printf("P ");else printf("I "); gotoxy_2(px,py+1); /* pula para a linha de baixo */ px+=3; printf("%d ",vet[j]);/* imprime na tela do pc */ fprintf(arq,"|%d| ",vet[j]);/* grava no arquivo */ } printf("\n\n tecle\n\n"); fprintf(arq,"%s","\n\n"); getch(); for(i=0;i<6;i++){ for(j=i+1;j<12;j++){ for(q=j+1;q<12;q++){ for(r=q+1;r<12;r++){ for(t=r+1;t<12;t++){ for(w=t+1;w<12;w++){ cont++; printf("%4d -> %d - %d - %d - %d - %d - %d\n" , cont,vet[i],vet[j],vet[q],vet[r],vet[t],vet[w]) ; fprintf(arq,"%4d -> %d - %d - %d - %d - %d - %d\n", cont,vet[i],vet[j],vet[q],vet[r],vet[t],vet[w]) ; /*if(cont==23){cont=-1;printf(" Tecle\n");getch();}*/ } } } } } } printf("\nTotal De Cartoes => %d\n",cont); fprintf(arq,"%s%d","\nTotal de cartões => ",cont); fclose(arq); printf("\n\nAbra O Bloco De notas e abra esse arquivo --> "); printf("( Minhas Combinacoes )\n" ); printf("Que esta na mesma pasta desse programa\n\n\n" ); return 0; }

Bom dia como substituir o gotoxy no VBA por qual tag?

Vou desistir desse código maior desenvolver um menor somente com funções básicas, estou estudando para concursos e faculdade outras matérias diferentes estou embananado tudo e está muito complicado.Boa noite gente bonita.

E ainda tem que ter função de contar a quantidade de cada categoria PP,PI,II,IP ex: PP= 30 PI= 28 II= 27 IP= 10 E mostrar qual categoria que obteve mais números ex: PP= 30 Essas são as funções básicas além de ter a função para que o usuário possa digitar de 6 a 15 números dependendo do jogo e escolha dele. Esses são os comandos básicos.

O programa deve: Mostrar números PP, PI, II, IP Esses números deverão se subtrair entre si sendo uqe números que tiverem 0 serão contados como dezena como 10 ex: 02, 04 10-2= 8 10-4= 6...E tem mais funções

Sim estou tentando adaptar seu código com esse aí.Preciso de várias funções para aplicar no EXCEl. Esse código antes foi desenvolvido no em C++ aí passei para VBA c ajuda de um conversor acho que não saiu certinho. adicionado 3 minutos depois Olá tinha um código em C++ seu então usei o C++ to VBA converter para me ajudar então deve ter erros.

Ok, boa noite, realmente o exercício está pedindo tem até um código que tem todas as funções porém ele está dando erros: Imports System Imports Microsoft.VisualBasic Private Sub gotoxy_2(ByVal x As Integer, ByVal y As Integer) 'imprimir na linha e coluna desejada Dim c As New COORD() c.X = x c.Y = y SetConsoleCursorPosition(GetStdHandle(STD_OUTPUT_HANDLE), c) End Sub Shared Function Main() As Integer Dim i As Integer Dim j As Integer Dim q As Integer Dim t As Integer Dim r As Integer Dim w As Integer Dim x As Integer Dim y As Integer Dim px As Integer Dim py As Integer Dim vet(11) As Integer Dim cont As Integer =0 Dim arq As FILE =fopen("Minhas Combinacoes.txt","w") For j = 0 To 11 Do Console.Write("{0,2:D}{1} numero ",j+1,167) q = 0 Dim tempVar As String = ConsoleInput.ScanfRead() If tempVar IsNot Nothing Then vet(j) = Integer.Parse(tempVar) End If If vet(j)<1 OrElse vet(j)>99 Then q = 1 End If For r = 0 To 11 If vet(j) = vet(r) AndAlso j <> r Then q = 1 End If Next r Loop While q <> 0 Next j For j = 0 To 10 For w = j+1 To 11 If vet(j)> vet(w) Then t = vet(j) vet(j) = vet(w) vet(w) = t End If Next w Next j Console.Write(vbLf) fprintf(arq,"%s","combinações com esses números --> ") ' grava no arquivo no bloco de notas Dim hOut As IntPtr ' controle dos dispositivos do pc hOut = GetStdHandle(STD_OUTPUT_HANDLE) ' pega a saída padrão Dim SBInfo As New CONSOLE_SCREEN_BUFFER_INFO() ' informações sobre a buffer da tela GetConsoleScreenBufferInfo(hOut, SBInfo) ' pega a posição do cursor do console px = SBInfo.dwCursorPosition.X ' pX será a posição da coluna do cursor no console py = SBInfo.dwCursorPosition.Y ' pY será a posição da linha do cursor no console For j = 0 To 11 y = vet(j) Mod 10 x = vet(j)\10 gotoxy_2(px, py) If x Mod 2=0 Then Console.Write("P") Else Console.Write("I") End If If y Mod 2=0 Then Console.Write("P ") Else Console.Write("I ") End If gotoxy_2(px, py+1) ' pula para a linha de baixo px+=3 Console.Write("{0:D} ",vet(j)) ' imprime na tela do pc fprintf(arq,"|%d| ",vet(j)) ' grava no arquivo Next j Console.Write(vbLf & vbLf & " tecle" & vbLf & vbLf) fprintf(arq,"%s",vbLf & vbLf) Console.ReadKey(True) For i = 0 To 5 For j = i+1 To 11 For q = j+1 To 11 For r = q+1 To 11 For t = r+1 To 11 For w = t+1 To 11 cont += 1 Console.Write("{0,4:D} -> {1:D} - {2:D} - {3:D} - {4:D} - {5:D} - {6:D}" & vbLf, cont,vet(i),vet(j),vet(q),vet(r),vet(t),vet(w)) fprintf(arq,"%4d -> %d - %d - %d - %d - %d - %d" & vbLf, cont,vet(i),vet(j),vet(q),vet(r),vet(t),vet(w)) 'if(cont==23){cont=-1;printf(" Tecle\n");getch();} Next w Next t Next r Next q Next j Next i printf(vbLf & "Total De Cartoes => %d" & vbLf,cont) fprintf(arq,"%s%d",vbLf & "Total de cartões => ",cont) fclose(arq) Console.Write(vbLf & vbLf & "Abra O Bloco De notas e abra esse arquivo --> ") Console.Write("( Minhas Combinacoes )" & vbLf) Console.Write("Que esta na mesma pasta desse programa" & vbL adicionado 57 minutos depois Segue abaixo o trecho do código: Dim Vetor(6) As String dig_1 = Left( Vetor(i), 1) ' Atribui o primeiro algarismo dig_2 = Right(Vetor(i), 2) ' Atribui o segundo algarismo If(dig_1 Mod 2 = 0) And (dig_2 Mod 2 = 0) Then PP = PP + 1 If(dig_1 Mod 2 = 0) And (dig_2 Mod 2 <> 0) Then PI = PI + 1 If(dig_1 Mod 2 <> 0) And (dig_2 Mod 2 <> 0) Then II = II + 1 If(dig_1 Mod 2 <> 0) And (dig_2 Mod 2 = 0) Then IP = IP + 1 adicionado 57 minutos depois

The best! adicionado 38 minutos depois Eita deu erro de compilação

Mas no caso terei de usar vetores né?É realmente necessário ficar sem usar?

Boa noite, Então essa parte pode se Pois são 4 valores nessa parte aí seria assim?E como fazer sem vetores? adicionado 31 minutos depois

EX: PP= 02,04,06,08,20, 22... PI= 01,03,05,07,09,21... II= 11,13,15,17,19,31... IP= 12,14, 18,30,32,34... Esses números são compostos por 2 algarismos sempre e a classificação é essa, gostaria que no Excel com VBA fosem destacados esses números e contados qual é a quantidade de cada um respectivamente; quantidade de PP,PI,II e IP.

Olá Sr. Devair 1010 um nerd aquí, por favor poderia me orientar se para eu mostrar se o número é PP= par,par PI=Pai,impar, IP=ímpar, par, e II= ímpar,ímpar eu poderia usar a função if: If (numero And 1) = 0 Then MsgBox "é P" Else MsgBox "Será I" End If? Como faço na função para reconhecer os números como PP, PI,II, e IP Sub imprime_par_ou_impar() Dim vet(6) Dim str Dim x, b As Integer cont_ii = 0 cont_pp = 0 cont_ip = 0 cont_pi = 0 Dim mensagem, titulo, padrão, valor_Lido mesagem = "Digite o Número" ' Set prompt. titulo = "Caixa De Entrada De Dados" ' Set title. padrão = "0" ' Set default. For j = 1 To 6 valor_Lido = InputBox(mensagem, titulo, padrão, 100, 100) '18900 coluna final da tela vet(j) = valor_Lido Next Range("a1").Interior.Color = vbYellow Columns(1).ColumnWidth = 30 'largura da coluna Cells(1, 1) = "Número Lido" For j = 1 To 6 Cells(j + 1, 1) = vet(j) Next Cells(9, 1) = ("O total de números P P lidos foi") Cells(10, 1) = ("O total de números P I lidos foi") Cells(11, 1) = ("O total de números I P lidos foi") Cells(12, 1) = ("O total de números I I lidos foi") Cells(9, 2) = cont_pp Cells(10, 2) = cont_pi Cells(11, 2) = cont_ip Cells(12, 2) = cont_ii Range("a9").Font.Color = RGB(255, 0, 0) MsgBox ("Aqui Estão Os Resultados") End Sub adicionado 19 minutos depois Imports System Imports Microsoft.VisualBasic Private Sub gotoxy_2(ByVal x As Integer, ByVal y As Integer) 'imprimir na linha e coluna desejada Dim c As New COORD() c.X = x c.Y = y SetConsoleCursorPosition(GetStdHandle(STD_OUTPUT_HANDLE), c) End Sub Shared Function Main() As Integer Dim i As Integer Dim j As Integer Dim q As Integer Dim t As Integer Dim r As Integer Dim w As Integer Dim x As Integer Dim y As Integer Dim px As Integer Dim py As Integer Dim vet(11) As Integer Dim cont As Integer =0 Dim arq As FILE =fopen("Minhas Combinacoes.txt","w") For j = 0 To 11 Do Console.Write("{0,2:D}{1} numero ",j+1,167) q = 0 Dim tempVar As String = ConsoleInput.ScanfRead() If tempVar IsNot Nothing Then vet(j) = Integer.Parse(tempVar) End If If vet(j)<1 OrElse vet(j)>99 Then q = 1 End If For r = 0 To 11 If vet(j) = vet(r) AndAlso j <> r Then q = 1 End If Next r Loop While q <> 0 Next j For j = 0 To 10 For w = j+1 To 11 If vet(j)> vet(w) Then t = vet(j) vet(j) = vet(w) vet(w) = t End If Next w Next j Console.Write(vbLf) fprintf(arq,"%s","combinações com esses números --> ") ' grava no arquivo no bloco de notas Dim hOut As IntPtr ' controle dos dispositivos do pc hOut = GetStdHandle(STD_OUTPUT_HANDLE) ' pega a saída padrão Dim SBInfo As New CONSOLE_SCREEN_BUFFER_INFO() ' informações sobre a buffer da tela GetConsoleScreenBufferInfo(hOut, SBInfo) ' pega a posição do cursor do console px = SBInfo.dwCursorPosition.X ' pX será a posição da coluna do cursor no console py = SBInfo.dwCursorPosition.Y ' pY será a posição da linha do cursor no console For j = 0 To 11 y = vet(j) Mod 10 x = vet(j)\10 gotoxy_2(px, py) If x Mod 2=0 Then Console.Write("P") Else Console.Write("I") End If If y Mod 2=0 Then Console.Write("P ") Else Console.Write("I ") End If gotoxy_2(px, py+1) ' pula para a linha de baixo px+=3 Console.Write("{0:D} ",vet(j)) ' imprime na tela do pc fprintf(arq,"|%d| ",vet(j)) ' grava no arquivo Next j Console.Write(vbLf & vbLf & " tecle" & vbLf & vbLf) fprintf(arq,"%s",vbLf & vbLf) Console.ReadKey(True) For i = 0 To 5 For j = i+1 To 11 For q = j+1 To 11 For r = q+1 To 11 For t = r+1 To 11 For w = t+1 To 11 cont += 1 Console.Write("{0,4:D} -> {1:D} - {2:D} - {3:D} - {4:D} - {5:D} - {6:D}" & vbLf, cont,vet(i),vet(j),vet(q),vet(r),vet(t),vet(w)) fprintf(arq,"%4d -> %d - %d - %d - %d - %d - %d" & vbLf, cont,vet(i),vet(j),vet(q),vet(r),vet(t),vet(w)) 'if(cont==23){cont=-1;printf(" Tecle\n");getch();} Next w Next t Next r Next q Next j Next i printf(vbLf & "Total De Cartoes => %d" & vbLf,cont) fprintf(arq,"%s%d",vbLf & "Total de cartões => ",cont) fclose(arq) Console.Write(vbLf & vbLf & "Abra O Bloco De notas e abra esse arquivo --> ") Console.Write("( Minhas Combinacoes )" & vbLf) Console.Write("Que esta na mesma pasta desse programa" & vbLf & vbLf & vbLf) Tem esse código do outro fórum de vs autoria que converti também para usar em VBA no Excel tem erros não encontro.