Ir ao conteúdo
  • Cadastre-se

Joás Lima

Membro Júnior
  • Total de itens

    3
  • Cadastrado em

  • Última visita

  • Qualificações

    0%
  1. 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
  2. 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
  3. 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

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...

Os Mitos do Dinheiro

APENAS R$ 9,90!

CLIQUE AQUI E COMPRE AGORA MESMO!