[Resolvido]Implementando uma macro

Bom dia,

Eu estou tentando implementar a solução que o Assis postou aqui nesse tópico >https://www.maximoaccess.com/t2427-resolvidocolocar-virgula-automatica-2-casas-a-esquerda

a solução é a seguinte:

Private Sub SeuCampo_Exit(Cancel As Integer)

On Error Resume Next
If Len(SeuCamp.Text) < 4 Then
Vlr = Format(Vlr, "#,##0.00") * 100
End If
If Len(SeuCamp.Text) >= 4 Then
Vlr = Format(SeuCamp, "#.##0,00") / 100

End If

Acontece que eu não sei praticamente nada de VBA, entendo um pouco de office, já programei em algumas linguagens como java/c++, mas em VBA nunca...

Enfim, eu preciso que quando eu digite um número em uma celula, ao sair da celula ele coloque 2 virgulas, por exemplo, se eu digitar 12456, quando sair ele vai colocar o seguinte 124,56... se eu digitar 45, ele coloca 00,45...

Alguém poderia me ajudar a implementar essa solução ?

Agradeço desde já.

Att,

Fernando

Olá, bom dia.

Veja novamente o link do tópico que você postou. Acredito que a resposta para tua duvida, esteja na resposta de numero 14 !

Então, a solução é a

Dim Esquerda As Long

If Len(Me.NomeCampo) = 1 Then
Me.NomeCampo = "0,0" & Me.NomeCampo & "€"
ElseIf Len(Me.NomeCampo) = 2 Then
Me.NomeCampo = "0," & Me.NomeCampo & "€"
Else
Esquerda = Len(Me.NomeCampo) - 2
Me.NomeCampo = Left(Me.NomeCampo, Esquerda) & "," & Right(Me.NomeCampo, 2) & "€"

End If

Mas como eu já disse, eu não sei como implementar ela no VBA, queria quem alguém me ajudasse nisso... por exemplo, como vou referenciar a coluna? por exemplo quero que seja implementado na coluna D..

Opaaaaaaa....    

Um instante !!

Aqui estamos falando em Access e não em Excel.   Por mais parecidos que sejam os VBA´s sempre haverá algo diferente entre eles.

Para o Excel sugiro um fórum destinado ao mesmo, veja os links abaixo:

https://gurudoexcel.com/forum/

http://www.planilhando.com.br/forum/viewforum.php?f=14

Obrigado !