[Albino]

boas.
tenho um fivheiro em excel (uma agenda de contactos) na qual tenho dois formulários, um para introdução de dados e outro para procurar.
no formulario procurar pretendia que ao serem apresentados os valores introduzidos estes me aparecerem com uma determinada máscara.
o actual como foi adaptado de uma agenda brasileira a máscara para o telefóne aparece assim: (00)000-000
o que eu pretendia era que me devolve-se a mascara assim: 000 000 000
o código da adaptação brazuca é o seguinte:

private sub textboxtel_residencial_keypress(byval keyascii as msforms.returninteger)

dim strvalid as string
strvalid = “0123456789”
if instr(strvalid, chr(keyascii)) = 0 then
keyascii = 0

else
‘as duas instruções seguintes fazem com que a formatação do numero fique no estilo: (12)345-678
if len(textboxtel_residencial) = 2 then textboxtel_residencial = “(” & mid(textboxtel_residencial, 1, 2) & “)”
if len(textboxtel_residencial) = 8 then textboxtel_residencial = textboxtel_residencial & “-”
if len(textboxtel_residencial) = 13 then textboxtel_celular.setfocus

end if

end sub

tentei coma instrução que vi na net mas sem exito

alguem me poderia ajudar neste dilema…?

obrigado

[jorgerod]

albino,

eu, para este tipo de situações, vou pelo mais “fácil”. assim, o código que costumo utilizar é o seguinte, o qual podes adaptar à tua maneira:

private sub telemovel_exit(byval cancel as msforms.returnboolean)
with telemovel
telemovel = format(telemovel, “[<=999999999]### ### ###;(###) ### ### ###")
end with
end sub

fica bem.

[Albino]

boas
jorgerod
tentei adaptar assim:

private sub textbox7_exit(byval cancel as msforms.returnboolean)
with textbox7
textbox7 = format(textbox7, “[<=999999999]### ### ###;(###) ### ### ###")
end with
end sub

uma vez que o nome da textbox é "textbox7" , mas não deu resultado o formato devolvido é 000000000

resolvi a questão alterando o código original para:

private sub textbox7_keypress(byval keyascii as msforms.returninteger)

dim strvalid as string
strvalid = "0123456789"
if instr(strvalid, chr(keyascii)) = 0 then
keyascii = 0

else

if len(textbox7) = 3 then textbox7 = mid(textbox7, 1, 3) & " "
if len(textbox7) = 7 then textbox7 = textbox7 & " "
if len(textbox7) = 11 then textbox8.setfocus

end if

end sub

obrigado na mesma e fica bem
abraço

[jorgerod]

albino,

podes experimentar, para ver se funciona, desta maneira?

private sub textbox7_exit(byval cancel as msforms.returnboolean)
with textbox7
textbox7 = vba.format(textbox7, “[<=999999999]### ### ###;(###) ### ### ###")
end with
end sub

obrigado e fica bem.

[Albino]

boas
jorgerod
funcionou, aliás não era de esperar outra coisa.
pelo que observei faltava-me “vba.format”

esta forma sempre é mais fácil que a dos brazucas, tem menos código.

obrigado
abraço

[Autor]

Artigos