none
Como transformar pontos em vírgulas? RRS feed

  • Pergunta

  •    Sabendo que rotulo(i,2) é uma string que pode conter um número com vírgulas ou pontos (depende do que o usuário digitar em um textbox) e  "valor" é a string que deverá sem impressa na planilha do excel; por que, quando eu digito um número do tipo 13.5, imprimirá 13,5 (ok); mas, quando eu digito 13,5, imprime apenas 13,0?

    valor = Replace(rotulo(i, 2), ",", ".")
    
    cells(busca.row, busca.column+3).value = Val(valor) 'ou .formulaR1C1
    


    sábado, 16 de julho de 2011 13:10

Respostas

  • Boa noite!!

     

    Olha na ajuda do VBA, sobre a Função VAL...

     

    Val Function

    Returns the numbers contained in a string as a numeric value of appropriate type.

    Syntax

    Val(string)

    The required stringargument is any valid string expression.

    Remarks

    The Val function stops reading the string at the first character it can't recognize as part of a number. Symbols and characters that are often considered parts of numeric values, such as dollar signs and commas, are not recognized. However, the function recognizes the radix prefixes 


    zinho
    • Marcado como Resposta Marlon Saveri segunda-feira, 18 de julho de 2011 13:47
    domingo, 17 de julho de 2011 22:12
  • Obrigado, descobri que eu estava certo (uhul, pelo menos uma vez); o que aconteceu é que, antes de eu fazer esta passagem, já havia usado o val(), então já não havia vírgula para ser alterada:

    rotulo(i,2) = val(textbox1.text)
    valor = Replace(rotulo(i, 2), ",", ".")

    Mas:

    rotulo(i,2) = textbox1.text
    valor = Replace(rotulo(i, 2), ",", ".")

    Obrigado.

    • Marcado como Resposta Marlon Saveri segunda-feira, 18 de julho de 2011 13:49
    segunda-feira, 18 de julho de 2011 13:49

Todas as Respostas

  • Boa noite!!

     

    Olha na ajuda do VBA, sobre a Função VAL...

     

    Val Function

    Returns the numbers contained in a string as a numeric value of appropriate type.

    Syntax

    Val(string)

    The required stringargument is any valid string expression.

    Remarks

    The Val function stops reading the string at the first character it can't recognize as part of a number. Symbols and characters that are often considered parts of numeric values, such as dollar signs and commas, are not recognized. However, the function recognizes the radix prefixes 


    zinho
    • Marcado como Resposta Marlon Saveri segunda-feira, 18 de julho de 2011 13:47
    domingo, 17 de julho de 2011 22:12
  • Obrigado, descobri que eu estava certo (uhul, pelo menos uma vez); o que aconteceu é que, antes de eu fazer esta passagem, já havia usado o val(), então já não havia vírgula para ser alterada:

    rotulo(i,2) = val(textbox1.text)
    valor = Replace(rotulo(i, 2), ",", ".")

    Mas:

    rotulo(i,2) = textbox1.text
    valor = Replace(rotulo(i, 2), ",", ".")

    Obrigado.

    • Marcado como Resposta Marlon Saveri segunda-feira, 18 de julho de 2011 13:49
    segunda-feira, 18 de julho de 2011 13:49