Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Converter Letras
 
Notifications
Clear all

Converter Letras

 
2024 - VBA & Macros
Post Recente por Luc 8 anos atrás
3 Posts
2 Usuários
0 Reactions
893 Visualizações
RSS
 Luc
(@luc)
Posts: 0
New Member
Topic starter
 

Boa noite a todos!!

Será que alguém poderia me ajudar na seguinte situação

O codigo esta muito extenso, e quando vou colocar na textbox fica gigante, não me recordo o nome de quem postou esse código, para poder referenciar, o codigo atende as necessidades, porém queria poder publicar em um modulo e chamar resumido para a textbox...

se alguém puder me ajudar a publicar no módulo, agradeço desde já...

Dim Altera As String
Dim Particula_atona(9) As String
Dim Particula(9) As String
Dim i As Integer

Particula_atona(1) = "Da"
Particula_atona(2) = "De"
Particula_atona(3) = "Do"
Particula_atona(4) = "No"
Particula_atona(5) = "A"
Particula_atona(6) = "E"
Particula_atona(7) = "I"
Particula_atona(8) = "O"
Particula_atona(9) = "U"

Particula(1) = "da"
Particula(2) = "de"
Particula(3) = "do"
Particula(4) = "no"
Particula(5) = "a"
Particula(6) = "e"
Particula(7) = "i"
Particula(8) = "o"
Particula(9) = "u"

Altera = txtPDnomecliente.Text
Altera = StrConv(Altera, vbProperCase)

For i = 1 To 9
Altera = Replace(Altera, " " & Particula_atona(i) & " ", " " & Particula(i) & " ")
Next
txtPDnomecliente.Text = Altera

 
Postado : 26/09/2016 7:56 pm
 Nelson S
(@nelson-s)
Posts: 0
New Member
 
Public Function Alteracao(ByVal strTexto As String) As String

    Dim Altera As String
    Dim Particula_atona(9) As String
    Dim Particula(9) As String
    Dim i As Integer
    
    
    Particula_atona(1) = "Da"
    Particula_atona(2) = "De"
    Particula_atona(3) = "Do"
    Particula_atona(4) = "No"
    Particula_atona(5) = "A"
    Particula_atona(6) = "E"
    Particula_atona(7) = "I"
    Particula_atona(8) = "O"
    Particula_atona(9) = "U"
    
    Particula(1) = "da"
    Particula(2) = "de"
    Particula(3) = "do"
    Particula(4) = "no"
    Particula(5) = "a"
    Particula(6) = "e"
    Particula(7) = "i"
    Particula(8) = "o"
    Particula(9) = "u"
    
    Altera = strTexto
    Altera = StrConv(Altera, vbProperCase)
    
    For i = 1 To 9
        Altera = Replace(Altera, " " & Particula_atona(i) & " ", " " & Particula(i) & " ")
    Next
    
    Alteracao = Altera
    
End Function
 
Postado : 26/09/2016 9:55 pm
 Luc
(@luc)
Posts: 0
New Member
Topic starter
 

Bom dia!

Não testei ainda no vba, vou testar hj a noite quando chegar em casa,

Aqui na empresa só tenho VB6 e no VB6 não funcionou, o que pode ser não é para ser o mesmo código???
O que pode ser alterado para usar no KeyPress por exemplo?

Vamos ver se consigo no VBA

agradeço desde já pela sua atenção Obrigado Nelson!

Atenciosamente,
Luciano.

 
Postado : 27/09/2016 5:53 am
Forum Jump:
  Tópico Anterior
Próximo Tópico