MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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, 08: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 : 3390
    Registrado : 20/04/2011

    Re: [Resolvido]Implementando uma macro

    Mensagem  Silvio em Seg 09 Jan 2017, 10: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, 12: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 : 3390
    Registrado : 20/04/2011

    Re: [Resolvido]Implementando uma macro

    Mensagem  Silvio em Seg 09 Jan 2017, 13: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, 13:25

    Obrigado !

      Data/hora atual: Seg 27 Mar 2017, 17:18