CONVERSAR LETRAS
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
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
Como diria Jack, o estripador: Vamos por partes:
Primeiro, o que exatamente você precisa fazer?
Primeiro, o que exatamente você precisa fazer?
Obrigado!
Tópico encerrado , respostas não são mais permitidas