none
Ajuda para iniciante RRS feed

  • Pergunta

  • Boa noite, vou do sul do pais, vou novo tanto aqui como no VBA, e gostaria de um auxilio, pois bem, estou gerando um numero aleatorio, e desse valor eu gostaria que realizasse uma pesquisar num pequeno banco de dados nas celulas na planilha e retornasse a palavra que esta segunda coluna e retornasse numa label.

    Desde jah agradeço

    Godoy

    segunda-feira, 2 de junho de 2014 21:22

Respostas

  • Bem vindo ao fórum.

    Veja o código abaixo:

    Sub pMain()
      Dim lngAleatório As Long
      Dim rng As Excel.Range
      
      'Número aleatório de 1 a 10:
      lngAleatório = Int(Rnd * 10) + 1
      
      'Mostra numa caixa de mensagem a célula da linha
      'aleatória na coluna A:
      Set rng = ThisWorkbook.Worksheets("Plan1").Cells(lngAleatório, "A")
      MsgBox "O valor da célula " & rng.Address(False, False) _
      & " é: " & rng.Value2
      
      'Atribui a um rótulod e um formulário:
      Me.Label1.Caption = rng.Value2
    End Sub


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    terça-feira, 3 de junho de 2014 00:15
    Moderador

Todas as Respostas

  • Bem vindo ao fórum.

    Veja o código abaixo:

    Sub pMain()
      Dim lngAleatório As Long
      Dim rng As Excel.Range
      
      'Número aleatório de 1 a 10:
      lngAleatório = Int(Rnd * 10) + 1
      
      'Mostra numa caixa de mensagem a célula da linha
      'aleatória na coluna A:
      Set rng = ThisWorkbook.Worksheets("Plan1").Cells(lngAleatório, "A")
      MsgBox "O valor da célula " & rng.Address(False, False) _
      & " é: " & rng.Value2
      
      'Atribui a um rótulod e um formulário:
      Me.Label1.Caption = rng.Value2
    End Sub


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    terça-feira, 3 de junho de 2014 00:15
    Moderador
  • show de bola felipe valeu mesmo, vou dar continuidade...

    assim q me apertar novamente grito aqui

    abços

    godoy

    terça-feira, 3 de junho de 2014 18:09