MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Implementando uma macro

    Compartilhe

    Borkum
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 06/01/2017

    [Resolvido]Implementando uma macro

    Mensagem  Borkum em Seg 09 Jan 2017, 11:26

    Bom dia,

    Eu estou tentando implementar a solução que o Assis postou aqui nesse tópico >[Você precisa estar registrado e conectado para ver este link.]

    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
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3641
    Registrado : 20/04/2011

    Re: [Resolvido]Implementando uma macro

    Mensagem  Silvio em Seg 09 Jan 2017, 13:16

    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 !


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    Borkum
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 06/01/2017

    Re: [Resolvido]Implementando uma macro

    Mensagem  Borkum em Seg 09 Jan 2017, 15:10

    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..
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3641
    Registrado : 20/04/2011

    Re: [Resolvido]Implementando uma macro

    Mensagem  Silvio em Seg 09 Jan 2017, 16:06

    Opaaaaaaa.... affraid  affraid  affraid

    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:

    [Você precisa estar registrado e conectado para ver este link.]

    [Você precisa estar registrado e conectado para ver este link.]


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    Borkum
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 06/01/2017

    Re: [Resolvido]Implementando uma macro

    Mensagem  Borkum em Seg 09 Jan 2017, 16:25

    Obrigado !

      Data/hora atual: Sab 21 Out 2017, 04:21