Joás Lima

Fazendo Number List de 9 dígitos no Visualg. E pode ser facilmente convertido para outras linguagens. algoritmo "semnome" // Função : // Autor : // Data : 09/02/2016 // Seção de Declarações var a1,b1,c1,d1,e1,f1,g1,h1,i1:inteiro inicio // Seção de Comandos a1 := 0 b1 := 0 c1 := 0 d1 := 0 e1 := 0 f1 := 0 g1 := 0 h1 := 0 i1 := 0 para a1 de 0 ate 9 faca para b1 de 0 ate 9 faca para c1 de 0 ate 9 faca para d1 de 0 ate 9 faca para e1 de 0 ate 9 faca para f1 de 0 ate 9 faca para g1 de 0 ate 9 faca para h1 de 0 ate 9 faca para i1 de 0 ate 9 faca escreval (a1,b1,c1,d1,e1,f1,g1,h1,i1) fimpara fimpara fimpara fimpara fimpara fimpara fimpara fimpara fimpara fimalgoritmo

Consegui! funciona desta forma: Sub numberlist() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Dim a1 As Single Dim b1 As Single Dim c1 As Single Dim d1 As Single Dim e1 As Single Dim f1 As Single Dim g1 As Single Dim h1 As Single Dim i1 As Single Dim j1 As Single Dim count As Integer Dim lrow As Long Dim lcolumn As Long a1 = 0 b1 = 0 c1 = 0 d1 = 0 e1 = 0 f1 = 0 g1 = 0 h1 = 0 i1 = 0 lcolumn = 1 For a1 = 0 To 2 Step 1 For b1 = 0 To 2 Step 1 For c1 = 0 To 2 Step 1 For d1 = 0 To 2 Step 1 For e1 = 0 To 2 Step 1 For f1 = 0 To 2 Step 1 For g1 = 0 To 2 Step 1 For h1 = 0 To 2 Step 1 For i1 = 0 To 2 Step 1 lrow = Cells(Rows.count, lcolumn).End(xlUp).Row + 1 Cells(lrow, lcolumn) = a1 & b1 & c1 & d1 & e1 & f1 & g1 & h1 & i1 & j1 If lrow Mod 1000 = 0 Then lcolumn = lcolumn + 1 lrow = 1 Else End If Next Next Next Next Next Next Next Next Next Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True End Sub

alguem ai que possa ajudar com vba?o problema é: quero mudar de coluna, a cada contagem de linha.ex.: a cada 100 linhas contadas, uma coluna.eu consigo mudar de linha mas nao consigo mudar de coluna.eis a situação do codigo: Sub numberlist() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Dim a1 As Single Dim b1 As Single Dim c1 As Single Dim d1 As Single Dim e1 As Single Dim f1 As Single Dim g1 As Single Dim h1 As Single Dim i1 As Single Dim j1 As Single Dim count As Integer Dim lrow As Long Dim lcolumn As Integer a1 = 0 b1 = 0 c1 = 0 d1 = 0 e1 = 0 f1 = 0 g1 = 0 h1 = 0 i1 = 0 For a1 = 0 To 1 Step 1 For b1 = 0 To 1 Step 1 For c1 = 0 To 1 Step 1 For d1 = 0 To 1 Step 1 For e1 = 0 To 1 Step 1 For f1 = 0 To 1 Step 1 For g1 = 0 To 1 Step 1 For h1 = 0 To 1 Step 1 For i1 = 0 To 1 Step 1 lrow = Cells(Rows.count, "A").End(xlUp).Row + 1 Cells(lrow, "A") = a1 & b1 & c1 & d1 & e1 & f1 & g1 & h1 & i1 & j1 If lrow Mod 100 = 0 Then Application.EnableEvents = False lcolumn = Range(1, Columns.count).Next(xlToRight).Column + 1 lrow = 0 lrow = Cells(Rows.count, Columns.count).End(xlUp).Row + 1 Cells(lrow, "A") = a1 & b1 & c1 & d1 & e1 & f1 & g1 & h1 & i1 & j1 Else End If Next Next Next Next Next Next Next Next Next Application.EnableEvents = True Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True End Sub