PORCENTAGEM EM TEXTBOX

THIAGOM 03/06/2010 11:37:29
#343793
Preciso de um textbox no excel que ao digitar 3 dígitos (sempre serão 3 dígitos) Ex: 235, devem ser exibidos assim na texbox 23,5. Semelhante no formulário do accesss

Tentei esse, mas tá ficando assim 235,0 onde deveria ficar assim 23,5


dentro de form1, 1 text box:

[txt-color=#0000f0]Private Sub TextBox1_AfterUpdate()
On Error GoTo Fim
TextBox1.Text = Format(TextBox1.Value, [Ô]00.0[Ô])
Fim:
End Sub[/txt-color]

é possível?
MOREIRA 03/06/2010 11:42:34
#343794
Private Sub TextBox1_AfterUpdate()
On Error GoTo Fim
TextBox1.Text = Format(cdbl((TextBox1.Value, [Ô]###,##0.00[Ô]))
Fim:
End Sub
THIAGOM 03/06/2010 13:17:49
#343802
Moreira teu código tá com um erro, tá ficando vermelho e não consegui identificar.

Fiquei testando e consegui resolver, ficou assim:

[txt-color=#0000f0]Private Sub TextBox1_AfterUpdate()
If Len(TextBox1) = 3 Then
Dim LER, INTEIROS, DEZENA
LER = TextBox1
INTEIROS = Left(LER, 2)
DEZENA = Right(LER, 1)
TextBox1 = INTEIROS & [Ô],[Ô] & DEZENA

Else

On Error GoTo Fim
TextBox1.Text = Format(TextBox1.Value, [Ô]00.0[Ô])
Fim:
End If

End Sub[/txt-color]

Mas tá muito grande, se conseguir com o format fica perfeito
EDERMIR 03/06/2010 20:34:04
#343839 Resposta escolhida
Corrija o código do MOREIRA para:

Wcasasdecimais = 1
TextBox1.Text = cdbl(TextBox1.TEXT)/(10*Wcasasdecimais)
Tópico encerrado , respostas não são mais permitidas
Voltar