Como transformar pontos em vírgulas?

Question

   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

Answer 1

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

Answer 2

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.