Esqueceu sua senha? Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

formulário de pesquisa vba

Esclarecimentos e dúvidas sob o Modelo de Aplicativo de Cadastro em VBA no Microsoft Excel publicado no site e blog http://www.tomasvasquez.com.br
Luciano Ghinzelli
Acabou de chegar
Acabou de chegar
Mensagens: 4
Registrado em: Seg Dez 07, 2009 8:17 am

Inserir formatação nos TextBox

Mensagem por Luciano Ghinzelli » Qua Dez 09, 2009 8:48 am

Olá,
Tomás, arquivo funcionando perfeitamente... Agora entro na fase de ajustes... aparência, coisa e tal...

Agradeço a ajuda...

Será, muito complicado, inserir formatação nos TextBox?
Veja um exemplo:

CNPJ: 00.000.000/0000-00
Fone: (00)0000 00000
Insc Estadual: 00/0000000
CEP: 00.0000-000

No momento apenas tenho essa formatação nas células da planilhia. Seria interessante que essa formatação, para fins de vizualização, tbm seja assumida nos textbox.

Até mais,

Luciano Ghinzelli



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
webmaster
Administrador
Mensagens: 2746
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: formulário de pesquisa vba

Mensagem por webmaster » Qua Dez 09, 2009 9:40 am

Luciano,

Use a função format. Por exemplo:

Código: Selecionar todos

TextBoxCPF.Text = Tormat(cpf, "###.###.###-##")
Mais informações do próprio Help do VBA:
Exemplo da função Format
Este exemplo mostra os diversos usos da função Format para formatar valores, usando formatos nomeados e formatos definidos pelo usuário. Para o separador de data (/), separador de hora (:) e literal AM/ PM, o resultado real formatado, exibido pelo sistema, depende das configurações da localidade em que o código está sendo executado. Ao exibir datas e horas no ambiente de desenvolvimento, são usados os formatos de hora e data abreviados da localidade do código. Quando exibidas pelo código em execução, são usados os formatos de hora e data abreviados da localidade do sistema, que podem ser diferentes da localidade do código. Neste exemplo, foi considerado o inglês dos Estados Unidos.

MyTime e MyDate são exibidas no ambiente de desenvolvimento, usando as configurações de hora e data abreviadas do sistema atual.

Dim MyTime, MyDate, MyStr
MyTime = #17:04:23#
MyDate = #January 27, 1993#

' Retorna a hora atual do sistema no formato longo de hora definido pelo sistema.
MyStr = Format(Time, "Hora longa")

' Retorna a data do sistema atual no formato longo de data definido pelo sistema.
MyStr = Format(Date, "Data longa")

MyStr = Format(MyTime, "h:m:s") ' Retorna "17:4:23".
MyStr = Format(MyTime, "hh:mm:ss AMPM") ' Retorna "05:04:23 PM".
MyStr = Format(MyDate, "dddd, mmm d yyyy") ' Retorna "Quarta-feira,
' Jan 27 1993".
' Se o formato não for especificado, será retornada uma seqüência de caracteres.
MyStr = Format(23) ' Retorna "23".

' Formatos definidos pelo usuário.
MyStr = Format(5459.4, "##,##0.00") ' Retorna "5.459,40".
MyStr = Format(334.9, "###0.00") ' Retorna "334,90".
MyStr = Format(5, "0.00%") ' Retorna "500,00%".
MyStr = Format("OLÁ", "<") ' Retorna "olá".
MyStr = Format("Isto é tudo", ">") ' Retorna "ISTO É TUDO".
Abraços


Tomás
https://www.tomasvasquez.com.br/blog
https://www.tomasvasquez.com.br/cursocsharp
https://twitter.com/tomamais
Se sua dúvida foi solucionada, acrescente [RESOLVIDO] ao título.

Luciano Ghinzelli
Acabou de chegar
Acabou de chegar
Mensagens: 4
Registrado em: Seg Dez 07, 2009 8:17 am

Re: formulário de pesquisa vba

Mensagem por Luciano Ghinzelli » Qui Dez 10, 2009 8:19 am

Olá,
Tomás, a formatação do ListBox funcionou perfeitamente com este código:

Exemplo:
Formatação CNPJ: Assume quando vc passa para um outro campo.

Private Sub txtCNPJ_Exit(ByVal Cancel As MSForms.ReturnBoolean)
txtCNPJ.Text = Format(txtCNPJ.Text, "00\.000\.000\/0000\-00")
End Sub

E no ListBox...
Em que ponto escrevo o código, no modelo que vc elaborou, para que a coluna "x" assuma a formatação, por exemplo: (xx)xxxx xxxx, no caso telefone?

Até mais,

Luciano



Avatar do usuário
webmaster
Administrador
Mensagens: 2746
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: formulário de pesquisa vba

Mensagem por webmaster » Qui Dez 10, 2009 5:27 pm

Luciano,

Dê uma boa olhada neste tópico:

viewtopic.php?f=5&t=35&start=10#p226

Abraços


Tomás
https://www.tomasvasquez.com.br/blog
https://www.tomasvasquez.com.br/cursocsharp
https://twitter.com/tomamais
Se sua dúvida foi solucionada, acrescente [RESOLVIDO] ao título.

Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Silmar Carvalho
Colaborador
Colaborador
Mensagens: 19
Registrado em: Sex Set 18, 2009 8:16 pm
Localização: Pelotas - RS

Re: formulário de pesquisa vba

Mensagem por Silmar Carvalho » Dom Jan 03, 2010 10:37 pm

webmaster escreveu:Silmar,

Consegui fazer a planilha funcionar no Excel 97. Segue em anexo para dar uma olhada.

Abraços
Tomaz ,
Desculpe a demora no retorno.

Funcionou perfeitamente parabés, muito bom mesmo, muito grato, diga estou colocando um foto no cadastro consigo incluir e excluir , porem quando roda a ficha de cadastro a foto não muda, fica uma foto para todos os cadastrados.
tens como ajudar.

Abraços

silmar


Silmar Carvalho

Avatar do usuário
webmaster
Administrador
Mensagens: 2746
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: formulário de pesquisa vba

Mensagem por webmaster » Seg Jan 04, 2010 1:33 pm

Silmar,

Não me recordo do contexto da foto. Pode dar mais detalhes? Se for o caso, abra um outro tópico para tratar do assunto.

Abraços


Tomás
https://www.tomasvasquez.com.br/blog
https://www.tomasvasquez.com.br/cursocsharp
https://twitter.com/tomamais
Se sua dúvida foi solucionada, acrescente [RESOLVIDO] ao título.

Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder