Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Formatar TextBox com número e texto [RESOLVIDO].
- costaribeiro
- Colaborador
- Mensagens: 96
- Registrado em: Ter Mar 04, 2014 10:10 am
- Localização: Pouso Alegre - MG
Formatar TextBox com número e texto [RESOLVIDO].
Olá, pessoal
Boa tarde.
Tenho uma TextBox chamada "edição". Pretendo que, após digitar um número, ao sair ("exit"), ela fique com a seguinte formatação, por exemplo:
23. ed.
Ou seja,
Número = 23
Texto = ". ed. "
É possível? Alguém pode dar uma forcinha? kkkk
Muito Obrigado.
Boa tarde.
Tenho uma TextBox chamada "edição". Pretendo que, após digitar um número, ao sair ("exit"), ela fique com a seguinte formatação, por exemplo:
23. ed.
Ou seja,
Número = 23
Texto = ". ed. "
É possível? Alguém pode dar uma forcinha? kkkk
Muito Obrigado.
Editado pela última vez por costaribeiro em Sex Nov 02, 2018 8:38 pm, em um total de 1 vez.
Re: Formatar TextBox com número e texto
Função Format? Funciona do mesmo jeito que a formatação customizada do Excel
- costaribeiro
- Colaborador
- Mensagens: 96
- Registrado em: Ter Mar 04, 2014 10:10 am
- Localização: Pouso Alegre - MG
Re: Formatar TextBox com número e texto
Olá Tomás,
Dá errado.
Uso esse código:
Se digito na TextBox o número 2, fica assim, com vírgula:
2, ed.
Acho que estou fazendo algo errado.
Dá errado.
Uso esse código:
Código: Selecionar todos
Private Sub TxtEdicaoLivro_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Me.TxtEdicaoLivro.Value = Format(Me.TxtEdicaoLivro.Value, " . ed. ")
End Sub
2, ed.
Acho que estou fazendo algo errado.
- Reinaldo
- Jedi
- Mensagens: 1537
- Registrado em: Sex Ago 01, 2014 4:09 pm
- Localização: Garça - SP / SCS - SP
Re: Formatar TextBox com número e texto
Try
Código: Selecionar todos
Private Sub TxtEdicaoLivro_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Me.TxtEdicaoLivro.Text= Me.TxtEdicaoLivro.Text & " . ed. "
End Sub
Re: Formatar TextBox com número e texto
Costa,
A formatação no VBA segue o padrão inglês. Troque a vírgula por ponto ou vice-versa. Vai funcionar.
A solução do Reinaldo é mais "direta".
A formatação no VBA segue o padrão inglês. Troque a vírgula por ponto ou vice-versa. Vai funcionar.
A solução do Reinaldo é mais "direta".
- costaribeiro
- Colaborador
- Mensagens: 96
- Registrado em: Ter Mar 04, 2014 10:10 am
- Localização: Pouso Alegre - MG
Re: Formatar TextBox com número e texto [RESOLVIDO].
Boa tarde, colegas!
Estou precisando modificar a textbox para um formato numérico que não apresente erro quando faço procv. Para detalhar: Em uma plan1, os dados são cadastrados via userform. Na plan2, apenas duas informações da plan1 são levadas (utilizo o Vlookup). No entanto, nas outras células, existem dados via PROCV de outras plans, que não estão reconhecendo os valores numéricos advindos da plan1. Mesmo eu inserindo o SEERRO, os valores ficam alterados. O problema só desaparece quando entro em cada célula da plan1, aperto F2 e ENTER, daí na plan2, ao recarregar os valores, o procv "reconhece" e dar certo, mas é inviável fazer isso manualmente. Tentei gravar uma Macro sem sucesso... Grata se puderem me dar uma dica!
Estou precisando modificar a textbox para um formato numérico que não apresente erro quando faço procv. Para detalhar: Em uma plan1, os dados são cadastrados via userform. Na plan2, apenas duas informações da plan1 são levadas (utilizo o Vlookup). No entanto, nas outras células, existem dados via PROCV de outras plans, que não estão reconhecendo os valores numéricos advindos da plan1. Mesmo eu inserindo o SEERRO, os valores ficam alterados. O problema só desaparece quando entro em cada célula da plan1, aperto F2 e ENTER, daí na plan2, ao recarregar os valores, o procv "reconhece" e dar certo, mas é inviável fazer isso manualmente. Tentei gravar uma Macro sem sucesso... Grata se puderem me dar uma dica!
- Reinaldo
- Jedi
- Mensagens: 1537
- Registrado em: Sex Ago 01, 2014 4:09 pm
- Localização: Garça - SP / SCS - SP
Re: Formatar TextBox com número e texto [RESOLVIDO].
Sua duvida/demanda não tem haver com a duvida/demanda deste tópico antigo e resolvido.
O ideal, sempre, e abrir seu próprio tópico, com as devidas explicações/exemplos e ; se necessário; referir-se/mencionar o tópico antigo.
Quanto a sua demanda, há neste fórum e outros sobre Excel/vba que tratam/referem-se a esse "problema"; que trata-se na realidade como os valores são inseridos na planilha.
Ao digitar diretamente um dado em uma célula,os mecanismos internos do Excel "verificam" o dado inserido e "atribuem" o tipo/valor mais próximo do input(numero, texto..)
Ao ingressar com esse mesmo dado via VBA, aparentemente, esse mecanismo de "verificação" não é acionado, e os dados, oriundos de um Textbox, via de regra são considerados e armazenados como "String"(texto).
"...quando entro em cada célula da plan1, aperto F2..."
Ao efetuar essa operação, está indicando ao Excel que trata-se de um novo input, assim a "verificação" e feita e o dado passa a ser considerado como valor, não mais texto.
Experimente para "contornar"; utilizar a função VALOR conjunta com o Procv/VlookUp
=PROCV(VALOR(A1);Plan2!$A$1:$D$3;2;VERDADEIRO)
Caso não auxilie, abra seu tópico, e exponha a demanda com exemplos/modelo e informando manualmente o que tem e o que espera obter
O ideal, sempre, e abrir seu próprio tópico, com as devidas explicações/exemplos e ; se necessário; referir-se/mencionar o tópico antigo.
Quanto a sua demanda, há neste fórum e outros sobre Excel/vba que tratam/referem-se a esse "problema"; que trata-se na realidade como os valores são inseridos na planilha.
Ao digitar diretamente um dado em uma célula,os mecanismos internos do Excel "verificam" o dado inserido e "atribuem" o tipo/valor mais próximo do input(numero, texto..)
Ao ingressar com esse mesmo dado via VBA, aparentemente, esse mecanismo de "verificação" não é acionado, e os dados, oriundos de um Textbox, via de regra são considerados e armazenados como "String"(texto).
"...quando entro em cada célula da plan1, aperto F2..."
Ao efetuar essa operação, está indicando ao Excel que trata-se de um novo input, assim a "verificação" e feita e o dado passa a ser considerado como valor, não mais texto.
Experimente para "contornar"; utilizar a função VALOR conjunta com o Procv/VlookUp
=PROCV(VALOR(A1);Plan2!$A$1:$D$3;2;VERDADEIRO)
Caso não auxilie, abra seu tópico, e exponha a demanda com exemplos/modelo e informando manualmente o que tem e o que espera obter