Formatação do mshflexgrid com Problema

[heliopassos 0]

Pessoal, o que ha de errado aqui?

'

Dim linha As Integer, coluna As Integer

For linha = 1 To .Rows - 1

For coluna = 1 To .Cols

If (coluna = 4) Then

.TextMatrix(linha, coluna) = FormatCurrency(.TextMatrix(linha, coluna))

End If

Next

Next

 

Na coluna 4 quero formatar os valores para Currency (R$) acontece que quando mostra os valores ela esta transformado para outro valor. Por exemplo: de R$ 1,20 ela mostra R$ 12,00 ..... :wacko:

Como faço para resolver isto? :mellow:

Obrigado.

A sim, como faço para encerrar os topicos abertos e que ja foram resolvidos ? http://forum.imasters.com.br/public/style_emoticons/default/upset.gif

[allan_pedroni 0]

Caro amigo!Espero que esse código lhe ajude!Dim Valor As CurrencyValor = InputBox("valor da moeda ")MsgBox FormatCurrency(Valor, 2, vbFalse, vbFalse, vbFalse)Sendo os valores inseridos,1,2 = R$ 1,2012 = R$ 12,00Abraço