MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    [Resolvido]Help com numeros de uma string

    avatar
    mfrigerio
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 112
    Registrado : 01/08/2012

    [Resolvido]Help com numeros de uma string Empty Help com numeros de uma string

    Mensagem  mfrigerio 21/2/2013, 02:01

    Boa noite amigos deste respeitado forum.
    Gostaria de uma ajudinha de vcs, estou com o seguinte problema.

    tenho em uma string numeros conforme abaixo:
    numeros = 10 30 45 5550 180

    preciso de saber quantos números existem separados por (espaco) e quais sao estes numeros.

    obs: a quantidade de numeros apresentados na string é dinamico ...
    uma hora pode ter 1 e outra hora pode have 10 , 3 , 5 , 30 e assim por diante .


    gostaria de ser informado por uma mensagem
    msgbox ( 5 ) numeros

    daí quem sao eles
    msgbox 10
    msgbox 30
    msgbox 45
    msgbox 5550
    msgbox 180
    e assim por diante

    alguem poderia me ajuda nessa macro....
    obrigado amigos
    avatar
    Convidado
    Convidado


    [Resolvido]Help com numeros de uma string Empty Re: [Resolvido]Help com numeros de uma string

    Mensagem  Convidado 21/2/2013, 02:31

    Eis:

    Private Sub Comando0_Click()
    Dim k
    Dim I
    Dim Seq As String
    Dim Count As Long

    Seq = "10 30 45 5550 180"

    k = Split(Seq, " ")
    For I = 0 To UBound(k)
    Count = Count + 1
    MsgBox k(I) & " Posição:" & Count
    Next I
    MsgBox Count & " Numeros"
    End Sub


    Cumprimentos.
    avatar
    mfrigerio
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 112
    Registrado : 01/08/2012

    [Resolvido]Help com numeros de uma string Empty Re: [Resolvido]Help com numeros de uma string

    Mensagem  mfrigerio 21/2/2013, 10:59

    Muito bom dia Piloto ...

    Maravilhoso o Resultado ... Era isso mesmo que eu precisava ...

    Agradeço imensamente a disposição sua e deste site .

    Muitíssimo agradecido.
    avatar
    Convidado
    Convidado


    [Resolvido]Help com numeros de uma string Empty Re: [Resolvido]Help com numeros de uma string

    Mensagem  Convidado 21/2/2013, 11:24

    Dê um clique
    nesta figura
    [Resolvido]Help com numeros de uma string 001_1810

















    localize ela no
    "rodapé" da resposta que o
    auxiliou.




    Conteúdo patrocinado


    [Resolvido]Help com numeros de uma string Empty Re: [Resolvido]Help com numeros de uma string

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 21:29