none
Numero sorteado (RND) repetindo - AJUDA POR FAVOR RRS feed

  • Pergunta

  • Pessoal fiz uma planilha usando vba q atraves de uma funcão ira preencher um textbox sempre q ela for aberta com um numero randomico entre 1.000.000, o problema é q estou abrindo a planilha e esta me trazendo o mesmo valor repetido



    Private Sub Workbook_Open()
    dim s as string
    s = sorteia
    textbox1.text = s
    End Sub


    Function sorteia() As String
    Dim a As Long
    Dim num As String
    a = Int(Rnd * 100000)
    num = CStr(a)
    sorteia = num
    End Function



    o q esta errado nesse codigo q esta trazendo sempre o mesmo valor quando abro a planilha?


    obrigado a todos pela ajuda
    quinta-feira, 4 de dezembro de 2008 15:53

Respostas

  • Faltou só uma palavrinha:

     

    Function sorteia() As String
    Dim a As Long
    Dim num As String
              Randomize

    a = Int(Rnd * 100000)
    num = CStr(a)
    sorteia = num

    End Function

     

    sexta-feira, 5 de dezembro de 2008 13:48

Todas as Respostas